Код для события Click Компонента button5. procedure TForm2.Button5Click(Sender: TObject)

procedure TForm2.Button5Click(Sender: TObject);

var

f:file of str;

rec:str;

i:integer;

begin

AssignFile(f,'f.dat');

{$I-}

Reset(f);

{$I+}

if IOResult <>0 then

begin

showmessage('Ошибка открытия файла!');

exit;

end;

i:=1;

while not EOF(f) do

begin

read(f,rec);

tab1.cells[0,i]:=rec.fio;

tab1.cells[1,i]:=rec.rab;

tab1.cells[2,i]:=rec.otd;

tab1.cells[3,i]:=rec.city;

tab1.cells[4,i]:=rec.phone;

tab1.cells[5,i]:=rec.money;

i:=i+1;

end;

tab1.rowcount:=i;

closefile(f);

r:=tab1.rowcount-1;

end;

- Удаляет файл с компьютера.

Дата добавления: 2014-07-23; просмотров: 349; Нарушение авторских прав

Мы поможем в написании ваших работ!