delphi 7 сохранение данных в файл

Ответ от Gennady[гуру]
Не забываем про операторные скобки в нужных местах procedure TForm1.N3Click(Sender: TObject); var f:file of kypc; g:kypc; k:Integer; begin if dlgOpen1.Execute then begin AssignFile(f,dlgOpen1.FileName); Reset(f); k:=0; while not Eof(f) do begin // у вас цикл не выполнялся read(f, g); sg1.Cells[0,k]:=IntToStr(g.key); sg1.Cells[1,k]:=FloatToStr(g.x); sg1.Cells[2,k]:=FloatToStr(g.y); k:=k+1; end; CloseFile(f); sg1.Visible:=True; end; end; Аналогично и для второго обработчика