急救：不知错在那儿

[li123459]

我是一个刚学dephil的，还望各位大侠帮忙。我做了一个数据库程序，用bde连接（用table）,数据库为sql server2000.主窗体（form1）,登录窗体(form2),添加用户窗体（form3）.在还没有form3时一切良好，登录也没问题，。在加入了form3并设置了form3的table后程序就不能运行，删除了table也没用。错误提示显示"Declaration expected but end of file found"。指在没有代码的一行。我不知错在那儿，不知那位知道可以帮我，万分感谢。

[karach]

你重新在做一下，你肯定在做程序的时候什么地方落掉了什么东西
这种问题其实我也文件过，在仔细看看程序

[fuyifan]

没有代码，怎么分析

[karach]

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

[bluenightsky]

往上找，估计可能少写 end;了

[tiexinliu]

看看，是不是不小心键入一些字符了。

[vchoushen6]

肯定是程序中什么地方的代码缺少了）或END 造成的。

[138075]

把form3删了，看看运行是否正常，然后重新建一个form3

[47522341]

或者在删除的时候将end前的代码删了，但end还在，
就是说，会不会多了一个end。^_^

[charles2118]

错误是说你有东西申明了，但是没有去定义它
看看？？的地方，仔细检查
type
TForm1 = class(TForm)
Button1: TButton;
？？ procedure Button1Click(Sender: TObject);
？？ function NamePart(FileName: PChar): PChar;

[DouZHlang]

可能是你的代码 没有定完整 你看看是不是光标所指上一行末尾少了分号

[yujohny]

这是基本语法错误,自己认真找找,要不贴出代码

[IORILI]

应该有两个END 一个后面是";"
另一个是"."

[dongliu]

删了重建就行了，从project->remove from project中删除，再新建一个。

[li123459]

这两天有事没上网，谢谢大家帮忙。但我没少写啊

[li123459]

我到最后只剩一个begin和end了，还是没用。

[li123459]

首先非常感谢大家这么支持。我删了form3重建后，还是那样，开始没有问题，但是一旦对form的table进行操作后又是老样子。我想问大家一下：两个table指向同一个表会不会有问题。另外，我新建窗体是直接在project里选择窗体创建的，可不可以。我现在在出差，可能有一段时间不能上网，等我回来在给大家分。再次谢谢大家

[li123459]

我以后再把代码贴出来

[bluenightsky]

两个table指向同一个表会不会有问题。另外，我新建窗体是直接在project里选择窗体创建的，可不可以
应该都没有问题

[zorrohong]

procedure TForm1.Button1Click(Sender: TObject);

begin
showmessage('hello');

//end;
end.


[Error] Unit1.pas(32): ';' expected but '.' found
[Error] Unit1.pas(34): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


如果是这种错,就是少了end;

[li123459]

谢谢大家