Delphi程序编译错误

Question

        请教各位大侠,在DELPHI运行程序提示如下错误:1.Declaration expected but end of file found.
                                                  2.Could not compile used unit'Unit1.pas'.
  这是哪里有错误,需怎么解决!
          
         虚心请教!

Answer 1

你雙擊一下錯誤訊息，IDE會幫你定位到錯誤位置，只要看得懂這些訊息，很好解決實在 不能解決的話，再把帶貼上來...

Answer 2

我觉得多半是你少了end，也就是说begin和end没有配套

Answer 3

我觉得多半是你少了end，也就是说begin和end没有配套

Answer 4

   谢谢.双击后指到'Unit1 in 'Unit1.pas' {Form1};',难道是这哪里有问题.

Answer 5

   谢谢.双击后指到'Unit1 in 'Unit1.pas' {Form1};',难道是这哪里有问题.

Answer 6

Declaration expected but end of file found. 点击这个错误。  不要点下面那条

Answer 7

就那附近出问题了，  仔细检查你的begin  end配套么？   

Answer 8

       初学DELPHI,贴代码:unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOStoredProc1: TADOStoredProc;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOstoredproc1 do
 begin
  close;
  parameters.ParamByName('@length').Value:=trim(Edit1.Text);
  parameters.ParamByName('@width').Value:=trim(Edit2.Text);
  open;
end;end;

Answer 9

最后一行 加上  
'end.'

Answer 10

     换成end.还多了个错误了.';'expected but '.' found

Answer 11

     编译通过了,是不是少了个end.?但是按和BEGIN 配对来说,是没问题的.加了个,反而应该不配对了.

Answer 12

你新建一個窗體，看看他的pas結構吧