Delphi初心者のための寺子屋

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

85:デフォルトの名無しさん
05/12/20 06:50:34
>>78-80
function CountAlphaWord(const str:　　　　AnsiString):　　　　Integer;
var
　　　　i:　　　　Integer;
　　　　cnt:　　　　Integer;
　　　　isAlphaNow:　　　　Boolean;
　　　　isAlphaPrev:　　　　Boolean;
begin
　　　　isAlphaPrev:=False;

　　　　cnt:=0;
　　　　i:=1;

　　　　while (i <= Length(str)) do
　　　　begin
　　　　　　　　isAlphaNow:=False;

　　　　　　　　if ( (str[i] in LeadBytes)) then
　　　　　　　　begin
　　　　　　　　　　　　Inc(i,2);
　　　　　　　　end
　　　　　　　　else
　　　　　　　　begin
　　　　　　　　　　　　if (str[i] in ['a'..'z', 'A'..'Z']) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　isAlphaNow:=True;
　　　　　　　　　　　　end;
　　　　　　　　　　　　Inc(i);
　　　　　　　　end;

次ページ

続きを表示

1を表示