[code delphi]
[/code]
type
Rec = record
aa : integer;
bb : string;
cc : string;

var
ts : TStringList;

begin
ts := TStringList.create;

ts.addObject('1',???);
ts.addObject('2',???);

//還有要如何來釋放

ts.free;
end;

HI~~，請參考下面的方式

請拉三個 button 和一個 Memo ，再把程式碼貼上

[code delphi]
type
PRec = ^TRec;
TRec = record
aa: Integer;
bb: String;
cc: String;
end;

var
ts : TStringList;


procedure TForm1.Button1Click(Sender: TObject);
var PTmpRec: PRec;
I: Integer;
begin
// 建立 10 個 Record
for I := 1 to 10 do
begin
pTmpRec := New(PRec);
pTmpRec.aa := I;
pTmpRec.bb := 'bb' IntToStr(I);
pTmpRec.cc := 'cc' IntToStr(I);
ts.AddObject('ID' IntToStr(I), TObject(pTmpRec));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var I: Integer;
begin
// 讀出 10 個 Record 並放到 Memo 上
Memo1.Lines.Clear;
for I := 0 to ts.Count - 1 do
Memo1.Lines.Add(ts.Strings[I] ' aa=' IntToStr(pRec(ts.Objects[I]).aa)
' bb=' pRec(ts.Objects[I]).bb
' cc=' pRec(ts.Objects[I]).cc);
end;
procedure TForm1.Button3Click(Sender: TObject);
var I: Integer;
begin
// Free 掉 ts 裡的東東
for I := 0 to ts.Count - 1 do
Dispose(PRec(ts.Objects[I]));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Create ts
ts := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
// Free ts
FreeAndNil(ts);
end;
[/code]

------
價值的展現，來自於你用哪一個角度來看待它!!