Delphi 6&7有一个控件TValueListEditor

解决方案 »

  1.   

    其实TStrings类就可以实现(但要注意TStrings是一个抽象类,一般用TStringList)你可以运行下面的例子看看unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        ComboBox1: TComboBox;
        Edit1: TEdit;
        Edit2: TEdit;
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure ComboBox1Change(Sender: TObject);
      private
        { Private declarations }
        StrList: TStringList;
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
    begin
      StrList := TStringList.Create;
      StrList.Add('aaa=111');
      StrList.Add('bbb=222');
      StrList.Add('ccc=333');
      ComboBox1.Items := StrList;
    end;procedure TForm1.FormDestroy(Sender: TObject);
    begin
      FreeAndNil(StrList);
    end;procedure TForm1.ComboBox1Change(Sender: TObject);
    var
      sName: string;
    begin
      sName := ComboBox1.Items.Names[ComboBox1.ItemIndex];
      Edit1.Text := sName;
      Edit2.Text := ComboBox1.Items.Values[sName];
    end;end.
      

  2.   

    我现在程序用的就是TStringList,不过在学了java后,怕自己对Delphi了解不够,不知道Delphi里面有没有像java那样各司其职的容器类....
    好了,结贴...