在StringList中增加类对象！

unit fParameter;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Grids, DBGrids, TypInfo, Buttons,  IniFiles,;type  TMacIPClass = class  public    MacAddress, IPAddress: string;    constructor Create(Mac, IP: string);    destructor Destroy(); override;  end;  TfrmParameter = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }    ss:TStringList;  public    { Public declarations }  end;var  frmParameter: TfrmParameter;implementationuses Math, StrUtils, fMain;{$R *.dfm}

constructor TMacIPClass.Create(Mac, IP: string);begin  MacAddress := Mac;  IPAddress := IP;end;destructor TMacIPClass.Destroy();beginend;

procedure TfrmParameter.Button1Click(Sender: TObject);var MacAdnIP:TMacIPClass;begin // MacAdnIP:=TMacAndIP.Create; // MacAdnIP.MacAddress:='mac'; // MacAdnIP.IPAddress:='IP';  //ss.  ss.AddObject('MacAdnIP',TMacIPClass.create('Mac','IP')) ;//添加类对象end;procedure TfrmParameter.FormCreate(Sender: TObject);begin ss:=TStringList.Create;  // 也可以尝试使用TObjectList;end;procedure TfrmParameter.FormDestroy(Sender: TObject);var i:Integer;begin  for i:=0 to ss.Count -1 do  begin    ss.Objects[i].Free;//释放类对象  end; ss.Free;end;procedure TfrmParameter.Button2Click(Sender: TObject);var Mac:string;begin Mac:=TMacIPClass(ss.Objects[0]).MacAddress +IntToStr(ss.Count); ShowMessage(mac);//显示类中的内容end;end.