-
{RASkov} © (13.05.09 20:12) [1]> [0] GibiW © (13.05.09 19:22)
> Предупреждаю, что я новичок
Эк напугал.... :)
> как мне сделать функцию "Сохранить как"
Write
> Аналогично "Открыть" то что я сохраню...
Read
+ AssignFile, Rewrite(Reset), CloseFile -
{RASkov} © (13.05.09 20:26) [2]Обычно делается одна(только) функция сохранения, а "Сохранить как..." это тоже самое сохранение с запросом имени файла...
Т.е. так:procedure SaveMyData(param pampam);
begin
....
//mnogo poleznogo koda
...
end;
procedure SaveAsMyData;
begin
if OpenDialog.Execute then SaveMyData(naprimer OpenDialog.FileName);
end;