在StringList中增加类对象！

unit fParameter;

interface

uses
  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;

implementation

uses Math, StrUtils, fMain;

{$R *.dfm}

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


destructor TMacIPClass.Destroy();
begin


end;

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.