新手问题！能把问题说清楚并能通过运行我就把我全部的分都给你！
这是我照书输入的代码，关于数据排序问题的．

代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
R1: TRadioButton;
R2: TRadioButton;
B1: TButton;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure B1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
function tform1.getsortmode:string;//这里错误．
if (R1.check1) then
result:= 'desc '
else
result:= 'asc ';
end;
function tform1.getfieldnames:string;//这里也错误
result:=listbox1.items[listbox1.itemindex];
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOconnection1.getfieldnames( '公司 ',listbox1.Items);
end;

procedure TForm1.B1Click(Sender: TObject);
begin
ADOtable1.Sort:=getfieldnames+ ' '+getsortmode;//这里说getfirldnames和getsortmode没有定义.
end;

end.
请问这段代码到底错在那？为什么？谢谢了！


[解决办法]
1.补上 begin ... end

function tform1.getsortmode:string;//这里错误．
begin //这
if (R1.check1) then
result:= 'desc '
else
result:= 'asc ';
end;
end; //这

function tform1.getfieldnames:string;//这里也错误
begin //这
result:=listbox1.items[listbox1.itemindex];
end;


2. 补全函数的声明：在 TForm1的声明部分

type
TForm1 = class(TForm)
....{略}
private
function getsortmode:string; //这
function tform1.getfieldnames:string;//这
....{略}


另，推荐买正版书。