Wolltest Du nich die Zeilennumer haben.
Delphi-Quellcode:
function GetMsgStartLine(Identifier: String): Integer;
var Counter, Index : Integer;
begin
Result := -1;
For counter := 0 to MyStringList.Count -1 do begin
Index := Pos(Identifier, MyStringList.Strings[Counter]);
IF Index > 0 then begin
Result := Index;
Exit;
end;
end;
end;
Hier bekommst Du die Position in der Zeile geliefert aber nicht die Zeile.
Result:=counter
sollte Dir die Zeilennummer geben.
Grüße
Klaus