lstrpos ?

[CalganX]

Hi,
für Strings (in PChar kannst du das ganze ja umschreiben, funktioniert ja fast genauso [AFAIK zumindest ]):

Delphi-Quellcode:

function StrPos(ASubStr: string; AHaystack: string): integer;
var
  i: integer;
  sTemp: string;
begin
  for i:=1 to length(AHaystack) do begin
    sTemp := Copy(AHaystack, i, length(ASubStr));
    if sTemp = ASubStr then begin
      Result := i;
      Exit;
    end;
  end;
  Result := -1;
end;

SourceCode habe ich nicht getestet, sollte aber einwandfrei funktionieren.

Chris