怎么判断表中某字段的数据类型？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  s : TFieldType;
begin
 s := adoQuery1.Fields[2].DataType;
 if s = ftString then
 begin end;
end;

Answer 1

最好用 if DataSet.Fields[0] is TStringField之类的。

Answer 2

for i := 0 to adodataset1.FieldCount - 1 do
begin
  if adodataset1.Fields[i].DataType = ftString then
  ///
end; 

Answer 3

这样该可以的
var
  dt: TFieldType;
begin
  dt := Query1.FieldByName('字段名').DataType;
  case dt of    ftInteger:
    ftString:
    ftBCD:
    ftBlob:
    ...
    else
    ...
  end;
end;