Delphi初心者のための寺子屋

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

47:デフォルトの名無しさん
05/12/01 23:13:41
>>39
　　　　p:=0;
　　　　cnt:=0;
　　　　str:=Memo1.Text;
　　　　len:=length(sword);

　　　　repeat
　　　　　　　　ap:=Pos(sword, copy(str, p, High(Integer)));
　　　　　　　　if ap>0 then
　　　　　　　　begin
　　　　　　　　　　　　p:=p+ap;
　　　　　　　　　　　　Inc(cnt);
　　　　　　　　　　　　Inc(p, len);
　　　　　　　　end;
　　　　until ap=0;
　　　　ShowMessage(IntToStr(cnt));

次ページ

続きを表示

1を表示