这段话有什么毛病？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 ss1,s:string
begin
ss1:='select stcd,zm1 from gw2003';
             query1.close;
             query1.SQL.Clear;
             query1.Sql.Add(ss1);
             query1.open;
s:=query1.fieldvalues['Expr1000'];
label1.Caption:=s;end;end
这句话我不知道那里错了？请大家帮忙
Expr1000在delphi里面是什么意思？

Answer 1

Expr1000是表gw2003的一个字段名字。s:=query1.fieldvalues['Expr1000'];相当于：
s := query1.FieldByName('Expr1000').Value;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

没有这个Expr1000字段，Expr1000表示你所采用的字段名称
你可以
s:=query1.fields['zml'].AsString ;

Answer 3

[Error] Unit1.pas(35): ';' expected but 'BEGIN' found
当我运行程序的时候显示这个出错信息，他是什么意思？

Answer 4

意思就是：需要'；’而你却写‘BEGIN’

Answer 5

要不就是少；
要不就是多BEGIN自己对一下程序吧。

Answer 6

这儿不是少了‘；’嘛
ss1,s:string

Answer 7

var
 ss1,s:string
后上一个“;”————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
 ss1,s:string;//这里少了个分号
begin
ss1:='select stcd,zm1 from gw2003';
             query1.close;
             query1.SQL.Clear;
             query1.Sql.Add(ss1);
             query1.open;
s:=query1.fieldvalues['stcd'];或s:=query1.fieldvalues['zml'];
//你query1里只取出stcd、zm1的字段值，所以你不能引用Expr1000字段，当然出错
label1.Caption:=s;end;

Answer 9

在你的Select语名中没有'Expr1000'，也没有进行计算，所以会出错。
S:=query1.fieldbyName['stcd'].asstring; 或 S:=query1.fieldbyNam['zml'].asstring; 
还有个就是掉了分号。