Question

delphi问题

type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
ListBox1: TListBox;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
ListBox2: TListBox;
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.Add('Delphi程序设计');
listbox1.Items.Add('数据结构');
listbox1.Items.Add('数据库原理');
listbox1.Items.Add('软件工程');
listbox1.Items.Add('微机原理');
listbox1.Items.Add('网络技术');
listbox1.Items.Add('模拟电子技术');
listbox1.Items.Add('数字电子技术');
listbox1.Items.Add('C++程序设计');
listbox1.Items.Add('组网技术');
end;
function find(string):boolean;
var
flag:boolean;
i:integer;
begin
flag:=false;
for i:=0 to ListBox2###.Items.Count -1 do
begin
if s=(ListBox2.Items[i]) then
flag:=true;
end;
find:=flag;
end;
哪位高手帮忙看一下，在###的地方命令执行不动了，谢谢！

Answer 1

自定义的函数里引用到对象，就要引用全，试试这样：
for i:=0 to Form1.ListBox2.Items.Count -1 do
begin
if s=(Form1.ListBox2.Items[i]) then
flag:=true;
end;

又比如，自定义的函数里引用到别的单元里的过程/函数，还可以在函数名前加单元名，比如：
windows.MessageBoxA(.....);
阅读源码时，应该碰得到这种情形。这有点类似CPP里的::符。

Answer 2

执行不动时什么意思??

1: 编译通过, 那么ls所说的都不成立,,,, 因为编译没问题,所以ls所说的错误不成立

2: 编译通过,. 我感觉是 listbox2 没有赋值,是空的, listbox2.items.count=0; 所以 for i:=0 to -1 这个循环根本没有执行

你程序初始化对listbox1初始化了,这里是不是listbox1呢????

Answer 3

函数里面不能包含组件名称的
把 ListBox2.Items.Count 设为变量就行了
不懂问我就是