05/12/05 21:38:25
>>49
日本語処理にも気をつけました
よろしくお願いします。
const
sword='Delphi';
var
str: AnsiString;
cnt: Integer;
PStr: PChar;
begin
cnt:=0;
str:=Memo1.Text;
PStr:=PChar(str);
repeat
PStr:=AnsiStrPos(PStr, sword);
if (PStr<>nil) then
begin
if (StrByteType(PStr, 0)=mbSingleByte) then
begin
Inc(cnt);
end;
Inc(PStr);
end;
until PStr=nil;
ShowMessage(IntToStr(cnt));
end;