|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2006, 12:37 | #1 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 278
|
Работа с файлами
Как мне определить рабочую папку программы в течении самой программы и записать её в файл TXT
Разработка сайтов -дело прикольное
|
18.12.2006, 13:38 | #2 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
Оператор называется, если не ошибаюсь:
CurrentDir: string; Ну астроку уж в файл-это в любой книге есть |
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 |
Форумчанин
Регистрация: 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. Причина: Дополнение програмногокода |
18.12.2006, 19:08 | #5 |
Пользователь Подтвердите свой е-майл
Регистрация: 14.12.2006
Сообщений: 29
|
Getcurrentdir - возвращает текущую папку. Т.е. если использовать opendialog, текущая папка изменится. Лучше использовать ExtractFilePath(Application.ExeName )
какой вопрос, такой ответ..
|
23.12.2006, 13:33 | #6 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
Да это наиболее лучший подход
Програмисты - единственные люди, которым платят за исправления их же ошибок
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с файлами | 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 |