save and open

[twister_answer]

написал процедуру к savedialog, но с open невыходит...
прошу проверить save и повозможности объяснить как open написать...

procedure TForm1.N4Click(Sender: TObject);
var i:integer;
begin
SaveDialog1.Execute;
AssignFile(f,SaveDialog1.filename);
rewrite(f);
reset(f);
for i:=1 to stringgrid1.rowcount-1 do
with form1 do
begin
z.stadia:=stringgrid1.cells[0,i+1];
z.team1:=stringgrid1.cells[1,i+1];
z.team2:=stringgrid1.cells[2,i+1];
z.result:=stringgrid1.cells[3,i+1];
z.whogoal1:=stringgrid1.cells[4,i+1];
z.whogoal2:=stringgrid1.cells[5,i+1];
end;
seek(f,i);
write(f,z);
end;

спасибо!

[Grag]

Ну, если быть абсолютно точным, то ты написал процедуру-обработчик нажатия кнопки, а не процедуру SaveDialog... Я полагаю, что N4 - это какая-то кнопка...
Если SaveDialog1.Execute вернет false, то куда же все это будет сохранятся. Скорее всего туда, чему будет равно старое значение SaveDialog1.filename. Или на лицо возникновение исключительной ситуации...

[twister_answer]

точно! ты угадал!! спасибо за помощь

[Grag]

Ты ошибся! Я не угадал, я это знал...

[twister_answer]

ладно прости... поднадаело уже...
не подскажешь как ошибку исправить?

[Grag]

if SaveDialog1.Execute then
  begin

  end;

А вот между begin - end; пиши все что нужно.
Тогда, если SaveDialog.Execute = true, то будет все выполняться, в противном случае - нет.
Да не забудь файл закрыть!!!