Лабораторная работа: Изучение работы с файлами на языке Delphi

if stringgrid1.Cells[0,i]=edit3.text then

begin

k:=i;

while k<stringgrid1.RowCount-1 do

begin

stringgrid1.Cells[0,k]:=stringgrid1.Cells[0,k+1];

stringgrid1.Cells[1,k]:=stringgrid1.Cells[1,k+1];

stringgrid1.Cells[2,k]:=stringgrid1.Cells[2,k+1];

stringgrid1.Cells[3,k]:=stringgrid1.Cells[3,k+1];

k:=k+1;

end;

stringgrid1.RowCount:=stringgrid1.RowCount-1;

end;

i:=i+1;

until stringgrid1.RowCount-1<i;

end;

procedure TForm1.Button4Click(Sender: TObject);

var i:integer;

begin

stringgrid1.RowCount:=stringgrid1.RowCount+1;

for i:=0 to 4 do

stringgrid1.cells[i,stringgrid1.RowCount-1]:='';

end;

procedure TForm1.Button5Click(Sender: TObject);

var i:integer; z:p;

f: file of p;

begin

system.Assign(f,edit1.Text);

reset(f); // îòêðûòü ôàéë