Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Вниз

Как считать информацию из *.ini файла ?   Найти похожие ветки 

 
Lizard   (2002-02-22 21:10) [0]

Есть .ini файл, который имеет след. строки:

[Main]
0=param0
1=param1
2=param2
3=param3

Как считать эти строки (точнее их значения) из файла File.ini
и поместить поочередно в listbox ?

Очень прошу, помогите. Я уверен, что для Вас это пара пустяков.
Спасибо.


 
Вадим   (2002-02-22 21:23) [1]

см. TIniFile


 
Miwa   (2002-02-23 07:45) [2]


...
uses TIniFile;
...
var ini: TIniFile;
tmpstring:string;
begin
ini:=TIniFile.Create("yourfile");
tmpstring:=ini.ReadString("main","0","default value");
listbox1.items.add(tmpstring);
end;

Только учти, если ты yourfile пропишешь без бути (myfile.ini), програ будет искать его в папке %windir%\system.


 
Anatoly Podgoretsky   (2002-02-23 10:07) [3]

TIniFile.ReadSection


 
Lizard   (2002-02-24 18:27) [4]

Спасибо!

А как добавить N-ное количество строк, когда нам оно неизвестно?
Например, если в файле всегда меняется кол-во строк, как выяснить
сколько их и потом загрузить в listbox?

[Main]
0=param0
1=param1
2=param2
3=param3
....
n=paramN




 
Anatoly Podgoretsky   (2002-02-24 18:48) [5]

Если тебе неизвестно количество строк то никак, но если известно то

for I := 0 to N do IniFile.riteString("Main", IntToStr(I),XXXX);

Ты бы взглянулв в хелп для начала


 
Shirson   (2002-02-27 09:08) [6]

Анатолий, ты букву w пропустил :)

А насчет неизвестности количества строк... А что мешает сделать так:


var TS:TString;
IniFile:TInifile;
A:integer;
Begin
...
ReadSection ("main",TS)
For A:=1 to TS.Count do
IniFile.writeString("Main",inttostr(A),XXXX);
...


 
Косильщик_Лужаёв   (2002-02-28 02:42) [7]

listbox1.Items.LoadFromFile("file.ini");



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

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

Наверх




Память: 0.45 MB
Время: 0.006 c
1-88520
Andrew_A
2002-05-15 22:06
2002.05.27
не могу разобраться, помогите...


4-88693
CaSHe
2002-03-24 01:47
2002.05.27
Шрифты и API


1-88505
Abu
2002-05-15 17:30
2002.05.27
Убрать конечные пробелы в строке ?


4-88680
Stupid
2002-03-27 17:55
2002.05.27
Помогите


3-88375
Hamster
2002-05-03 07:35
2002.05.27
как проверить наличие таблицы в базе ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский