Delphi初心者のための寺子屋

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

88:デフォルトの名無しさん
05/12/23 05:34:45
>>87
function SearchAlphaWord(const str: string; var pl: TPosLenArr): integer;
var
　　　　i:　　　　Integer;
　　　　cnt:　　　　Integer;
　　　　isAlphaPrev:　　　　Boolean;
　　　　isAlphaNow :　　　　Boolean;
　　　　iPrev:　　　　Integer;
begin
　　　　isAlphaPrev:=False;

　　　　cnt:=0;
　　　　i:=1;

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

　　　　　　　　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を表示