帮我看一下，下面的程序错在什么地方，

Question

while not ParaDBGrdName.DataSource.DataSet.Eof    do
      begin
        s2:=ParaDBGrdName.Fields[i].AsString;
        showmessage(s2);
        if length(trim(s1)) > length(trim(s2)) then
           s1:=s2;
        ParaDBGrdName.DataSource.DataSet.next;    
      end;

Answer 1

绝对正确!!如有错找我[email protected]
while not ParaDBGrdName.DataSource.DataSet.Eof    do
      begin
        s2:=ParaDBGrdName.Fields[i].AsString;
        showmessage(s2);
        if length(trim(s1)) > length(trim(s2)) then
           s1:=s2;
        ParaDBGrdName.DataSource.DataSet.next;    
      end;

Answer 2

next 是谁的？
加上：ParaDBGrdName.DataSource.DataSet
变成：ParaDBGrdName.DataSource.DataSet.next