Pascal and Delphi

Pascal and Delphi RSS

Character/letter count

Thread Solved

•

Join Date: Jan 2006

Posts: 16

Reputation: Katrix36 is an unknown quantity at this point

Solved Threads: 0

Katrix36

Offline

Newbie Poster

Character/letter count

Mar 3rd, 2006

Hey all,

Would anyone be able to help me out with some code to count how many characters there are in a string e.g.

A label disaplys the number of characters that the user has typed into a memo.

Katrix36

•

Join Date: Mar 2006

Posts: 233

Reputation: Lord Soth is an unknown quantity at this point

Solved Threads: 4

Lord Soth

Offline

Posting Whiz in Training

Re: Character/letter count

Mar 17th, 2006

Hi,

If you count the white spaces and CRs and LFs as character too, you can simply use Edit1.Text := IntToStr(Len(Memo1.Text)); to show the number of chars on Edit1 and if you put the above code on Memo1's OnChange then it will show the char count at real time as the user writes.

Loren Soth

•

Join Date: Apr 2006

Posts: 5

Reputation: daycartes is an unknown quantity at this point

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 
 Pascal and Delphi Syntax (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;]
[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;]