高手请进!!!!(不会的不要进来)
下面的这个程序在编译的时候总是出现'invald variant type conversition',但是接着再编译一次就可以运行了,望大家能看看是什么原因。。。。。。。。
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
FSort,FSortField : string;
iFieldCount,i:integer;
begin
for iFieldCount := 0 to DBGrid1.Columns.Count - 1 do // 将▲去掉
begin
if AnsiContainsText(DBGrid1.Columns[iFieldCount].Title.Caption,'▼') or AnsiContainsText(DBGrid1.Columns[iFieldCount].Title.Caption,'▲') then
begin
if AnsiContainsText(DBGrid1.Columns[iFieldCount].Title.Caption,'▼') then
FSort:='DESC'
else
fsort:='asc';
DBGrid1.Columns[iFieldCount].Title.Caption := Copy(DBGrid1.Columns[iFieldCount].Title.Caption,1,Length(DBGrid1.Columns[iFieldCount].Title.Caption)-3);
FSortField:=trim(Column.FieldName);
edit1.Text:=FSortField ;
break;
end;
end;
if Column.FieldName=FSortField then
begin
if FSort = 'DESC' then
FSort := 'ASC'
else
FSort := 'DESC';
end
else begin
FSortField := Column.FieldName;
FSort := 'ASC';
end;
if FSort = 'ASC' then
Column.Title.Caption := Column.Title.Caption + ' ▲'
else
Column.Title.Caption := Column.Title.Caption + ' ▼';
adotable1.Sort := Column.FieldName + ' ' + FSort;
end;