Код для события 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; Нарушение авторских прав Поделиться с ДРУЗЬЯМИ:
|