急救,请给初学者一点信心(100分)

  • 主题发起人 主题发起人 psy
  • 开始时间 开始时间
P

psy

Unregistered / Unconfirmed
GUEST, unregistred user!
我是一初学者,用DELPHI5作毕业设计时遇到疑难,请各位大虾急助:
是关于数据库查询的,数据库中有两字段:NAME,DESCRIPTION,
在窗体中我放置了EDIT,BUTTON,RICHEDIT各一个只是希望在EDIT中输入要查询的词NAME,按BUTTON按钮在RICHEDIT窗口中显示DESCRIPTION,我在BUTTON中写入如下代码:
table1.setkey;
table1.name.asstring:=edit1.text;
if table1.gotokey then
begin
richedit1.text:=table1description.asstring;
end;
结果RUN时出现如下错误:
unit1.pas[53]:declaration expected but end of file found;
unit1.pas[55]:could not compile used unit1 d:/netsearch/unit1.pas
请帮忙!(我的所有文件都放在d:/netsearch下)。
 
看什么地方少或多了标点符号 ,主要是 ';'
 
我觉得你可能是少了个end后的";"之类的东东。。一般在if 或者 for 或 case
之类的语句结束时。
 
能否把unit1.pas给贴上,大家帮你找找错误,写delphi和vc都的注意标点符号,尤其是";"
 
好像不是标点符号的问题
 
END——不配对。
 
我觉得代码构思有点怪。目的是要根据一个Edit中输入的名字找相应的描述内容吧?
可以这样:
if Table1.Locate('Name',Edit1.Text,[]) then
RichEdit1.Text := Table1.FieldByName('DESCRIPTION').AsString
else
ShowMessage('未找到指定记录');
 
同意 Sachow ,
我也觉得源代码有些怪
 
f7f8单步执行。
 
时间太久,强制结束。 wjiachun
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
948
import
I
D
回复
0
查看
927
DelphiTeacher的专栏
D
后退
顶部