[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

From: ksudar@erols.com

>Does anyone know how to carry out a word count for the delphi richedit
>component ??
Someone posted this a few weeks ago.. I tried it and it seems to work.

--------------------------------------------------------------------------------

function GetWord: boolean;
var s: string; {presume no word>255 chars}
     c: char;
begin
result:= false;
s:= ' ';
while not eof(f) do
        begin
        read(f, c);
        if not (c in ['a'..'z','A'..'Z'{,... etcetera}]) then break;
        s:=s+c;
        end;
result:= (s<>' ');
end;
procedure GetWordCount(TextFile: string);
begin
        Count:= 0;
        assignfile(f, TextFile);
        reset(f);
        while not eof(f) do if GetWord then inc(Count);
        closefile(f);
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]