Сохранение файлов

[oif]

Подскажите как сохранить файл.
Ситуация следущая.
Создаю файл(допустим text.txt ),записываю в него данные,закрываю его,потом по нажатию кнопки надо пересохранить данный файл с новым выбраным именем(с помощью savedialog).
Как это реализовать?
Можно с примером кода.

[Лелик_1044]

1)Как создаешь прогарммно или вручную (другой программой)
Если программно не очищай данные а просто сохраняй его в другмо файле

Если вручную т.е. данных о фале нету просто копируй его

[Колядин Максим]

Хотя бы написл Delphi это или Pascal. Если Pascal тогда вот код
(сам процесс переименования)

Код: Выделить всё

var a: text;
      new_name:string;
//-//-//-
assign(a,'text.txt'); reset(a);
Write('Введите новое имя файла: ');
readln(new_name);
rename(a,new_name);
close(a);

[BBB]

Хотя бы написл Delphi это или Pascal. Если Pascal тогда вот код
(сам процесс переименования)

Код: Выделить всё

.......................
assign(a,'text.txt'); reset(a);
.....................
rename(a,new_name);
close(a);

Перед вызовом rename открывать файл (вызов reset) НЕ НАДО!!!
Блин, ну неужели нельзя элементарно нажать Ctrl+F1 !? Там даже пример есть:

Код: Выделить всё

  {Rename.PAS}

  {Sample code for the Rename procedure.}

  { For Windows: }
  { uses WinCrt; }

  var
    f : file;
  begin
    { Rename a file. Old and new names
      given on command line. }
    if ParamCount <> 2 then
    begin
      Writeln('Wrong number of parameters');
      Halt(1);
    end;
    Assign(f,ParamStr(1));
    Writeln('Renaming ',ParamStr(1),
            ' to ',ParamStr(2));
    Rename(f,ParamStr(2));
  end.

И еще из того же топика (на процедуру Rename) хелпа (может быть полезным):

With {$I-}, IOResult returns 0 if the operation was successful; otherwise,
it returns a nonzero error code.

[Игорь Акопян]

пересохранить данный файл с новым выбраным именем(с помощью savedialog).

имхо, надо просто спросить это имя в нужный момент и сохранить, не используя лишнее переименование

[Колядин Максим]

Перед вызовом rename открывать файл (вызов reset) НЕ НАДО!!!

Да, можно и не вызывать, но да если и вызовешь, хуже от этого никак не станет.

[oif]

Спасибо уже разобрался.