刚接触DELPHI,好多都不会用,很不熟悉。我做了个这样的东西,不知道怎么搞的出现这样的问题,麻烦告之var
Form1: TForm1;implementation
uses unit2
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showModal;
showMessage('模态显示完毕');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
showMessage('非模态显示完毕');end;end.
运行后就这样
[Error] mutai.pas(28): ',' or ';' expected but 'PROCEDURE' found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'mutai.pas'
Form1: TForm1;implementation
uses unit2
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showModal;
showMessage('模态显示完毕');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
showMessage('非模态显示完毕');end;end.
运行后就这样
[Error] mutai.pas(28): ',' or ';' expected but 'PROCEDURE' found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'mutai.pas'
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showModal;
showMessage('模态显示完毕');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
showMessage('非模态显示完毕');
end;end.
二楼的 uses Unit2;就差一个分号,呵呵。