Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

StringList Objects

Posted on 1998-10-16
4
Medium Priority
?
738 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 100 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

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

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

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
Suggested Courses

971 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