关于编译时一闪而过的原因？

Question

编译时程序一闪而过  并且在目录生成exe文件  但运行此生成文件并无任何反应，进程中无显示。原因？

Answer 1

很可能是代码中有关闭程序，一运行就关闭了。或者是安装DELPHI时就有问题，缺少必要的组件。
新手要记得结贴哦~

Answer 2

代码贴上 帮看看有没有问题  这个程序用的组件都是原装的unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    Button1: TButton;
    ADOQuery1: TADOQuery;    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    ADOQuery2: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
DataSource1.Dataset:=ADOQuery1;with adoquery1 do
begin
close;
sql.clear;
sql.add('select 用户名 from T_NAME');
open;
end;
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
  with adoquery1 do
  begin
  sql.Clear;
  sql.Add('select 编号 from T_NAME where sno like'''+format('%s',[trim(edit1.text)])+'''');
  open;
  end;end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.text:=column.field.asstring;
DBGrid1.visible:=false;
with adoquery2 do
  begin
    sql.Clear;
    sql.Add('select * from T_NAME where sno '''+format('%s',[trim(edit1.text)])+'''');
    open;
   DBEdit2.text:=fieldbyname('用户名').asstring;
    DBEdit3.text:=fieldbyname('密码').asstring;
    DBEdit4.text:=fieldbyname('姓名').asstring;
   DBEdit5.text:=fieldbyname('其他').asstring;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 with adoquery1 do
    begin      sql.Clear;
      sql.add('select * from T_NAME');
      open;
end;end.

Answer 3

 with adoquery1 do
    begin      sql.Clear;
      sql.add('select * from T_NAME');
      open;
这里少了个close，还有，编程风格要改正啊，很难看。
我怀疑是本来有close的，你写到with语句的begin end外面，运行，就运行了close；默认self.close;

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
 with adoquery1 do
    begin      sql.Clear;
      sql.add('select * from T_NAME');
      open;
            //这里是不是少了个 end;   ????
end;

Answer 5

应该是这里的问题了～～！不过代码好像不全
procedure TForm1.FormCreate(Sender: TObject);
begin
 with adoquery1 do
    begin      sql.Clear;
      sql.add('select * from T_NAME');
      open;
end;end.

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
begin
 with adoquery1 do
    begin      sql.Clear;
      sql.add('select * from T_NAME');
      open;
end;end.少个 end;怎么没人说？

Answer 7

少End能编译过去吗？楼主贴的源代码有问题