for i := 0 to adodataset1.FieldCount - 1 do
begin
if adodataset1.Fields[i].DataType = ftString then
///
end;
begin
if adodataset1.Fields[i].DataType = ftString then
///
end;
解决方案 »
- 50万条数据ACCESS数据库,模查询有什么方法能快些...
- delphi vista下如何弹出UAC
- 需要TApplication类 请问在哪里可以下载到。
- AES加解密Demo
- 很菜的一个问题,当我打开一个路径,怎么把该文件夹下面的所有文档的文件名导入memo面板中?
- 【散分,另和大家分享一些常用工具】
- 哪里有Mini Delphi 2005 v1.2 For Win32 绿色便携版下载?
- 100分请教高手!如何骗女友不回家睡觉?
- 我学delphi , 有何好书介绍?
- Delphi里如何做動態連接庫
- 大虾们快帮忙!我要郁闷死了,快救命?!!(在线等候)
- 关于窗口的 SHOWMODAL 方法
ADODataSet1->Fields->Fields[0]->DataType;
uses TypInfo;for i := 0 to adodataset1.FieldCount - 1 do
begin
combox1.Items.Add(GetEnumName(PTypeInfo(TypeInfo(TFieldType)), Ord(adodataset1.Fields[i].DataType)));
end;
begin
if adodataset1.Fields[i].DataType = ftString then
///
end;