[friz]

как дописать инфу в типизированный файл(тип простая запись), стандартная процедура append работает только для текстовых файлов...а какой процедурой за писать в типизированный??

[zip000]

Открытие уже существующего файла для записи - Reset(some_file). Rewrite - для создания нового файла, если файл уже создан то данные в нем будут удалены.

[Phedor]

Сообщение от friz

как дописать инфу в типизированный файл(тип простая запись), стандартная процедура append работает только для текстовых файлов...а какой процедурой за писать в типизированный??

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type   TType = record     Id: Integer;     Name: string[60];   end; var   r: TType;   f: file of TType; begin   assign(f, 'Файлик.dat');   reset(f);   ...   read(f, r);   ...   write(f, r);   ...   close(f); end;

[xchrom]

ну чтобы дописать надо еще прогуляться до конца (eof) файла а потом писать Write...

[ProperDoze]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var   File_1:TFileStream; ...   begin   ...     File_1:=TFileStream.Create(filename, fmCreate or fmOpenWrite); // Открытие файла  <font color="Red"> File_1.Seek(1, soFromEnd);</font> // Выставление указателя в конец файла // Возможно вместо единицы ноль (уже не помню щас)))      File_1.Write(Data,SizeOf( <font color="Red"><type></font> ));  // Запись одного блока Data       // вместо '<type>' надо указать тип твое записи DAta     File_1.Free;   ... end;

[Thrasher]

type
TType = record
Id: Integer;
Name: string[60];
end;
var
r: TType;
f: file of TType;
begin
assign(f, 'Файлик.dat');
reset(f);
Seek(f, FileSize(f)); - переместить указатель в конец файла
...
read(f, r);
...
write(f, r);
...
close(f);
end;

[friz]

Спасибо все! но способ нашел сам покопался по своим старым тетрадкам