請教各位高手如何在 Delphi 中動態宣告一 record type? Thanks

Hi，kevin@ROC，您好！ 小弟也是初通皮毛，不妨看看下面的code，或許會有點Help。我的實際目的是抛磚引玉，讓真正的高手顯身< class="code"> procedure TForm1.Button1Click(Sender: TObject); type TOneRecord = record Name: String; Age: Word; end; POneRecord = ^TOneRecord; var OneRecord: TOneRecord; PRecord: POneRecord; begin OneRecord.Name := 'bigdogchina'; OneRecord.Age := 24; PRecord := @OneRecord; PRecord.Name := 'bigdogchina'; ShowMessage(PRecord^.Name); ShowMessage(PRecord.Name);//這樣的寫法實際上是不符合規範的，但是編譯器已經自動幫我們轉化爲上一句 end; ================================= 人生在勤，不索何獲 業精於勤荒於嬉，行成於思毀於隨 臨淵羡魚不如退而結網

------
人生在勤，不索何获？

不知您所謂的動態是指什麼？ 如以 bigdogchina 兄的例子而言, 是指動態宣告 Name, Age 等嗎？ 如果是的話, delphi 的 record 應該是不行 您可改用 Variant 的方式, 在 delphi help 的例子如下:

var      A: Variant;
begin
  A := VarArrayCreate([0, 4], varVariant);
  A[0] := 1;
  A[1] := 1234.5678;
  A[2] := 'Hello world';
  A[3] := True;
  A[4] := VarArrayOf([1, 10, 100, 1000]);
  WriteLn(A[2]);        { Hello world }
  WriteLn(A[4][2]);        { 100 }
end;

還是您要的是動態陣列的 record, 是的話, 以 bigdogchina 兄的例子來說

procedure TForm1.Button1Click(Sender: TObject);
type
  TOneRecord = record
    Name: String;
    Age:  Word;
  end;
var
  OneRecord: array of TOneRecord;
  i: integer;
begin
  [red]SetLength(OneRecord, 10);
  for i := 0 to 9 do
  begin
    OneRecord.Name[i] := IntToStr(i);
    OneRecord.Age[i]  := 24;
  end;
end;

-- 歡迎光臨 KTop 研究苑!

補充一下, 你也可以參考看看 "TVarRec"

請問一下.. hagar大大.. 有一行.. [red]SetLength(OneRecord, 10);//那個[red]是什麼意思..?? ...... thx..    < >< >

引言: 請問一下.. hagar大大.. 有一行.. [red]SetLength(OneRecord, 10);//那個[red]是什麼意思..?? ...... thx.. < >< > < face="Verdana, Arial, Helvetica"> 那是讓貼出的文章的內容變顏色的 Tag 在貼文章的時候您可以注意一下有幾個下拉選單 其中一個就是設定顏色的