S
str
Unregistered / Unconfirmed
GUEST, unregistred user!
哪位帮我解释一下//??? 部分?
这是标准PASCAL语法吗?这样写有何作用?
type
TForm1 = class(TForm)
Button1: TButton;
timer1: TTimer;
ttcanvas: TImage;
procedure Button1Click(Sender: TObject);
procedure timerdiTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y:integer;
implementation
{$R *.DFM}
procedure TForm1.button1click(Sender: TObject);
begin
//......
end;
var //???
i:integer;
//???
//??? 下面这个过程并没有在程序头TYPE中声明
procedure movestring(TTCanvas:timage;timerdi:ttimer;countrun:integer);
begin
// .........
for i:=0 to 10do
begin
//.........
end;
end;
var //???
countrun:integer=0;
//???
procedure TForm1.Timer1Timer(Sender: TObject);
begin
countrun:=countrun+1;
if countrun=1 then
begin
//.........
end;
movestring(ttcanvas,timer1,countrun);
end;
这是标准PASCAL语法吗?这样写有何作用?
type
TForm1 = class(TForm)
Button1: TButton;
timer1: TTimer;
ttcanvas: TImage;
procedure Button1Click(Sender: TObject);
procedure timerdiTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y:integer;
implementation
{$R *.DFM}
procedure TForm1.button1click(Sender: TObject);
begin
//......
end;
var //???
i:integer;
//???
//??? 下面这个过程并没有在程序头TYPE中声明
procedure movestring(TTCanvas:timage;timerdi:ttimer;countrun:integer);
begin
// .........
for i:=0 to 10do
begin
//.........
end;
end;
var //???
countrun:integer=0;
//???
procedure TForm1.Timer1Timer(Sender: TObject);
begin
countrun:=countrun+1;
if countrun=1 then
begin
//.........
end;
movestring(ttcanvas,timer1,countrun);
end;