Character/letter count

Expand Post »

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

Similar Threads

Word and Letter Count in C
hellp please in Java
Finding the Most Common Character in a String in Java
Homework Help/Feedback in C++
"String class" in Java

Katrix36

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Jan 2006

Permalink

Mar 17th, 2006

Re: Character/letter count

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

Lord Soth

Reputation Points: 28

Solved Threads: 4

Posting Whiz in Training

Offline

233 posts
since Mar 2006

Permalink

Apr 24th, 2006

Re: Character/letter count

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

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;]

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

daycartes

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Apr 2006

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: Sending keystrokes to MS Word

Next Thread in Pascal and Delphi Forum Timeline: change system date

DaniWeb Message

Cancel Changes

User Name
Password