[friz]

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

[zip000]

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

[Phedor]

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

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

Код:

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]

Код:

var
  File_1:TFileStream;
...

begin	
...

  File_1:=TFileStream.Create(filename, fmCreate or fmOpenWrite); // Открытие файла
  File_1.Seek(1, soFromEnd); // Выставление указателя в конец файла 
// Возможно вместо единицы ноль (уже не помню щас)))
 
  File_1.Write(Data,SizeOf( <type> ));  // Запись одного блока 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]

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