Delphi中有类似java集合类的东西吗 Delphi 6&7有一个控件TValueListEditor 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 其实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. 我现在程序用的就是TStringList,不过在学了java后,怕自己对Delphi了解不够,不知道Delphi里面有没有像java那样各司其职的容器类....好了,结贴... 暂停程序 一条SQL查找的语句多何写 操作远程数据库的问题。 如何防止客户输入的字符为中文?(除了英文以外的字符)谢谢! 有关TTabbedNotebook新创建分页的问题!! 如何获取活动按钮的标题? 如何在Delphi里显示出两个form? shelllistview中禁止重命名和禁用退格键问题? 一个“运行CORBA服务器”的问题?(在线等待!) Delphi中的ACM实现 定义的菜单项的shortcut如何显示出来!一定给分! Application.MessageBox的参数
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.
好了,结贴...