Hi Leute,
beginner77 hat mich auf einen Fehler aufmerksam gemacht. Hier noch mal der korrekte Code:
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;
Gruß oki