Shulou(Shulou.com)06/02 Report--

This article focuses on "how to use StringList objects in Delphi to record dynamically generated objects". Interested friends may wish to have a look. The method introduced in this paper is simple, fast and practical. Let's let the editor take you to learn how to use StringList objects in Delphi to record dynamically generated objects.

StringList usage

In Delphi, if the program needs to create a large number of objects dynamically, then we can use StringList objects to manage these dynamically generated objects. The specific steps are as follows:

1. Create a StringList object:

OBJ: = TStringList.Create

2. Save dynamically generated objects:

OBJ.AddObject ('identity', 'object name')

3. Call the generated object:

(OBJ.Objects [serial number / OBJ.IndexOf ('identity')] as object type). Method or property

Or:

Object type (OBJ.Objects [serial number / OBJ.IndexOf ('identity')]). Method or property

4. Release dynamically generated objects:

(OBJ.Objects [serial number / OBJ.IndexOf ('identity')] as object type) .Free

Object type (OBJ.Objects [serial number / OBJ.IndexOf ('identity')]. Free

Remember to delete the corresponding record in StringList after releasing the object:

OBJ.Delete (serial number / OBJ.IndexOf ('identification'))

5. Release of StringList:

If Assigned (OBJ) then OBJ.Free

Query whether it exists

If you query whether an item exists in StringList, we can use the following example:

Var

S: TStrings

Begin

S: = TStringList.Create

S.Add ('China')

S.Add ('people')

S.Add ('really great')

If S.IndexOf ('China')-1 then

Begin

Showmessage ('contains the string' China')

End

S.Free

End

Sort lookup

If you sort and look up in StringList, you can use the following methods:

Procedure TForm1.FormCreate (Sender: TObject)

Var

MyList: TStringList

Index: Integer

Begin

MyList: = TStringList.Create

Try

MyList.Add ('Animals')

MyList.Add ('Flowers')

MyList.Add ('Cars')

MyList.Sort; {Find will only work on sorted lists!}

If MyList.Find ('Flowers', Index) then

Begin

ListBox1.Items.AddStrings (MyList)

Label1.Caption: = 'Flowers has an index value of' + IntToStr (Index)

End

Finally

MyList.Free

End

End

At this point, I believe you have a deeper understanding of "how to use StringList objects in Delphi to record dynamically generated objects". You might as well do it in practice. Here is the website, more related content can enter the relevant channels to inquire, follow us, continue to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.