这是什么错？---Statement expected, but 'var' found

很奇怪啊，VAR定义变量有什么错。
是不是哪里少了什么东西？
而且现在双击BTN也不可以添加Cilck 事件了，出现could not find source location to add method btn_addmemeolinesclick "end"or initialization not found in unit source 什么意思啊？？
求救~~~~~~~~谢谢，放分~~~~~！

8 个解决方案

#1

可能是前面Var前面缺少分号';'了，或者Var方的不是地方，把这个问题解决了，其他的问题就一并解决了

#2

正常情况你是哪里少了个;或者end

#3

VAR  前面也要‘；’啊？？

我的代码是
procedure TFrmLesson002.Btn_ShowListBoxItemClick(Sender: TObject);
begin
var TmpStr:String;
begin
  TmpStr:='TListBox目前行数计'+InttoStr(Lbx_1.Items.Count)+'行'+#13#10+'内容如下'+#13#10+Lbx_1.Items.text;
  showmessage(TmpStr);
end;

这里有错吗？？

#4

天那，我怎么也找不到那里少了什么；或END

救救我吧

#5

你跟踪代码运行，看出错的语句是否就是你贴出来的

#6

狂晕………………
procedure TFrmLesson002.Btn_ShowListBoxItemClick(Sender: TObject);
begin－－－看到没有？把这个begin去掉！！！
var TmpStr:String;
begin
TmpStr:='TListBox目前行数计'+InttoStr(Lbx_1.Items.Count)+'行'+#13#10+'内容如下'+#13#10+Lbx_1.Items.text;
showmessage(TmpStr);
end;

#7

狂晕………………
我怎么又犯这样的错，吗的，该死

不过谢谢楼上的，兄弟门~~~

#8

该回复被版主删除

#1