Delphi初心者のための寺子屋

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

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

次ページ

続きを表示

1を表示