как сохранить файл в данную папку?

← →
вано (2004-06-01 11:35) [0]

Подсмкажите пож-ся мастера, как сохранить файл (txt) в нужное для меня место?
Вот моя программа, но она сохраняет файл в папке программы

// Проверка существование файла
function FileExists(FileName: String): Boolean;
begin
{$I-}
Assign(Input, FileName);
FileMode := 0;
Reset(Input);
Close(Input);
{$I+}
FileExists := (IOResult = 0) and (FileName <> "");
end; { FileExists }

// Запись в файл
procedure TForm1.save(i:integer;rr:real);
begin
Assignfile(Output, Edit3.text);
if FileExists(Edit3.text) then append(Output) else rewrite(Output);
WriteLN(Output,I," ",rr);
CloseFile(Output);
end;

← →
Плохиш (2004-06-01 11:39) [1]

1. использовать SaveDialog
2. писать в Edit3.text полное имя файла с нужной, для тебя, папкой
3. ...

← →
V-Isa (2004-06-01 11:42) [2]

В Assignfile к Edit3.text добавляй путь!
Напр., Assignfile(Output, ExtractFilePath(ParamStr(0))+Edit3.text) - это для папки программы.

как сохранить файл в данную папку? Найти похожие ветки