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;