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
