Tstringlist hat ein Maximum von 3277 Zeilen?

[baumina]

Hab mal nen kleinen Test gemacht. Showmessage bringt mir die erwarteten 4500.

Delphi-Quellcode:

procedure TForm26.Button1Click(Sender: TObject);
var
  i : Integer;
  s : TStringList;

begin
  s := TStringList.Create;
  for i := 1 to 4500 do
  begin
    s.Add('[Sect'+IntToStr(i)+']');
  end;
  s.SaveToFile('c:\temp\test.ini');
  s.Free;
end;

procedure TForm26.Button2Click(Sender: TObject);
var
  ini : TIniFile;
  s : TStringList;

begin
  ini := TIniFile.Create('c:\temp\test.ini');
  s := TStringList.Create;
  ini.ReadSections(s);
  ini.Free;
  showmessage(IntToStr(s.Count));
  s.Free;
end;