Question

delphi关于函数的基础问题

implementation

{$R *.dfm}
var
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
for i:=ListBox1.Items.Count-1 downto 0 do
ListBox1.Items.Delete(i);
ShowBtnEn;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for Item:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[Item] then
begin
ListBox2.Items.Add(ListBox1.Items.Strings[Item]);
ListBox1.Items.Delete(item);
break;
end;
showbtnen;
end;

procedure Tform1.ShowBtnEn
begin
if ListBox1.count>0 then
button2.enabled：=true
else button2.Enabled:=false;

if ListBox2.count>0 then
button5.enabled：=true
else button5.Enabled:=false;

if ListBox1.selcount>0 then
button3.enabled：=true
else button3.Enabled:=false;

if ListBox2.selcount>0 then
button4.enabled：=true
else button4.Enabled:=false;

button6.enabled :=false;
for i:=1 to ListBox2.count-1 do
if ListBox2.selected[i] then
begin button6.enabled:=true;break;end;

button7.enabled :=false;
for i:=1 to ListBox2.count-2 do
if ListBox2.selected[i] then
begin button7.enabled:=true;break;end;
end;

老是在ShowBtnEn;这里出错

Answer 1

把如下两段代码中的:=1改成:=0试试
button6.enabled :=false;
for i:=1 to ListBox2.count-1 do
if ListBox2.selected[i] then
begin button6.enabled:=true;break;end;

button7.enabled :=false;
for i:=1 to ListBox2.count-2 do
if ListBox2.selected[i] then
begin button7.enabled:=true;break;end;
如果ListBox2即使只有一项的话,for do语句仍然执行一次循环,这时由于ListBox2只有selected[0],没有selected[1],这样就出错了,叫溢出错误,你看看出错对话框的提示,看是不是溢出错误.
你的目的是想选中项的序号向后移动一项,你可以这样写 if ListBox2.selected[i+1] then

追问

谢谢你帮我看代码啊 不过代码应该是正确的
应该是ShowBtnEn;这个函数的问题
下面的提示是Undeclared identifier: 'ShowBtnEn'

追答

已经告诉你改的方法了把
for i:=1 to ListBox2.count-1 do
改成
for i:=0 to ListBox2.count-1 do
试试

追问

还是一样的问题啊 在第一个showbtnen的地方就出错了

追答

你把错误对话框上的提示写出来我看看

Answer 2

另外Delphi中使用查询语句是在Delphi中执行还是Access中执行？问题补充：经测试时，调用这些函数或属性的表达式将会导致错误信息。 有关在沙盒模式下被阻止

Answer 3

：= 中文冒号。

追问

真厉害啊 这都能看出来