Работа с файлами - Общие вопросы Delphi

LeoN · 18.12.2006, 12:37

Как мне определить рабочую папку программы в течении самой программы и записать её в файл TXT

Трофимов Александр · 18.12.2006, 13:38

Оператор называется, если не ошибаюсь:
CurrentDir: string;
Ну астроку уж в файл-это в любой книге есть

Квэнди · 18.12.2006, 13:56

application.ExeName
assignefile
rewrite
writeln
closefile

Speeker · 18.12.2006, 17:52

var
put:string;
a:tstrings;
begin
Put:=Getcurrentdir;
a:=tstringlist.Create;
a.Add(put);
a.SaveToFile(put+'\name.txt');
а.Free;
end;
Можно конечно использовать и application.ExeName (в принципе и лучше использовать, поскольку функция Getcurrentdir может изменить значение на значение OpenDialog.FileName или SaveDialog1.FileName ) Но у функции application.ExeName надо обрезать имя файла (по символу до знака "\")

Drop · 18.12.2006, 19:08

Цитата:

Сообщение от Трофимов Александр

Оператор называется, если не ошибаюсь:
CurrentDir: string;
Ну астроку уж в файл-это в любой книге есть

Getcurrentdir - возвращает текущую папку. Т.е. если использовать opendialog, текущая папка изменится. Лучше использовать ExtractFilePath(Application.ExeName )

Speeker · 23.12.2006, 13:33

Цитата:

Сообщение от Drop

Getcurrentdir - возвращает текущую папку. Т.е. если использовать opendialog, текущая папка изменится. Лучше использовать ExtractFilePath(Application.ExeName )

Да это наиболее лучший подход

18.12.2006, 12:37	#1
LeoN Форумчанин Регистрация: 03.11.2006 Сообщений: 278	Работа с файлами Как мне определить рабочую папку программы в течении самой программы и записать её в файл TXT Разработка сайтов -дело прикольное

18.12.2006, 13:56	#3
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	application.ExeName assignefile rewrite writeln closefile ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

18.12.2006, 17:52	#4
Speeker Форумчанин Регистрация: 01.12.2006 Сообщений: 241	var put:string; a:tstrings; begin Put:=Getcurrentdir; a:=tstringlist.Create; a.Add(put); a.SaveToFile(put+'\name.txt'); а.Free; end; Можно конечно использовать и application.ExeName (в принципе и лучше использовать, поскольку функция Getcurrentdir может изменить значение на значение OpenDialog.FileName или SaveDialog1.FileName ) Но у функции application.ExeName надо обрезать имя файла (по символу до знака "\") Програмисты - единственные люди, которым платят за исправления их же ошибок Последний раз редактировалось Speeker; 18.12.2006 в 18:11. Причина: Дополнение програмногокода

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с файлами	Yar	Помощь студентам	2	02.06.2008 08:03
Работа с файлами	Stiker	Общие вопросы C/C++	1	10.04.2008 22:47
Работа с файлами	ShVad	Общие вопросы Delphi	4	03.02.2007 10:43
Работа с файлами	El_Bint0	Помощь студентам	1	20.12.2006 02:07

18.12.2006, 13:38	#2
Трофимов Александр Форумчанин Регистрация: 03.11.2006 Сообщений: 321	Оператор называется, если не ошибаюсь: CurrentDir: string; Ну астроку уж в файл-это в любой книге есть