сохранение в файл в delphi
Автор 123123123 3123 задал вопрос в разделе Другие языки и технологии
сохранение файлов в делфи 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; Аналогично и для второго обработчика
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: сохранение файлов в делфи 7