Struktur einer Tabelle auslesen

[Cuchulainn]

Mit dieser Funktion kann man die Struktur einer db-Tabelle auslesen. Sie gibt von jedem Feld der Tabelle die Nummer, den Feldnamen und den Fildtyp zurück.
Der Funktion wird der Pfad und der Name der Tabelle übergeben. Die Struktur wird in der globalen Stringliste slErgebnis gespeichert, die Funktion gibt einen String zurück. Entweder 'Ok', wenn kein Fehler aufgetreten ist, oder einen Fehlertext, der in der Funktion festgelegt wird.

Delphi-Quellcode:

function TFrmStruktur.FktStruktur(StrDateiname: String):String;
var
  IntZaehler:Integer;
  sType:String;
begin
  try
    result:='undefinierter Fehler';
    slErgebnis.clear;
    try
      TblTabelle.close;
      TblTabelle.tablename := StrDateiname;
      TblTabelle.Open;
    except
      result:='Fehler beim lesen der Datei !'
    end;

    // Die Struktur wird in der Stringliste slErgebnis gespeichert
    for IntZaehler:=0 to TblTabelle.FieldCount-1 do 
    begin
      case TblTabelle.Fields[IntZaehler].datatype of
        ftUnknown :  begin sType:='Unknown'; end;
        ftString :  begin sType:='String'; end;
        ftSmallint :  begin sType:='Smallint'; end;
        ftInteger :  begin sType:='Integer'; end;
        ftWord :  begin sType:='Word'; end;
        ftBoolean :  begin sType:='Boolean'; end;
        ftFloat :  begin sType:='Float'; end;
        ftCurrency :  begin sType:='Currency'; end;
        ftBCD :  begin sType:='BCD'; end;
        ftDate :  begin sType:='Date'; end;
        ftTime :  begin sType:='Time'; end;
        ftDateTime :  begin sType:='DateTime'; end;
        ftBytes :  begin sType:='Bytes'; end;
        ftVarBytes :  begin sType:='VarBytes'; end;
        ftAutoInc :  begin sType:='AutoInc'; end;
        ftBlob :  begin sType:='Blob'; end;
        ftMemo :  begin sType:='Memo'; end;
        ftGraphic :  begin sType:='Graphicc'; end;
        ftFmtMemo    :  begin sType:='FmtMemo'; end;
        ftParadoxOle :  begin sType:='ParadoxOlee'; end;
        ftDBaseOle :  begin sType:='DBaseOle'; end;
        ftTypedBinary :  begin sType:='TypedBinary'; end;
        ftCursor :  begin sType:='Cursor'; end;
        ftFixedChar :  begin sType:='FixedChar'; end;
        ftWideString :  begin sType:='WideString'; end;
        ftLargeInt :  begin sType:='LargeInt'; end;
        ftADT :  begin sType:='ADT'; end;
        ftArray :  begin sType:='Array'; end;
        ftReference :  begin sType:='Reference'; end;
        ftDataSet :  begin sType:='DataSet'; end;
        ftOraBlob :  begin sType:='OraBlob'; end;
        ftOraClob :  begin sType:='OraClob'; end;
        ftVariant :  begin sType:='Variant'; end;
        ftInterface :  begin sType:='Interface'; end;
        ftIDispatch :  begin sType:='IDispatch'; end;
        ftGuid :  begin sType:='Guid'; end;
      end;
      slErgebnis.add(inttostr(IntZaehler)+#9+TblTabelle.Fields[IntZaehler].FieldName+#9+sType+#9+
        inttostr(TblTabelle.Fields[IntZaehler].size));
    end;
    if slErgebnis.Count>0 Then
      result:='OK';
  finally
  end;
end;

[edit=Matze][code] durch [delphi]-Tags ersetzt und Code formatiert. Mfg, Matze[/edit]