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

Вниз

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

← →
race1   (2002-07-06 16:53) [0]

Можете прояснить ситуацию с сабжем? когда пишем - указываем 3 параметра, а когда читаем - 2. Напрмер, я хочу так: WriteString("section1", "value", true\false) и узнать true или false, и для етого мне придётся писать свою процедуру, которая будет выдёргивать true\false? Ибо ReadSection нам даёт всё сразу, т.е. value=true\false

---

← →
Anatoly Podgoretsky   (2002-07-06 17:36) [1]

Вообще то ReadString также имеет три параметра, но это не важно, так как не требуется писать специальной процедуры для анализа
Value := ReadString(Section, Ident, Default);
Твой варианта value=true\false физически неосуществим

---

← →
race1   (2002-07-07 16:36) [2]

всё, работает, но теперь другая проблемма - как читать ЗначеНИя, число которых меняется?

---

← →
Dinara   (2002-07-08 01:30) [3]

Как это число значений меняется?

---

← →
race1   (2002-07-08 10:41) [4]

Например, так:
file.ini{
[section]
param1=qwer
param2=qwer
param3=qwer
}
ето один вариант, потом пользовательможет сделать так
file.ini{
[section]
param1=qwer
param2=qwer
param3=qwer
param4=qwer
param5=qwer
param6=qwer
}
потом захочет и сделает так
file.ini{
param1=qwer
}
так вот - Eof в TIniFile нету, как её заменить? Читать все значения ReadSectionValue и потом значения самому выдёргивать?

---

← →
Vitaly   (2002-07-08 11:02) [5]

Я, например, читаю так:
phno := 1;
while ini.ReadString("PhoneBook", "phone"+intToStr(phno), "") <> "" do
begin
setLength(phBook, phno);
phBook[phno-1] := ini.ReadString("PhoneBook", "phone"+intToStr(phno), "");
inc(phno);
end;

---

← →
Dinara   (2002-07-08 11:46) [6]

Я просто переписала функцию ReadSectionValue и сразу получаю список значений.

procedure ReadValuesFromIniSection(const IniFile: TIniFile; const Section: string; Strings: TStrings);
var
KeyList: TStringList;
I: Integer;
begin
KeyList := TStringList.Create;
try
IniFile.ReadSection(Section, KeyList);
Strings.BeginUpdate;
try
Strings.Clear;
for I := 0 to KeyList.Count - 1 do
Strings.Add(IniFile.ReadString(Section, KeyList[I], ""))
finally
Strings.EndUpdate;
end;
finally
KeyList.Free;
end;
end;


---

← →
race1   (2002-07-09 15:44) [7]

Создал поток, в потоке процедура, в процедуре кусок

procedure proc;
var
S: String;
begin
s:=List[i];
end;

Внимание! Вопрос! Почему s равна первому символу List[i]? в List[i] много символов!

---

← →
race1   (2002-07-09 15:46) [8]

тоесть я хотел сказать спасиба, работает :))

---

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

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

Наверх

Память: 0.45 MB
Время: 0.004 c