RSS

Re: Character/letter count

Please support our Pascal and Delphi advertiser: Programming Forums

Character/letter count

•

Join Date: Apr 2006

Posts: 5

Reputation: daycartes is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

daycartes

Offline

Newbie Poster

Re: Character/letter count

Apr 24th, 2006

try the following, to count the number of letters in a particular line(0)

Help with Code Tags

(Toggle Plain Text)

[procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
begin
a:=length(Memo1.Lines[0]);
label1.Caption:=IntToStr(a);
end;]
 
or to count the number of total letters (in fact characters)
[procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:Integer;
begin
a:=length(Memo1.Lines[0]);
label1.Caption:= IntToStr(length(Memo1.Lines.Text)) ;
end;]

Last edited by cscgal : May 9th, 2006 at 11:11 pm.

DaniWeb Home > Forums > Software Development > Pascal and Delphi > Character/letter count

Re: Character/letter count

Character/letter count

Re: Character/letter count