Страница 1 из 1
Сохранение файлов
Добавлено: 13 дек 2006, 12:05
oif
Подскажите как сохранить файл.
Ситуация следущая.
Создаю файл(допустим text.txt ),записываю в него данные,закрываю его,потом по нажатию кнопки надо пересохранить данный файл с новым выбраным именем(с помощью savedialog).
Как это реализовать?
Можно с примером кода.
Re: Сохранение файлов
Добавлено: 13 дек 2006, 12:19
Лелик_1044
1)Как создаешь прогарммно или вручную (другой программой)
Если программно не очищай данные а просто сохраняй его в другмо файле
Если вручную т.е. данных о фале нету просто копируй его
Re: Сохранение файлов
Добавлено: 13 дек 2006, 18:52
Колядин Максим
Хотя бы написл 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);
Re: Сохранение файлов
Добавлено: 14 дек 2006, 09:45
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.
Re: Сохранение файлов
Добавлено: 14 дек 2006, 13:59
Игорь Акопян
" писал(а):пересохранить данный файл с новым выбраным именем(с помощью savedialog).
имхо, надо просто спросить это имя в нужный момент и сохранить, не используя лишнее переименование
Re: Сохранение файлов
Добавлено: 14 дек 2006, 15:13
Колядин Максим
Перед вызовом rename открывать файл (вызов reset) НЕ НАДО!!!
Да, можно и не вызывать, но да если и вызовешь, хуже от этого никак не станет.
Re: Сохранение файлов
Добавлено: 15 дек 2006, 18:18
oif
Спасибо уже разобрался.