DataType赋给string变量的问题?(50分)

var mstring:string;

如何将DataSource1.DataSet.FieldByName('mfield').DataType赋给mstring变量

直接赋值：
msstring:=DataSource1.DataSet.FieldByName('mfield').AsString;

datatype是什么类型啊？

case DataSource1.DataSet.FieldByName('mfield').DataType of
ftstring:
begin
mstring:=ftstring;
end;
ftinteger:
begin
mstring:=ftinteger;
end;
ftfloat:
begin
mstring:=ftfloat;
end;
.
.
.
.
end;

if DataSource1.DataSet.FieldByName('mfield').DataType = ftString then
mstring:='bbscom';

技术交流QQ：136293586

msstring:=formatdatetime('yyyy''-''mm''-''dd',DataSource1.DataSet.FieldByName('mfield').AsDateTime);

建一个函数
function GetDataType(hdatetype:TDataType):string;
begin
case hdatetype of
ftstring:
begin
result:='ftstring';
end;
ftinteger:
begin
result:='ftinteger';
end;
ftfloat:
begin
result:='ftfloat';
end;
ftCurrency:
begin
result:='ftCurrency';
end;
ftBCD:
begin
result:='ftBCD';
end;
ftBoolean:
begin
result:='ftBoolean';
end;
ftDateTime:
begin
result:='ftDateTime';
end;
ftWideString:
begin
result:='ftWideString';
end;
ftMemo:
begin
result:='ftMemo';
end;
else
begin
result:='anther';
end;
end;
end;

然后:mstring:=GetDataType(DBGrid1.DataSource.DataSet.FieldByName(DataSource1.DataSet.FieldByName('mfield').DataType);

多人接受答案了。