Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Проблема с ini

Автор: novichek 28.2.2008, 12:57

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

Код


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

'NameProducte' <> 'NameProduct'

Автор: novichek 28.2.2008, 13:56

Код


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

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

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

Автор: X-Vlad 28.2.2008, 14:53

Код


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;

Автор: novichek 28.2.2008, 15:09

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

Автор: Poseidon 29.2.2008, 11:11

Цитата(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, русские буквы в пути к файлу прекрасно обрабатываются. Дело, видимо, было в другом.

Автор: X-Vlad 29.2.2008, 12:16

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