//---------------------------------------------------------------------------
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;
}
//---------------------------------------------------------------------------