1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function DbStruct( oAdsTable : TAdsTable ) : string;  // Rückgabe der Struktur einer Datenbank
                                                   // als String
var niFeldAnz  : integer;
    niI        : integer;
    csFeldName : string;

    
begin
   result := '';
   if not IsOpen( oAdsTable ) then begin
      MsgDlg( 'DbStruct', 'Der Table ' + oAdsTable.TableName + ' ist nicht geöffnet, Strukturermittlung nicht möglich!', '&OK', 1, mtWarning, nil );
      result := '';
      exit;
   end;

   niFeldAnz := oAdsTable.FieldCount;
   for niI := 1 to niFeldAnz do begin
      csFeldName := oAdsTable.AdsGetFieldName( niI );
      result := result + padr( csFeldName, 10, ' ' ) + ', ';

      if oAdsTable.FieldByName( csFeldName ).DataType in [ ftString ] then
         result := result + 'C, ' else
      if oAdsTable.FieldByName( csFeldName ).DataType in [ ftSmallInt, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD, ftAutoInc ] then
         result := result + 'N, ' else
      if oAdsTable.FieldByName( csFeldName ).DataType in [ ftBoolean ] then
         result := result + 'L, ' else
      if oAdsTable.FieldByName( csFeldName ).DataType in [ ftDate ] then
         result := result + 'D, ' else
      if oAdsTable.FieldByName( csFeldName ).DataType in [ ftMemo, ftFmtMemo ] then
         result := result + 'M, ';


      result := result + padl( IntToStr( oAdsTable.AdsGetFieldLength( csFeldName ) ), 3, ' ' ) + ', ';
      result := result + padl( IntToStr( oAdsTable.AdsGetFieldDecimals( csFeldName ) ), 3, ' ' ) + '; ';
   end;
end;