本文整理自网络，侵删。
Var
CRect:TRect;
Width,Height:integer;
Begin
CRect:=Rect(10,10,50,60);
Width:=WidthOf(CRect);//取宽度
Height:=HeighthOf(CRect);//取高度
End;
相关阅读 >>
Delphi system.masks.matchesmask 简单的正则用法
Delphi整理七（function and procedure）
更多相关阅读请进入《Delphi》频道 >>
