Delphi初心者のための寺子屋

Delphi初心者のための ..

69:デフォルトの名無しさん
05/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;

次ページ