Скачать: CL | DM;

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

← →
вано   (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) - это для папки программы.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c