Hi Klaus,
ich gebs auf
Natürlich wollte ich die Zeilennummer haben. Hier die x-te Korrektur:
Delphi-Quellcode:
function GetMsgStartLine(Identifier: String): Integer;
var Counter : Integer;
begin
Result := -1;
For counter := 0 to MyStringList.Count -1 do begin
IF Pos(Identifier, MyStringList.Strings[Counter]) > 0 then begin
Result := Counter;
Exit;
end;
end;
end;
Ich hoffe das war's jetzt. wenn einem noch was auffällt, her damit.