请教一个非常奇怪的问题？

[lucksir9743]

比如我现在编写程序，本来单击run以后，他会编译程序的。但是我不知道操作了什么。现在单击run以后，他会自动返回到代码编辑器中，编译了程序以后，单击程序程序也不执行？那位大哥能提供解答？？盼！

[wolf2005]

重启一下机器

[lucksir9743]

重启以后还是不行！天！我做的东西全部白费了！！！！！！

[ttii]

是否工程文件中有限制？

[ruthfox]

95%是有病毒

[samyoung36]

写代码写错了把，运行之后程序一闪就没了，当然就回到代码编辑拉。
你可以试试别的程序，就知道我说中没有了

[lucksir9743]

这就是最奇怪的地方，我第一遍是没有问题的，然后我重新打开delphi，就没有把她默认的form1关掉，我的程序form1没改，执行一遍发现出的是系统默认的form1框，关掉from1以后就出现这个问题了，代码没有动！现象为：运行之后程序一闪就没了

[lucksir9743]

顶一下！难道没人知道吗？

[spiderzzl]

你是不是该动了工程文件
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

[lucksir9743]

我的代码如下:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sqltxt:string;
php:string;
abc:string;
def:string;
begin
php:=trim(edit1.text);
abc:=trim(edit2.Text);
def:=trim(edit3.Text);
sqltxt:='select * from lianxi where 客户名称 like ''' +php+ ''' and 客户地址 like '''+abc+''' and 联系电话 like '''+def'''';
with adoquery1 do
begin
close;
adoquery1.SQL.Clear;
adoquery1.sql.Add(sqltxt);
open;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.text:=' ';
end;

end.

[lym_1978]

你是不是在编程时指定了ADOConnection.ConnectionString,而现在你的数据库改变了位置或更了名？
如果是，那打开 Unit1.dfm 文件，找到
object ADOConnection1: TADOConnection
ConnectionString ='' //去掉 '' 中的内容。
Provider = 'SQLOLEDB.1'
Left = 376
Top = 176
end

[lucksir9743]

没有！现在变得越来越奇怪了，我今天又在做程序，刚设计了一个界面，正常的，结果关掉没多长时间打开时，调试又是一闪而过，为什么？我在几天机器上都试过了？不行！！！难道没人知道吗？

[jinjazz]

把上一次编译的exe删掉，再编译，看能不能删掉

[wychero]

把 dcu 文件删除再 Run 一下试试。

[liujinping]

重装一下Deilphi算了。以前我有一次也是遇到很奇怪的问题，问大家都不知道，我最后就重装了Delphi，结果问题就没有了。

[lucksir9743]

重装不行，我从6.0升级到7.0，在另外一台机器上也装了，还不行，我快疯掉了！

[聚能量]

来个狠的，format硬盘，重装系统，重装delphi。