delphi简单问题

Question

我定义了一个函数：function lb_listback(n:integer):lianbiao;其中有如下一句：
if(lb.num<=lb_listback.num)
   begin
     lb.ptr_back:=@lb_listback;
     lb_listback.ptr_front:=@lb;
   endlb_listback是lianbiao类变量：
type
  link=^lianbiao;
  lianbiao=record
             num:integer;
             ptr_front:link;
             ptr_back:link;  end;lb是全局变量：var  lb:lianbiao;
编译时出错：“Missing operator or semicolon” 光标指向begin行
            “Not enough actual parameters” 光标指向if行.请指教！！

Answer 1

if(lb.num<=lb_listback.num) then//在Object Pascal中if 后的条件可以不加括号，但必须有“then”
   begin
     lb.ptr_back:=@lb_listback;//你这句话是在取函数lb_listback的地址，但却把它赋给了一个^lianbiao类型的变量，这是无法编译通过的，我无法了解你要做什么，没有办法去改。
     lb_listback.ptr_front:=@lb;
   endlb_listback是lianbiao类变量：
type
  link=^lianbiao;
  lianbiao=record
             num:integer;
             ptr_front:link;
             ptr_back:link;  end;

Answer 2

if(lb.num<=lb_listback.num)
->
if (lb.num<=result.num) then

Answer 3

if(lb.num<=lb_listback.num)   //是不是没有then
   begin
     lb.ptr_back:=@lb_listback;
     lb_listback.ptr_front:=@lb;
   end

Answer 4

看的出来你是想做一个双向链表，这里有一个：
http://www.chinaithr.com/bbs/bbs11/18.xml你可以参考一下。
代码很长，我就不再转贴了。

Answer 5

if(lb.num<=lb_listback.num)这句还有一个错误：
lb_listback是个函数，它要求一个整数作为参数，但你没有给它，所以才有“Not enough actual parameters”的错误信息。

Answer 6

我应该怎么写：if(lb.num<=lb_listback.num)才能把整数参数给他？？