Главная страница
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.022 c
14-1085316229
X9
2004-05-23 16:43
2004.06.13
FS для Linux. Срочно!


3-1085388083
NewUser
2004-05-24 12:41
2004.06.13
Система безопасности в IB6


14-1085423664
andrey
2004-05-24 22:34
2004.06.13
поммогите написать программу в делфи7


6-1082732730
god
2004-04-23 19:05
2004.06.13
TServerSocket &amp; TClientSocket !!! ReciveText


14-1085823483
SammIk
2004-05-29 13:38
2004.06.13
Консультация.