asked on

Word Count Function

Hi,
I need to get / write a word counting function for a TMemo object. Anyone got any code or ideas?
Cheers.

ASKER CERTIFIED SOLUTION

d003303

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

PiersBull

ASKER

Hi amigo,
I've tried the code, but it gives me an unknown identifier at Buffer[index]. Any ideas?
Cheers.

d003303

oops, a little typo. replace the line
if (Buffer[Index] = #32) and (Buffer[Index + 1] <> #32)
with
if (TextBuf[Index] = #32) and (TextBuf[Index + 1] <> #32)

Slash/d003303

PiersBull

ASKER

Hi again,

Maybe I'm being thick, but how do I output the result in a messagebox? I've tried doing an IntToStr(WordCount), but the MessageBox command gives me a type mismatch. How do I output the result?
Points upa bit.
Cheers.

d003303

Application.MessageBox uses PChar strings. Declare a buffer string and typecast. e.g.
var MsgStr : string
begin
MsgStr := Format('I have found %s words in this text', [WordCount]);
Application.MessageBox(PChar(MsgStr), 'Note', mb_ok);
end;

Slash/d003303

PiersBull

ASKER

Thanx

PiersBull

ASKER

Hi amigo,
I've tried the code, but it gives me an unknown identifier at Buffer[index]. Any ideas?
Cheers.

PiersBull

ASKER

Hi amigo,
I've tried the code, but it gives me an unknown identifier at Buffer[index]. Any ideas?
Cheers.

PiersBull

ASKER

Hi amigo,
I've tried the code, but it gives me an unknown identifier at Buffer[index]. Any ideas?
Cheers.