Teile von Textdateien in Listbox darstellen & aktualisieren

[City Light]

Also ich bin erstmal bis hier... nur bringt dich das ja auch leider noch nicht weiter. Weil diese Routine nur die nummer des Technicker aus liest.Auch die wo OK mit bei ist...ich wert aber dran bleiben bis ich was neues hab. Vielleicht gibt es ja einen hier im Forum der das schon mal gemacht hat?

Delphi-Quellcode:

var
  a: integer;
  sl,gefunden: TStringlist;
begin
  sl := TStringlist.Create;
  sl.LoadFromFile('C:\Test.Txt');
  gefunden := TStringlist.Create;
  try
  for  a := 0 to  sl.count - 1 do
    begin
      if pos('143', sl.Strings[a]) <> 0 then   //Der Techniker 143
      gefunden.Add(sl.Strings[a]);
       Form1.Listbox1.Items.Text := gefunden.Text;
     end;
  finally
    sl.Free;
    gefunden.free;
 end;

MFG