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;