Вниз
Скачать: CL | DM;

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

← →
GanibalLector ©   (2005-08-17 18:35) [0]

Имею файл некоторой программы,в котором примерно такое содержание :

[Загальні]
2    8 Новая касса                
[Касири]

[Товари]
1  ОЛЛИ75% 0,5 3.09    
2  ОЛЛИ75% 0,25 1.83    
3  ОЛЛИ60% 0,5 2.79  
     

1 1
2 1
1 2
2 2
1 3
2 3


Вроде как похоже на ini,но и не ini.В ini обычно присутствует = т.к.

Within each section, actual data values are stored in named keys. Keys take the form:
<keyname>=<value>


Ну да ладно... Написал пару строк:

var Ini:TIniFile;
begin
 with OpenDialog1 do
 begin
   Filter:="EliteMarket|*.em";
   if Execute and (FileName<>"") then
   begin
     Ini:=TIniFile.Create(FileName);
     try
       Ini.ReadSections(Memo1.Lines);
     finally
       Ini.Free;
     end;
   end;
 end;
end;


В Memo появились имена секций: Загальні,Касири,Товари

Но!!! При попытке выйти на конкретную секцию получаю неудачу :(

...
if Ini.SectionExists("Товари") then
Windows.Beep(800,200);// Для примера
...


Если же самому создать секцию,то все прекрасно работает.

...
Ini.WriteString("Ganibal","Lector","very LOL");
Ini.UpdateFile;
if Ini.SectionExists("Ganibal") then
Windows.Beep(800,200);// Для примера
...


Что за чудеса и как с ними бороться???
P.S.Также заменял имена секций на английские.Результат тот-же :(


← →
Styx   (2005-08-17 18:39) [1]

Зачем работать через TIniFile с не-ini файлом?


← →
GanibalLector ©   (2005-08-17 18:41) [2]

2 Styx   (17.08.05 18:39) [1]
Хорошо,предложите как?


← →
KilkennyCat ©   (2005-08-17 18:46) [3]

http://www.delphirus.net.ru/modules.php?name=Files&go=view_file&lid=12


← →
TUser ©   (2005-08-17 18:50) [4]

TStrings.NameValueSeparator


← →
GanibalLector ©   (2005-08-17 18:52) [5]

2 TUser ©   (17.08.05 18:50) [4]
Это Вы о чем?


← →
TUser ©   (2005-08-17 19:06) [6]

Я имею в виду - загрузить в TStringList и установить нужный разделитель. Потом с ним работать.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c
1-1124796950
Jolik
2005-08-23 15:35
2005.09.11
exception в finally


1-1124258675
kron
2005-08-17 10:04
2005.09.11
pop3 в delphi 7.0


6-1116832048
Sour Smile
2005-05-23 11:07
2005.09.11
Как по IP-адресу получить имя компьютера в локальной сети?


6-1117072378
Usachev
2005-05-26 05:52
2005.09.11
с чем связанна эта ошибка


6-1116958843
Dj_Dreamer
2005-05-24 22:20
2005.09.11
Реализация IPSec в Delphi




   Наверх