Zitat von
worker:
Schau Dir die Reihenfolge der Parameter an
Arbeite mit try-finally
Denke dran, dass das Ergebnis von Pos die Position innerhalb der Zeile ist; nicht innerhalb der Datei
oh verdammt dann wird mir einiges klar... also so
Delphi-Quellcode:
var suchstr,x,y:string;
i : integer;
q : Tstringlist:
begin
suchstr:='458756';
q := TStringlist.create.
q.loadfromfile('daten.txt');
for i:= 0 to q.count-1 do begin
try
y:= pos(q.strings[i],suchstr);
finally
showmessage(q[i]);
end;
end;