How'd you get it compile without declaring that integer variable? ;-)
--- On Tue, 10/6/09, Andries Bos <[email protected]> wrote: From: Andries Bos <[email protected]> Subject: Re: [delphi-en] Re: counting occurances of unique words To: [email protected] Date: Tuesday, October 6, 2009, 10:50 PM Thanks for all your ideas and replies. I managaged to do the trick using the code: StringList.Objects[ I] := TObject(Succ( Integer(StringLi st.Objects[ I]))); regards ____________ _________ _________ __ Slide scanning / dia's scannen vanaf / from E0,08c www.scancare. nl ____________ _________ _________ __ ____________ _________ _________ __ From: emmanuellamy <la...@bellsouth. net> To: delphi...@yahoogrou ps.com Sent: Wed, October 7, 2009 4:42:06 AM Subject: [delphi-en] Re: counting occurances of unique words I have accomplished something similar using a TClientDataset with 2 fields on it: Words & CountOfWord. I copied the TStrings.Text of my container into a string variable and iterated through it looking for blank spaces. The first occurence of "blank space" I copied the string to another string variable, retrieve the word and save it into my TClientDataset, creating a new row for new word and counting CountOfWord + 1 for existing words. Deleting the words found from the string image contained in the second string variable. That worked fine for me! HTH. Emmanuel --- In delphi...@yahoogrou ps.com, Andries Bos <andriesbos@ ...> wrote: > > Hello > > a simple question, but I can't remember the answer. > > I'm scrolling through a list of strings one by one (e.g. all words in a rich > edit) and I want to count how much unique words I have and how often these > words have been used. > > any ideas? > > regards, Andries > > > > ____________ _________ _________ __ > > Slide scanning / dia's scannen > vanaf / from > E0,08c > www.scancare. nl > > ____________ _________ _________ __ > > > > > [Non-text portions of this message have been removed] > [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
