VPF::Проблема с ini - Форум программистов

novichek

Дата 28.2.2008, 12:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

Народ вот написал такую вещь:

Код


procedure TLogin.FormCreate(Sender: TObject);
Var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create('Rsoft.ini');
  ShowMessage(Ini.ReadString('Main','NameProducte','Умолчание')); 
  Ini.Free;
end;

Файлик в моем каталоге присутствует:
[Main]
NameProduct=Rsoft

а он мне выводит заголовок формы 'Умолчание'. В чем проблема?

Gershkovich

Дата 28.2.2008, 13:44 (ссылка)

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

Загрузка ...

Бывалый

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

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

'NameProducte' <> 'NameProduct'

novichek

Дата 28.2.2008, 13:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


procedure TLogin.FormCreate(Sender: TObject);
Var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create('Rsoft.ini');
  Login.Caption:=Ini.ReadString('Main','NameProduct','Умолчание'); // читаем эту строку и показываем её в сообщении
  Ini.Free;
  if(FileExists(FileListPath))then
    LoadListXML;
end;

Все равно не отрабатывает...

Gershkovich

Дата 28.2.2008, 13:59 (ссылка)

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

Загрузка ...

Бывалый

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

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

Значит файл ini файл не находит.

Передай полный путь к файлу TIniFile.Create('c:\project\Rsoft.ini') и посмотри чё будет.

X-Vlad

Дата 28.2.2008, 14:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure TLogin.FormCreate(Sender: TObject);
Var
  Ini : TIniFile;
  aFilePath: string;
begin
  aFilePath := ParamStr (0); //берем путь к файлу программы
  if aFilePath[Length(aFilePath)] <> '\' then // ну тут понятно
    aFilePath := aFilePath + '\';
  Ini := TIniFile.Create(aFilePath + 'Rsoft.ini');
  try                   // если возникнет ошибка
    Login.Caption:=Ini.ReadString('Main','NameProduct','Умолчание'); // читаем эту строку и показываем её в сообщении
  finally   // освобождаем память
    Ini.Free;
  end;
  if(FileExists(FileListPath))then
    LoadListXML;
end;

Это сообщение отредактировал(а) X-Vlad - 28.2.2008, 14:55

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

Хорошая штука - комп..:)
www.x-vlad.com

novichek

Дата 28.2.2008, 15:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо всем) Я понял, у меня каталог с софтом назывался русскими буквами

Poseidon

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

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(X-Vlad @ 28.2.2008, 14:53

)

  aFilePath := ParamStr (0); //берем путь к файлу программы
if aFilePath[Length(aFilePath)] <> '\' then // ну тут понятно
aFilePath := aFilePath + '\';
  Ini := TIniFile.Create(aFilePath + 'Rsoft.ini');

Гм, X-Vlad, ты сам-то свой код проверял? ParamStr (0); вернет, как ты и написал, путь к файлу программы. Грубо говоря там будет 'C:\\Project.exe'. Далее ты смотришь, а не является ли последняя буква в этой строчке слешем? Если нет (а это так), то мы это тслеш добавляем. Получаем в aFilePath строку вида 'C:\\Project.exe\'. Ну и на последок создаем TIniFiles, ассоциируя его с файлом, который находится вот тут: 'C:\\Project.exe\Rsoft.ini'. Интересно, существует-ли такой путь???

Вообще, все это делается проще:
Ini := TIniFile.Create(ExtractFilePath(paramstr(0)) + 'Rsoft.ini');

novichek, русские буквы в пути к файлу прекрасно обрабатываются. Дело, видимо, было в другом.

Это сообщение отредактировал(а) Poseidon - 29.2.2008, 11:13

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

X-Vlad

Дата 29.2.2008, 12:16 (ссылка)

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

Загрузка ...

Опытный

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

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

сорри. очепятка.. забыл прикрутить ExtractFilePath smile

Это сообщение отредактировал(а) X-Vlad - 29.2.2008, 12:20

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

Хорошая штука - комп..:)
www.x-vlad.com

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