Speicher Problem

[Thebe]

Ich würds so machen:

Delphi-Quellcode:

procedure TForm2.Paint; 
var 
  sl: TStringList; 
  txt: TextFile; 
  s: string; 
begin 
  inherited; 
  if fFirstPaint then 
  begin 
    fFirstPaint := false; 
    sl := TStringList.Create; 
    try 
      Caption := 'Datei wird eingeladen...';
      Application.ProcessMessages;
      sl.LoadFromFile(s);
      Caption := IntToStr(sl.Count) + ' Zeilen geladen'; 
    finally 
      sl.Free; 
    end; 
  end; 
end;

Dann sparst Du dir das lahme Einlesen von Zeile für Zeile aus der Datei, Du benutzt sowieso StringList, da kann man das auch gleich so machen. Wenn die gesamte Datei zur gleichen Zeit im Speicher sein muss haste keine andere Chance RAM zu sparen.