点结构Tpoint是delphi自带的类型，要注意和无类型指针Pointer区分开来！无类型指针笔记链接：https://www.cnblogs.com/168-h/p/14807404.html
procedure TForm1.Button1Click(Sender: TObject); VAR MYPoint:TPoint; {點結構TPoint是Delphi自帶的類型，定義在Windows窗體：TPoint = Types.TPoint;然後是Types窗體的定義： TPoint = packed record X: Longint; Y: Longint; end; } MYARR:array [0..2] OF TPoint; //結構體數組
I:Integer; begin MYPoint.X:=10; MYPoint.Y:=100; //ShowMessage(IntToStr(MYPoint.X));//10
//ShowMessage(IntToStr(MYPoint.Y));//100
ShowMessageFmt('X=%d,Y=%d',[MYPoint.X,MYPoint.Y]); //X=10,Y=100
Memo1.Clear; for I:=Low(MYARR) to High(MYARR) DO begin MYARR[I].X:=I+1; MYARR[I].Y:=I+2; Memo1.Lines.Add(Format('%d的X=%d,Y=%d'+#13#10,[I,MYARR[i].X,MYARR[i].Y]));//#13是回車鍵，#13#10才是換行。
{ memo1的行如下： 0的X=1,Y=2 1的X=2,Y=3 2的X=3,Y=4 }
end; end;
今天的文章赵州桥桥梁特点结构_等点构成「建议收藏」分享到此就结束了，感谢您的阅读，如果确实帮到您，您可以动动手指转发给其他人。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
如需转载请保留出处：https://bianchenghao.cn/54936.html
