Delphi初心者のための寺子屋

Delphi初心者のための寺子屋 at TECH

66:デフォルトの名無しさん
05/12/09 04:07:45
>>64-65
AnsiStrPosを使うように変更しました
よろしくお願いします

function SearchAndPos(const SubStr, Str: string; var PosArray: TPosArray): integer;
var
　　　　PStr:　　　　 PChar;
　　　　PBgmStr:　　　　PChar;
　　　　PSubStr:　　　　PChar;
　　　　Cnt:　　　　Integer;
　　　　Len:　　　　Integer;
begin
　　　　Cnt:=0;
　　　　Len:=Length(SubStr);

　　　　PBgmStr:=PChar(Str);
　　　　PStr:=PBgmStr;
　　　　PSubStr:=PChar(SubStr);

　　　　repeat
　　　　　　　　PStr:=AnsiStrPos(PStr, PSubStr);
　　　　　　　　if (PStr<>nil) then
　　　　　　　　begin
　　　　　　　　　　　　Inc(Cnt);
　　　　　　　　　　　　SetLength(PosArray, Cnt);
　　　　　　　　　　　　PosArray[Cnt-1]:=PStr-PBgmStr;
　　　　　　　　　　　　Inc(PStr, Len);
　　　　　　　　end;
　　　　until PStr=nil;

　　　　result:=Cnt;
end;

次ページ

続きを表示

1を表示