Kann ich nicht nachvollziehen:
Delphi-Quellcode:
Var
s : TStringlist;
i,j : Integer;
x : String;
m : TMemIniFile;
begin
s :=Tstringlist.create;
For i:=0 to 1000 do begin
x := Format('Section_%d',[i]);
s.add('['+x+']');
For j:=1 to 100 do
s.add('Value_'+x+'_'+IntToStr(j));
End;
s.savetofile ('c:\test.reg');
s.clear;
m := TMemIniFile.Create('c:\test.reg');
m.ReadSections(s);
Showmessage(IntToStr(s.count));
m.free;
s.Free;
end;
Hingerotzt, liefert aber korrekte '1001'.