типизированный файл

[s2dentishe]

описываю тип
type
TRecordFile = record
name : string[65]; // imja faila
razm_f_r : Integer; //razmer faila
razm_f_kl : Integer;//гazmer faila na diske s uchetom razmera klastera(byte)
end;
объявляю файловую переменную
f:File of TRecordFile;

открываю файл
AssignFile(f,'info.txt');
reset(f);
repeat
zap_v_f.name:='новое имя';
zap_v_f.razm_f_r:=новое значение;
zap_v_f.razm_f_kl:=новое значение;
Write (f,zap_v_f)
until <условие>
Close(f);
в файл все хорошо записывается
использую процедуру LoadFromFile свойства Items объекта ListBox

MyListBox.Items.LoadFromFile('info. txt');
загружает в ListBox только zap_v_f.name самой первой записи, не подскажите почему?

[Serge_Bliznykov]

использую процедуру LoadFromFile свойства Items объекта ListBox

Это Вы шутите?!
Данная процедура предназначена для загрузки ТОЛЬКО (ИСКЛЮЧИТЕЛЬНО) текстовых файлов.
Вы же имеете типизированный (т.е. фактически - БИНАРНЫЙ) файл.

его можно грузить только через переменную = типизированному файлу.
примерно так:

f:File of TRecordFile;
zap_v_f : TRecordFile;
begin
   AssignFile(f,'info.txt');
   Reset(f);
   MyListBox.Items.Clear;
   while Not Eof(f) do begin
      Read(f, zap_v_f);
      MyListBox.Items.Append(zap_v_f.name+' '+IntToStr(zap_v_f.razm_f_r )+' '+IntToStr(zap_v_f.razm_f_kl));
   end;
   CloseFile(f);
end;

[s2dentishe]

спасибо )