lazarus程序运行问题
最近小弟开始使用Lazarus,一开始写HelloWorld就出现了问题,我新建了customprogram,然后打很简单的代码:beginwriteln('HelloW...
最近小弟开始使用Lazarus,一开始写Hello World就出现了问题,我新建了custom program,然后打很简单的代码:
begin
writeln('Hello World!');
readln;
end.
就这样,lazarus就弹出个和VB一样的form1,却没有我要打印的hello world?请问该如何显示呢?
我用的是lazarus0.9.30,在win7上运行的。 展开
begin
writeln('Hello World!');
readln;
end.
就这样,lazarus就弹出个和VB一样的form1,却没有我要打印的hello world?请问该如何显示呢?
我用的是lazarus0.9.30,在win7上运行的。 展开
1个回答
展开全部
最简单的hellow world!步骤
1.新建控制台程序console application
2.根据引导创建控制台程序,把所有复选框的勾去掉;名称默认创建的程序代码如下:
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp
{ you can add units after this };
type
{ TMyApplication }
TMyApplication = class(TCustomApplication)
protected
procedure DoRun; override;
public
end;
{ TMyApplication }
procedure TMyApplication.DoRun;
var
ErrorMsg: String;
begin
{ add your program here }
// stop program loop
Terminate;
end;
var
Application: TMyApplication;
{$R *.res}
begin
Application:=TMyApplication.Create(nil);
Application.Title:='My Application';
Application.Run;
Application.Free;
end.
3.替换: 把
begin
Application:=TMyApplication.Create(nil);
Application.Title:='My Application';
Application.Run;
Application.Free;
end.
替换为
begin
writeln('Hello World!');
readln;
end.
4.编译运行就可以看到你熟悉的hello world 了
1.新建控制台程序console application
2.根据引导创建控制台程序,把所有复选框的勾去掉;名称默认创建的程序代码如下:
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp
{ you can add units after this };
type
{ TMyApplication }
TMyApplication = class(TCustomApplication)
protected
procedure DoRun; override;
public
end;
{ TMyApplication }
procedure TMyApplication.DoRun;
var
ErrorMsg: String;
begin
{ add your program here }
// stop program loop
Terminate;
end;
var
Application: TMyApplication;
{$R *.res}
begin
Application:=TMyApplication.Create(nil);
Application.Title:='My Application';
Application.Run;
Application.Free;
end.
3.替换: 把
begin
Application:=TMyApplication.Create(nil);
Application.Title:='My Application';
Application.Run;
Application.Free;
end.
替换为
begin
writeln('Hello World!');
readln;
end.
4.编译运行就可以看到你熟悉的hello world 了
追问
这样做是成功了哦,谢谢,但我每次要编别的pascal程序都只能在那里打代码?
我看书上都是新建的custom program哦,有没有方法让custom program里的那个form1像vb那样的打印数据什么的呢?我现在在custom program里打印,编译运行那个form都是空白的饿。
追答
lazarus 9.28版的custom program 一个是在模块那里,一个是在工程那里,更高版本的应该类似,请选择工程那里的custom program,如果选择的是模块的会依附于其他程序运行。就会打印不出来东西。custom program 类似于控制台程序,只不过给用户更多的权限,所有代码都是自己写。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询