PosEx für Delphi 5?

[Andidreas]

das hab ich mal selber geschrieben, sollte posex fast gleichen

Delphi-Quellcode:

function TMain_Form.fnPos(sRow, sChar : String; iVonSt : Integer) : Integer;
   
var
i, iLen : Integer;
   
begin
   
  iLen := Length(sRow);
   
  For i := iVonSt To iLen Do
  Begin
    If sRow[i] = sChar Then
    Begin
      fnPos := i;
      Break;
    End;
  End;
   
end;