Funcoes - contando quantas palavras existem

Top  Previous  Next

function CountedWords(const WordText:String):Integer; 

// deve ser declarada na clausua Var da unit: 

// KeyCharsSet: set of Char = [ '.', ',', '''', ';', ':', ' ',#13,#10,#9 ]; 

var 

i: Integer; 

F1,F2: boolean; 

begin 

result := 0

for i := 1 to length(WordText)-1 do 

begin 

F1 := not( WordText[i] in KeyCharsSet) 

F2 := not( WordText[i+1in KeyCharsSet) 

if (F1 and not F2) or ((i = length(WordText)-1)and F2) then 

begin 

result := result + 1

end

end

if(length(WordText)=1)and Not( WordText[1in KeyCharsSet) then 

begin 

result := 1

end

end