24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zyj8119

木虫 (著名写手)

应助: 65 (初中生)
贵宾: 0.003
金币: 915.1
帖子: 2936
在线: 1329.4小时
虫号: 664177

[交流] 【求助】delphi运行一个书本程序，运行不起来

我建立了两个FORM，把他们放在一个工程内部，但是运行出现错误，其中unit1.pas的源代码是：

CODE:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TformInfoInput = class(TForm)

    科员: TComboBox;

    男: TComboBox;

    行政部: TComboBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  formInfoInput: TformInfoInput;

implementation

uses Unit2;

{$R *.dfm}

procedure TFormInfoInput.btnShowClick(Sender: TObject);

begin

   formInfoShow.ShowModal;

end;

procedure TFormInfoInput.btnClearClick(Sender: TObject);

begin

  EdtName.Text='';

  EdtAge.Text='';

  EdtPhone.Text='';

end;

procedure TFormInfoInput.btnExitClick(Sender: TObject);

begin

  formInfoInput.Close;

end;

end.

unit2的源代码是：

CODE:

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TformInfoShow = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  formInfoShow: TformInfoShow;

implementation

uses Unit1;

{$R *.dfm}

procedure TformInfoShow.FormShow(Sender: TObject);

var

 tmpstring:string;

begin

  MemShowInfo.lines.Clear;

  tmpstring:='姓名:';

  tmpstring:=tmpstring+formInfoInput.EdtName.Text;

  tmpstring:=tmpstring+#13+#10;

  tmpstring:=tmpstring+'年龄:'+formInfoInput.EdtAge.Text+#13+#10;

  tmpstring:=tmpstring+'性别:'+formInfoInput.cmbxSex.Text+#13+#10;

  tmpstring:=tmpstring+'职务:'+formInfoInput.cmbxDuty.Text+#13+#10;

  tmpstring:=tmpstring+'电话:'+formInfoInput.EdtPhone.Text+#13+#10;

  tmpstring:=tmpstring+'部门:'+formInfoInput.cmbxWkSpace.Text+#13+#10;

  MemShowInfo.Lines.Add(tmpstring);

end;

procedure TformInfoShow.btnQuitClick(Sender:TObject);

begin

  formInfoShow.Close;

end;

end.

但是编译工程会出现错误：
Build started 2010-11-22 23:46:19.
__________________________________________________
Project "C:\Documents and Settings\Administrator\My Documents\RAD Studio\Projects\Project1.dproj" (Make target(s)):
Target CoreCompile:
c:\program files\embarcadero\rad studio\7.0\bin\dcc32.exe --no-config -M -Q -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG -I"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -LE"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Bpl" -LN"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp" -NB"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp" -O"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -R"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -U"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -K00400000 -NO"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp" Project1.dpr
C:\Documents and Settings\Administrator\桌面\Unit2.pas(31,3): error E2003: E2003 Undeclared identifier: 'MemShowInfo'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(31,15): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(33,24): error E2003: E2003 Undeclared identifier: 'formInfoInput'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(33,38): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(33,38): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(35,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(35,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(35,67): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(36,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(36,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(36,68): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(37,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(37,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(37,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(38,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(38,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(38,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,60): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,72): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(40,15): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(42,25): error E2003: E2003 Undeclared identifier: 'btnQuitClick'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(42,37): error E2029: E2029 ';' expected but '(' found
C:\Documents and Settings\Administrator\桌面\Unit1.pas(39): error F2063: F2063 Could not compile used unit '..\..\..\桌面\Unit2.pas'
Done building target "CoreCompile" in project "Project1.dproj" -- FAILED.
Done building project "Project1.dproj" -- FAILED.
Build FAILED.
C:\Documents and Settings\Administrator\桌面\Unit2.pas(33,38): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(35,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(36,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(37,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(38,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(31,3): error E2003: E2003 Undeclared identifier: 'MemShowInfo'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(31,15): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(33,24): error E2003: E2003 Undeclared identifier: 'formInfoInput'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(33,38): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(35,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(35,67): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(36,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(36,68): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(37,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(37,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(38,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(38,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,60): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(39,72): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\桌面\Unit2.pas(40,15): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\桌面\Unit2.pas(42,25): error E2003: E2003 Undeclared identifier: 'btnQuitClick'
C:\Documents and Settings\Administrator\桌面\Unit2.pas(42,37): error E2029: E2029 ';' expected but '(' found
C:\Documents and Settings\Administrator\桌面\Unit1.pas(39): error F2063: F2063 Could not compile used unit '..\..\..\桌面\Unit2.pas'
6 Warning(s)
19 Error(s)
Time Elapsed 00:00:00.37

回复此楼

» 猜你喜欢

求个博导看看已经有19人回复
论文终于录用啦！满足毕业条件了已经有13人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复

» 本主题相关价值贴推荐，对您同样有帮助:

MC一个简单的程序，运行不了，哪位大侠帮看看怎么回事。多谢！已经有7人回复
运行结果为0，怎么回事？已经有5人回复
运行一个python程序，出现问题，请高手赐教已经有9人回复
同样的MATLAB程序，为何在别人的电脑上运行不了已经有21人回复
用opengl做了个工程，编译无错误，但是运行不起来。。。已经有11人回复
【转帖】delphi语法进阶已经有3人回复
【转帖】用Delphi开发视频聊天软件已经有8人回复
【求助】运行ms的时候跳出“由于另一个程序正在运行中，此操作无法完成。请选择切换… 已经有28人回复
【求助】此程序没有错误，怎么运行不出来？已经有6人回复
【分享】一个Delphi的源码加密插件已经有4人回复
【求助】为什么我编译了一个书本上的无错误的C++程序，却有这么多的错误？已经有8人回复
【求助】此VB程序怎么运行不起来？已经有8人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复
【求助】安装ansys时，运行Keygen程序,但不会自动生成一个文件License.dat,为什么? 已经有12人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2010-11-22 23:50:54

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

sowaynet

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 123.8
帖子: 16
在线: 12.5小时
虫号: 1857733

★
zyj8119(金币+1): 谢谢参与

procedure TFormInfoInput.btnClearClick(Sender: TObject);
看看你这个过程少了edit1.text:='';少了：

赞一下

回复此楼

5楼2012-06-30 01:15:05

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 6 个回答

zyj8119

木虫 (著名写手)

应助: 65 (初中生)
贵宾: 0.003
金币: 915.1
帖子: 2936
在线: 1329.4小时
虫号: 664177

引用回帖:

Originally posted by zyj8119 at 2010-11-22 23:50:54:
我建立了两个FORM，把他们放在一个工程内部，但是运行出现错误，其中unit1.pas的源代码是：

[code]unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls ...

两个界面分别为：