Solved

StringList Objects

Posted on 1998-10-16
4
706 Views
Last Modified: 2013-11-23
I am interested in using the Objects property of a StringList to associate objects with certain Lines of a RichEdit. However, Delphi's help says that certain StringList objects ignore the Object property because "they don't make sense, like Lines in a Memo". I'm not sure exactly what that means but is there a way to associate Objects with Lines in a memo (or richedit) object?
0
Comment
Question by:jcglen
  • 2
4 Comments
 

Author Comment

by:jcglen
ID: 1343156
Edited text of question
0
 
LVL 12

Accepted Solution

by:
rwilson032697 earned 50 total points
ID: 1343157
What the help is saying is that the designers of the TMemo (and probably TRichEdit) objects couldn't think of a reason to do it and so didn't.

The easiest way is to have a TList that stores the objects. You could match the index of a line of text in the lines property to the index of an object in the TList object.

You will need to manage what happens when the user deletes/adds lines etc whch may be a little awkward, but if it is to be read-only this should be fine...

Cheers,

Raymond.
 
0
 
LVL 1

Expert Comment

by:Edo082297
ID: 1343158
Hello jcglen
   Associating line indexes with TList pointers is not a good idea in my opinion. I use the Objects member (or related Data member in TListItems) a lot because they are very useful. There are two ways to do what you are trying to do. First of all, since the Lines property of a TRichEdit is itself of type TStrings, you could associate your object with Lines.Objects. The second more complicated thing keeps your objects associated with your string list (which is what you want to do, right?).

First, declare a small class, called TLine:

  TLine = class
  private
    FLine : String;
  end;

Now, to associate a given line with your object, create an object of type TLine and associate it with your string list member.

  MyLine := TLine.Create;
  MyLine.FLine := RichEdit1.Lines[y];
  MyStringList.Objects[x] := MyLine;

Now you have kept the text in your string list and have an associated object. You can dereference the string like this:
 
  TLine(MyStringList.Objects[AnIndex]).FLine;

You can also search your stringlist using IndexOf, IndexOfObject, and so on (just like you can with Lines). The Objects and Data members of various classes in Delphi are very powerful in this regard.

Finally, in your destructor, you have to free the memory you have allocated for each of these objects. Do the following:

  for i := 0 to Pred(MyStringList.Count) do
    TLine(MyStringList.Objects[x]).Free;

Regards,
Edo

0
 
LVL 1

Expert Comment

by:Edo082297
ID: 1343159
I am tired, there is a mistake in the destructor, [x] should read [i].

0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question