实用的小对象类,提供与TStringList搭配

不知道是Borland为了偷懒还是为了效率高,很多VCL直接使用TStringList作为成员来管理数据(如:TListBox/TStringGrid), 而不是使用专门的Item类型(如:ListView就有ListViewItem类型), 这样就使得我们想扩展的时候(比如, 在一个ListBox中显示名称,并要记录ID, 而这个ID又不能显示出来), 遇到一些麻烦.

其实, StringList内部提供一个Objects的管理, 可以管理与string内容相关的对象. 只不过, 要求这个对象是TObject. 很多时候, 我们可能就需要另外记录一个ID或其它简单的字串, 没有必要专门做一个对象, 此时, 我们今天的主角儿就产生了:

type

  //CopyRight(c) Hydonlee, 转载请注明出处

  TMyObject = class(TObject)

  private

    FV: Variant;

  public

    constructor Create(v: Variant);

    property Value: Variant read FV write FV;

  end;



implementation



constructor TMyObject.Create(v: Variant);

begin

  self.FV := v;

end;

这个类只有一个成员: Value(Variant类型), 通过构造函数传值, 即可创建. 平时用来记录string/integer方便多了. 当然还有一个用途是很多VCL控件有TAG属性, 但这个属性只能是integer, 想要记录一个字串的时候, 就不太方便了. 那也就可以用这个小对象类来帮忙.

下面是一个小例子, 向listbox中添加一些项目,并在单击时显示内部包含的值:

procedure TForm1.btn1Click(Sender: TObject);

begin

  //CopyRight(c) Hydonlee, 转载请注明出处

  lst1.Items.AddObject('I Love YOu', TMyObject.Create('1'));

  lst1.Items.AddObject('Do You Love ME', TMyObject.Create('2'));

  lst1.Items.AddObject('Sorry', TMyObject.Create('3'));

  lst1.Items.AddObject('BYE', TMyObject.Create('4'));

end;



procedure TForm1.lst1Click(Sender: TObject);

begin

  ShowMessage(TMyObject(lst1.Items.Objects[lst1.ItemIndex]).Value);

end;

抛砖引玉,希望大家指导(发现博客园delphier不少哈...)