Textdatei Richtig Verarbeiten

[Klaus01]

Hallo,

vielleicht so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
var 
  F:TextFile; 
  tmp : String; 
begin 
  If OpenDialog1.Execute Then 
    Begin 
    AssignFile(F,OpenDialog1.Filename); 
    Reset(F); 
    while not eof(F) do
      begin
       Readln(F,tmp); 
       // mache etwas mit tmp
      end;
    CloseFile(F); 
  end; 

end;

Und demnächst vielleicht selber die Suche bemühen.

Grüße
Klaus