Prubowałem wyciągnoć z pliku INI liczbę wszystkich sekcji. Zrobiłem to tak:
var
IloscSekcji : integer;
Sekcje: TStrings;
INI : TINIFile;
begin
Sekcje := TStrings.crate;
INI := TINIFile.crate('c:\plik.ini');
INI.ReadSections(Sekcje);
IloscSekcji := Sekcje.Count;
INI.free;
end;
No i to mi się niechce poprawnie skompilować :(. Bez przerwy
pisze jakiś "abscrakt error".
Uzyj TStringList.
var
IloscSekcji : integer;
Sekcje: TStrings;
INI : TINIFile;
begin
Sekcje := TStrings.crate; <- a może tak Create !!
INI := TINIFile.crate('c:\plik.ini'); <- to samo !!
INI.ReadSections(Sekcje);
IloscSekcji := Sekcje.Count;
INI.free;
end;
pomyliłem się. Miało być create
TStrings jest klasą "abstrakcyjną" (podobnie jak np. TStream) i nie możesz jej używać bezpośrednio. Ale możesz zastosować TStringList, jak to zasugerował MatroX.