TStrings (TStringList)很有功能

用 TStrings的Object 保存类的方式，来保存除了Items以外的值。

今天才发现，原来，TStrings下，还有 Items，Values，Items.Names,Items.Values,Items.Strings

之分。

大家赶快去试试吧。

如果只是简单的String类型的，用这些，足够的了。

大家不用试了。我自己都快忘记，写了段。

procedure TfrmRegManage.Button1Click(Sender: TObject);
var sl:TStringList;a:Integer;
begin
sl:=TStringList.Create;
for a:=0 to 10 do
sl.Add(IntToStr(a)+'aaa');
Memo1.Lines.Add(sl.DelimitedText);
ShowMessage(sl.Strings[0]);//0aaa
sl.Free;
Memo1.Lines.Add('123=abc');
ShowMessage(Memo1.Lines.Values['123']);//abc
for a:=0 to Memo1.Lines.Count-1 do ShowMessage(Memo1.Lines.Names[a]);//其中有个显示123
end;

格式是 Name=Value 这个比较有用。

TStrings的AddObject方法应用

(1) integer 于 Object

cmbBox.Items.AddObject(A_Value,pointer(I_Value));

I_Ret:=cmbBox.itemindex;
I_perID:=integer(cmbBox.Items.Objects[I_Ret]);

(2) string 于 Object

A_Code:='custID';
ComboBox1.Items.AddObject('客户ID',TObject(A_Code));

A_Value:=string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);