请问如何初始化定义TRect(30分)

  • 主题发起人 主题发起人 Solid_Snake
  • 开始时间 开始时间
S

Solid_Snake

Unregistered / Unconfirmed
GUEST, unregistred user!
我想初始化定义全局（至少是模块间）的TRect，但是总是提示语法出错，到底应该如何声明和定义呢？

例如TPoint这样的数据类型有应该如何初始化定义呢？
 
1.TPoint pt = (x:100,y:100);//我记不太清了,中间也可能是;分号
2.TRect r = Rect(0, 0, 100, 100);//利用一个函数返回值
3.利用常量 其实是 综合了1和2
const TPoint csPoint = (x:100, y:100);
TPoint pt = csPoint;
(这两天在领略C#，Delphi也有段没摸了，好像变量声明方式不太对，不过后边是那样的没错，或者你也可以详细查找Delphi源代码或帮助)
 
SetRect()
 
Const R:TRect = (Left: 11
Top: 2
Right: 2
Bottom: 2);
P:TPoint = (x:100
y:100);
var R1:TRect;
P1:TPoint;
begin
R1:=Rect(1,1,2,2);
P1:=Point(200,200);
end;
 
to TYZhang：上面的语法应该如何内嵌在单元文件中。。。。。真是不好意思，能不能给我一个内嵌的演示，我这样定义对吗：
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject
Button: TMouseButton;
Shift: TShiftState
X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Const R:TRect = (Left: 11
Top: 2
Right: 2
Bottom: 2);
P:TPoint = (x:100
y:100);
var R1:TRect;
P1:TPoint;

implementation

{$R *.dfm}
真是麻烦了您了。
 
procedure tform1.create();
begin
R1:=Rect(1,1,2,2);
P1:=Point(200,200);
end;
 
to Siva，我想定义全局变量。。。。。
 
//静态
Const R:TRect = (Left: 11
Top: 2
Right: 2
Bottom: 2);
P:TPoint = (x:100
y:100);
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject
Button: TMouseButton;
Shift: TShiftState
X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
//动态
R1:TRect = (Left: 11
Top: 2
Right: 2
Bottom: 2);
P1:TPoint = (x:100
y:100);

implementation

{$R *.dfm}

//另：我没有qq，msn:zymnj@hotmail.com
 
好的，非常的感谢您。
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
C
送分问题：double类型的变量如何初始化？(20分)
回复
2
查看
152
chenfsb
C
A
如何在delphi中定义全局变量？(50分)
回复
13
查看
196
abea
A
T
一个菜鸟关于类定义的初级问题？(50分)
2
回复
31
查看
452
tuer
T
W
关于接口初始化的问题？(100分)
回复
2
查看
175
coolbaby
C
后退
顶部