Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ExtractFilePath(Application.Exename), Как правтльно сохранить... 
:(
    Опции темы
Sergus
Дата 25.11.2005, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 22.11.2005

Репутация: нет
Всего: нет
Подскажите плиз, как правильно сохранить файл отчета report.txt в папку
Application.Exename... \txt

Filename := ExtractFilePath(Application.Exename)+'report.txt';
PM MAIL ICQ   Вверх
Satana
Дата 25.11.2005, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Ну ты же сам почти правильно написал:
Код

Filename := ExtractFilePath(Application.Exename)+'\report.txt';



--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Snowy
Дата 25.11.2005, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Satana, не путай человека. Бэкслэш там не нужен.
Не совсем ясно, какой ответ хочет автор.
Вопрос неясен.
Цитата(Sergus @ 25.11.2005, 10:59)
Filename := ExtractFilePath(Application.Exename)+'report.txt';

Вполне верное выражение. А в чем тошда вопрос?
PM MAIL   Вверх
Dron84
Дата 25.11.2005, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: нет
Всего: 1
я делаю так:
узнаю путь exe файла
Код

function GetEXEPath: string;
begin
 result := ExtractFilePath(paramstr(0));
end;

использую
Код

GetEXEPath + 'Report.txt'
PM MAIL   Вверх
Sergus
Дата 25.11.2005, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 22.11.2005

Репутация: нет
Всего: нет
Цитата(Snowy @ 25.11.2005, 12:51)
Не совсем ясно, какой ответ хочет автор.
Вопрос неясен.

К примеру, приложение расположено в C:\Program Files\ComPlus\
отчет 'report.txt' нужно сохранить в C:\Program Files\ComPlus\TXT\

P.S. Сорри, за непонятный вопрос, заранее спс smile

Добавлено @ 13:43
Если написать вот так

Код

Filename := ExtractFilePath(Application.Exename)+'report.txt';


или так
Код

...
function GetEXEPath: string;
begin
 result := ExtractFilePath(paramstr(0));
end;
...
GetEXEPath + 'Report.txt'
...


то сохранится в C:\Program Files\ComPlus\
а нужно в C:\Program Files\ComPlus\TXT\
PM MAIL ICQ   Вверх
Rennigth
Дата 25.11.2005, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Код

const
  C_SUBDIR: string = 'TXT\' ;
var
  lTmpFN: string;
  lDir: string;
begin
  lTmpFN := ExtractFilePath(ParamStr(0));
  lDir := lTmpFN + C_SUBDIR;
  ForceDirectoryes(lDir);
  FileName := IncludeTrailingPathDelimiter(lDir) + 'Report.txt';
  ... 

end;


Это сообщение отредактировал(а) Rennigth - 25.11.2005, 13:48


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Snowy
Дата 25.11.2005, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Так бы и сказал.
Код

var
  TxtPath: string;
  Filename: string;
begin
  TxtPath:=ExtractFilePath(Application.Exename)+'TXT';
  ForceDirectories(s);
  Filename:=TxtPath+'\report.txt';
end;
PM MAIL   Вверх
Dron84
Дата 25.11.2005, 14:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: нет
Всего: 1
Sergus
пиши так
Код

...    
function GetEXEPath: string;    
begin    
 result := ExtractFilePath(paramstr(0));    
end;    
...    
var
  Dir:string;
  Path:string;
begin
Dir:= GetEXEPath+'TXT';
ForceDirectories(Dir);
Path:=Dir+'\Report.txt';
...

и усё smile

Это сообщение отредактировал(а) Dron84 - 25.11.2005, 14:28
PM MAIL   Вверх
Sergus
Дата 25.11.2005, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 22.11.2005

Репутация: нет
Всего: нет
Я сделал вот так:
Код

FileName:=(ExtractFilePath(Application.ExeName)+'\txt\report.txt');

и получил то, что хотел... Всем спасибо smile
PM MAIL ICQ   Вверх
Dron84
Дата 25.11.2005, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: нет
Всего: 1
Sergus
Код

FileName:=(ExtractFilePath(Application.ExeName)+'\txt\report.txt');

этот код будет работать только в том случае если у тебя папка TXT уже существует, иначе будет ошибка о ненахождении пути...
PM MAIL   Вверх
Guest
Дата 25.11.2005, 15:18 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Snowy, вы не много ошиблись
Код

var
  TxtPath: string;
  Filename: string;
begin
  TxtPath:=ExtractFilePath(Application.Exename)+'TXT';
  ForceDirectories(TxtPath);
  Filename:=TxtPath+'\report.txt';
end;
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0979 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.