Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

From...   Найти похожие ветки 

← →
DJ X   (2002-01-16 16:36) [0]

Я использую в своей проге INI-файл. Почему, когда я читаю значение из INI в переменную, получаю в переменной всегда значение по умолчанию, даже если значение в файле существует? Если использовать ShowMessage, где в качестве параметра выступает функция чтения (из INI, конечно), то получаем, то что надо.

---

← →
Юрий Федоров   (2002-01-16 16:55) [1]

Код в студию

---

← →
DJ X   (2002-01-16 16:58) [2]

Не понял???

---

← →
Turalyon   (2002-01-16 17:03) [3]

Привиди пожалуйста исходный текст программы, точнее то метсо где ты считываешь данные из ini - файла.

---

← →
IronHawk   (2002-01-16 17:07) [4]

>>> DJ X ©


Дай нам код исходный ..
и мы те скажем где у тя упущение !

---

← →
DJ X   (2002-01-17 17:24) [5]

uses IniFiles;

var Ini: TINIFile;

INI.IniFile := ExtractFilePath(Application.ExeName) + "file.ini";
sStartPage := INI.ReadString("General","StartPage","default"); {sStartPage = default}
ShowMessage(INI.ReadString("General","StartPage","default"));{OK}

---

← →
Юрий Федоров   (2002-01-17 17:47) [6]

Что-то странное.
я не нашел в справке св-ва TINIFile.IniFile
Насколько я помню, имя файла передается как параметр в конструкторе :
ini:=TIniFile.Create(ExtractFilePath(Application.ExeName) + "file.ini");
>DJ X
Покажи место кода, где создается экземпляр класса, и где производится запись

---

← →
DJ X   (2002-01-18 06:46) [7]

Так, я испльзую компонент для работы с реестром и INI из комплекта LMDTools. Извините, я неправильный исходный текст дал.
Настоящий текст: INI.IniFile := ExtractFilePath(Application.ExeName) + "file.ini";
sStartPage := INI.ReadString("General","StartPage","default"); {sStartPage = default}
ShowMessage(INI.ReadString("General","StartPage","default"));{OK}

Не uses IniFiles;, не var Ini: TINIFile;
я не использовал. I"m sorry...

---

← →
DJ X   (2002-01-22 11:28) [8]

Где умные люди?!

---

← →
panov   (2002-01-22 11:58) [9]

>DJ X © (22.01.02 11:28)
Там, где ты это компонент взял.

---

← →
aus   (2002-01-22 12:18) [10]

Не мудри, возьми простой TRegIniFile и не мучайся.

---

← →
DJ X   (2002-01-22 13:47) [11]

Я и TRegIniFile и TIniFile использовал - они несработали, поэтому я и решил попробовать компонент.
Какие есть соображения?

---

← →
panov   (2002-01-22 13:53) [12]

Посмотри примеры работы с TIniFile:

function GetIniName: String;
begin
Result := Application.ExeName;
Result := ChangeFileExt(Result, ".ini");
end;

procedure GetParmSection(const aSec: String;var t: TStringList);
var
tIni: TIniFile;
begin
tIni := TIniFile.Create(GetIniName);
tIni.ReadSectionValues(aSec,t);
tIni.Free;
end;

function GetParm(const aSec,aParm: String): String;
var
tIni: TIniFile;
begin
tIni := TIniFile.Create(GetIniName);
Result := tIni.ReadString(aSec,aParm,"");
tIni.Free;
end;

procedure WriteParm(const aSec,aParm,aValue: String);
var
tIni: TIniFile;
begin
tIni := TIniFile.Create(GetIniName);
tIni.WriteString(aSec,aParm,aValue);
tIni.Free;
end;

---

← →
dimsfdf   (2002-01-22 13:53) [13]

:)
sStartPage:STRING ???

попробуй
sStartPage.Assign(INI.ReadString("General","StartPage","default"))

---

← →
Digitman   (2002-01-22 14:08) [14]

"Умные" люди молчат, потому что не занимаются , как правило, слепым перебором подходящих инструментов по принципу "авось сработает" .. то, что ты делаешь, похоже на ситуацию "сварил суп, че-то дерьмовый на вкус, может вместо соли сахар добавить ? а , может, песку речного ? авось получится".
"Умные" люди также предпочитают избегать использования сторонних, подозрительных, неотлаженных и слабодокументированных компонентов для реализации простейшей (стандартной !) задачи, если она реализуется встроеннымии и достаточно проверенными компонентами.
Поэтому убирай свой LMDTools, возвращай на место IniFiles и ищи ошибку в коде, использующем стандартный TIniFiles.

Кстати, а секция "General" и в ней непустой ключ "StartPage" действительно существуют в ini-файле твоем ? Есть в этом уверенность у тебя ?

---

← →
DJ X   (2002-01-22 14:41) [15]

Секция "General" и в ней непустой ключ "StartPage" действительно существуют (я специально создал тестовый файл).

---

← →
Digitman   (2002-01-22 14:46) [16]

Тогда изучи и следуй примеру, любезно предоставленного тебе by <panov>

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.005 c