unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
c=class
k:integer;
end;
var
Form1: TForm1;
a:c;
implementation{$R *.dfm}
a:=c.create;end.
运行的时候总说a:=c.create;这一句有错,但为什么改成这样就能运行?
program Project2;{$APPTYPE CONSOLE}uses
SysUtils;
type c=class
k:integer;
end;
var a:c;begin
{ TODO -oUser -cConsole Main : Insert code here }
a:=c.Create ;
end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
c=class
k:integer;
end;
var
Form1: TForm1;
a:c;
implementation{$R *.dfm}
a:=c.create;end.
运行的时候总说a:=c.create;这一句有错,但为什么改成这样就能运行?
program Project2;{$APPTYPE CONSOLE}uses
SysUtils;
type c=class
k:integer;
end;
var a:c;begin
{ TODO -oUser -cConsole Main : Insert code here }
a:=c.Create ;
end.
解决方案 »
- wParam=WM_LBUTTONDOWN为什么会卡住?怎么区分是哪个按钮点击的事件呢?
- 如何实现自动填表呢?
- list index out of bounds (6)
- delphi 的文件问题
- 如何定义一个消息,使在Form上按下键盘和光标在Edit上时,按下键盘,这个消息都执行。
- 关于SQL脚本的问题【在线等待结果,有正确的答案就结帖】
- formulaone怎样连接数据库
- 关于ADO连接ACCESS数据库及其操作的问题!!多多帮忙啊
- 获取系统可用内存?
- 在Automation Object中使用DataModule
- 我的delphi在调试状态下,怎么不显示变量的值了?重新装了几次都没有用!急死我了!
- 怎样利用PdevMode???急急急急急!!!!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type //这样试一下
c=class
k:integer;
end;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a:c;
implementation{$R *.dfm}
a:=c.create;end.
begin
//
end;
就相当于WinMain,不能少!