小聲的問一下：^Tpmyid中這個^是什麼意思？
如：
type
pmyid = ^Tpmyid;
Tpmyid = record
nodeid: string;
nodename: string;
end;
问题点数：20、回复次数：7Top
1 楼mfwzhou（無邊的風）回复于 2005-08-02 17:41:02 得分 5
定義指針類Top
2 楼finer（）回复于 2005-08-02 17:44:41 得分 0
哦，請問哪詳細介紹，或能否詳細介紹一下？ 謝謝!
Top
3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2005-08-02 17:53:45 得分 3
指针
看基础书吧
相对于C的*
_____________________
http://lysoft.7u7.netTop
4 楼lili1（离奇）回复于 2005-08-02 18:32:37 得分 4
pmyid = ^Tpmyid;
说明 pmyid 是指向Tpmyid类型变量的一个指针类型Top
5 楼cdsgajxlp（起名很难）回复于 2005-08-02 19:56:37 得分 2
一个指针，指向Tpmyid 这个结构Top
6 楼maming2003（關機.睡覺!）回复于 2005-08-02 21:42:54 得分 1
指针Top
7 楼cyblueboy83（爱情白痴—电脑迷）回复于 2005-08-03 00:03:17 得分 5
pmyid 是指向Tpmyid类型变量的一个指针类型，可以参考delphi的帮助
procedure TForm1.FormButton1Click(Sender: TObject);
type
PMyList = ^AList;
AList = record
I: Integer;
C: Char;
end;
var
MyList: TList;
ARecord: PMyList;
B: Byte;
Y: Word;
begin
MyList := TList.Create;
try
New(ARecord);
ARecord^.I := 100;
ARecord^.C := 'Z';
MyList.Add(ARecord); {Add integer 100 and character Z to list}
New(ARecord);
ARecord^.I := 200;
ARecord^.C := 'X';
MyList.Add(ARecord); {Add integer 200 and character X to list}
{ Now paint the items onto the paintbox}
Y := 10; {Variable used in TextOut function}
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items[B];
Canvas.TextOut(10, Y, IntToStr(ARecord^.I)); {Display I}
Y := Y + 30; {Increment Y Value again}
Canvas.TextOut(10, Y, ARecord^.C); {Display C}
Y := Y + 30; {Increment Y Value}
end;
{ Cleanup: must free the list items as well as the list }
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items[B];
Dispose(ARecord);
end;
finally
MyList.Free;
end;
end;
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
