private
\n{ Private \u5ba3\u8a00 }
\nType
\nTPersonData = record
\nfID :Integer;
\nfName :String;
\nend;<\/p>\n
procedure Tf_basic_l.lbl_titleClick(Sender: TObject);
\nvar
\ni : Integer;
\n\/\/ arrPsnData :array of TPersonData; \/\/\u52d5\u7684\u914d\u5217\u3068\u3057\u3066
\narrPsnData :array[0..9] of TPersonData; \/\/\u52d5\u7684\u914d\u5217\u3068\u3057\u3066
\nbegin
\narrPsnData[0].fID := 100;
\narrPsnData[0].fName := \u2018test\u2019;
\narrPsnData[1].fID := 101;
\narrPsnData[1].fName := \u2018test2\u2019;<\/p>\n
i := 0;
\nwhile i <= 2 do begin
\nShowMessage(arrPsnData[i].fName);
\nInc(i);
\nend;<\/p>\n
end;<\/p>\n","protected":false},"excerpt":{"rendered":"
private { Private \u5ba3\u8a00 } Type TPersonData = record fID :Integer; fName :String; end; procedure Tf_basic_l.lbl_ti … <\/p>\n