VPF::GetCurrentDir - Форум программистов

artem1987

Дата 4.9.2006, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

как получит путь к директории в котором лежит проект?
GetDir или GetCurrentDir дает C:\Program Files\Common Files\.....

--------------------

Don't ask me why, ask me how.

Snowy

Дата 4.9.2006, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 192
Всего: 484

Код


ExtractFileDir(ParamStr(0));

GetDir даёт правильное значение - это текущая папка, а не папка программы.

artem1987

Дата 4.9.2006, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

спасибо ,а как работать с типом TSearchRec
сложность возникает с тем как передать значение поля этой структуры типа TFileName в функцию FileOpen
где используется string?

--------------------

Don't ask me why, ask me how.

Yanis

Дата 4.9.2006, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

artem1987

Код

var
  s: string
begin
  func(TFileName(s));
end;

--------------------

*щёлк*

artem1987

Дата 4.9.2006, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

так у меня этот TFileName есть мне бы из него вытащить стринг

--------------------

Don't ask me why, ask me how.

Alexeis

Дата 4.9.2006, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  s : TSearchRec;
begin
  s.Name := ExtractFileDir(ParamStr(0));
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Yanis

Дата 4.9.2006, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

artem1987
Это может повергнуть тебя в шок, но TFileName и есть string.

--------------------

*щёлк*

artem1987

Дата 4.9.2006, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

alexeis1, спасибо,этим я и занимаюсь только SearchRec получаю из FindFirst
а вот тогда подскажите почему SR.Name : TFileName не присваевается переменной s : string?

--------------------

Don't ask me why, ask me how.

Snowy

Дата 4.9.2006, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 192
Всего: 484

Цитата(artem1987 @ 4.9.2006, 14:13

)

так у меня этот TFileName есть мне бы из него вытащить стринг

Они совместимы.
ЗЫ. Посмотри справку по FindFirst - там есть подробный пример.

Alexeis

Дата 4.9.2006, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(artem1987 @ 4.9.2006, 15:11

)

SR.Name : TFileName не присваевается переменной s : string?

Как не присвивается? Только что проверил:

Код


var
  schr : TSearchRec;
  s    : AnsiString;
begin
  s := schr.Name;
  schr.Name := s;
end;

все компилится без ошибок!

--------------------

artem1987

Дата 4.9.2006, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

может это просто в watches не видно

--------------------

Don't ask me why, ask me how.

Alexeis

Дата 4.9.2006, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(artem1987 @ 4.9.2006, 16:34

)

может это просто в watches не видно

Это не имеет значение - экзешник то запускается...

--------------------

Akella

Дата 6.9.2006, 08:36 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Код

ExtractFileDir(Application.exename);

Snowy

Дата 6.9.2006, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 192
Всего: 484

Akella, привет... Ты уже вышел из анабиоза? smile

Ответ давно дан smile

Application.exename - это частный случай.
Exename - это пропертя.

Код


property ExeName: string read GetExeName;

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

Спрашивается - нафига нам такие завороты, когда можно получить напрямую и будет работать всегда, а не только с формами:

Цитата(Snowy @ 4.9.2006, 13:36

)

ExtractFileDir(ParamStr(0));

Akella

Дата 6.9.2006, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Цитата(Snowy @ 6.9.2006, 09:43

)

Akella, привет... Ты уже вышел из анабиоза? Ответ давно дан

да я же просто привёл ещё один вариант, не был я в анбиозе

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »