- 69 名前：デフォルトの名無しさん mailto:sage [2005/12/09(金) 20:18:26 ]
- >>68
function AnsiPosEx(const SubStr, S: string; initPos: integer): Integer;
var
PSubStr: PChar;
PS: PChar;
PBgn: PChar;
PPos: PChar;
begin
PSubStr:=PChar(SubStr);
PS:=PChar(S);
PBgn:=PS+initPos;
PPos:=AnsiStrPos(PBgn, PSubStr);
result:=PPos-PS+1;
if result<0 then
begin
result:=0;
end;
end;
