一个函数的问题？

Question

我在一个窗体的代码区写了一个函数，可是为什么该函数不能用在窗体上的控件？如下：（为什么QLIST1不引用呢？我在调用该函数时把QLIST1的句柄当参数后也是错的，请问该如何解决？）谢谢！
function A(listhand:HWND):Real;
var
  i: Integer;
begin
  for i:=0 to QList1.Items.Count-1 do
      Result:=Result+strtofloat(QList1.Items.Item[i].SubItems.Strings[i]);
end;

Answer 1

你把这个函数写成这个form的成员就可以了：function TForm1.A(listhand:HWND):Real;//记得把这句加到form的函数声明中
var
  i: Integer;
begin
  for i:=0 to QList1.Items.Count-1 do
      Result:=Result+strtofloat(QList1.Items.Item[i].SubItems.Strings[i]);
end;

Answer 2

function A(listhand:HWND):Real;implimentationfunction A(listhand:HWND):Real;
var
  i: Integer;
begin
  for i:=0 to QList1.Items.Count-1 do
      Result:=Result+strtofloat(QList1.Items.Item[i].SubItems.Strings[i]);
end;

Answer 3

上面的可以!还可以function A(listhand:HWND):Real;
var
  i: Integer;
begin
  for i:=0 to QList1.Items.Count-1 do
      Result:=Result+strtofloat(窗体名称.QList1.Items.Item[i].SubItems.Strings[i]);
end;

Answer 4

QList1.Items.Item[i].SubItems.Strings[i]
这句没看懂，你的QList到底是啥东西，要这样使用。