Problem mit großer Textdatei

[Sir Rufo]

Beim nächsten Mal bitte die Delphi-Tags nutzen

Delphi-Quellcode:

var
  Dateipfad :         String;
  FrameNumber, i, j : Integer;
  Datensatz :         TStringList;
  Positionen :        Array of Integer;
  Abstaende :         Array of Integer;

  { TForm1 }

procedure TForm1.Button1Click( Sender : TObject );
begin
  FrameNumber := StrToInt( Edit2.text );
  Dateipfad   := Edit1.text;
  Datensatz   := TStringList.Create;
  Datensatz.LoadFromFile( Dateipfad );
  SetLength( Positionen, FrameNumber + 1 );

  For i := 1 To Datensatz.Count - 1 Do
    Begin
      If Pos( 'Frame', Datensatz.Strings[i] ) > 0
      Then
        Begin
          Positionen[i] := i; // hier könnte ein Überlauf passieren, wenn i > FrameNumber
          ListBox1.Items.Add( IntToStr( Positionen[i] ) );
        End;
    end;

  Datensatz.Free;
end;

end.

1. Du prüfst niemals nach, ob das Array Positionen noch Platz hat
2. Das Array hat beim Befüllen "Löcher", da ja wohl nicht in jeder Zeile das Wort "Frame" zu finden ist
3. Das Befüllen der ListBox dauert hier auch seine Zeit, da bei jedem Einfügen die ListBox wieder neu gezeichnet wird
   Abhilfe schafft
   
   Delphi-Quellcode:

   ListBox.Items.BeginUpdate;
   try
     // ListBox mit allem Möglichen füllen
   finally
     ListBox.Items.EndUpdate;
   end;