Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: 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 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
3-1083175286
vlbelugin
2004-04-28 22:01
2004.06.13
DB2 и dbExpress


14-1085426948
тихий вовочка
2004-05-24 23:29
2004.06.13
Показуха


14-1085312933
Kerk
2004-05-23 15:48
2004.06.13
anti-cracking


4-1084031844
QseR
2004-05-08 19:57
2004.06.13
CPU Load


1-1085994689
nitro
2004-05-31 13:11
2004.06.13
Как скопировать или "перебросить" данные из Image1 в Image2 ?