//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
//獲取Table1 字段值、長度及類型 FlyFeng鳳兮歸來
AnsiString sType[39]={ "ftUnknown", "ftString",
"ftSmallint", "ftInteger", "ftWord", "ftBoolean",
"ftFloat", "ftCurrency", "ftBCD","ftDate","ftTime",
"ftDateTime","ftBytes","ftVarBytes","ftAutoInc",
"ftBlob","ftMemo","ftGraphic","ftFmtMemo",
"ftParadoxOle","ftDBaseOle","ftTypedBinary",
"ftCursor","ftFixedChar","ftWideString","ftLargeint",
"ftADT","ftArray","ftReference","ftDataSet",
"ftOraBlob","ftOraClob","ftVariant","ftInterface",
"ftIDispatch","ftGuid","ftTimeStamp","ftFMTBcd"};
Table1->Active=true;
AnsiString Info("The fields are: ");
for(int i = 0; i < Table1->FieldCount; i++)
Info = Info+
Table1->Fields->Fields[i]->FieldName +
"(長度:"+
Table1->Fields->Fields[i]->DataSize +
" 類型: "+sType[Table1->Fields->Fields[i]->DataType] +
")"+ ", ";
ShowMessage(Info);
Table1->Active=false;
}
//---------------------------------------------------------------------------