Конференция "Media" » Функция "Сохранить как"
 
  • GibiW © (13.05.09 19:22) [0]
  • {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;

 
Конференция "Media" » Функция "Сохранить как"
Есть новые Нет новых   [134431   +10][b:0][p:0]