急救：不知错在那儿

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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

Answer 12

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;