Mega Code Archive
Count words in a memo
<![CDATA[
Title: count words in a memo
Insert 1 label, 1 button and 1 memo.
procedure TForm1.Button1Click(Sender: TObject);
function Palabras(Link:string):integer;
var
n:integer;
befspace:boolean;
begin
befspace:=FALSE;
if Link='' then Result:=0 else Result:=1;
for n:=1 to Length(Link) do
begin
if befspace and
(Link[n]' ')and
(Link[n]#13)and
(Link[n]#10)
then Inc(Result);
befspace:=(Link[n]=' ') or
(Link[n]=#13) or
(Link[n]=#10);
end;
end;
begin
Label1.caption:=IntToStr(Palabras(Memo1.Text));
end;
end;
]]>