delphi编程！

Question

var
  strfield:TstringField;
  str:string;
 begin
   strfield:=query1.fields[0] as TstringField;
   str:=trim(strfield.Value);
   showmessage(str);
 end;

Answer 1

var
  strfield:TstringField;
  str:string;
 begin
   strfield:=query1.fields[0] as TstringField;
   str:=trim(strfield.Value);
   showmessage(str);
 end;

Answer 2

但是我用的是ADO,而且我没有用ADOquery，我用的是Adodataset

Answer 3

ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);

Answer 4

為什麼不使用DBGrid 的CellClick事件呢?
例如:
procedure TBaseFindFrm1.DBGrid1CellClick(Column: TColumn);
begin          
  inherited;
  Edit1.Text := Query1.Fields[0].AsString;
  Edit2.Text := Query1.Fields[1].AsString;
end;