Delphi-PRAXiS - Delphi Funktion die den Feldtyp als String zurückgibt

Mit dieser einfachen, doch praktischen Funktion kann man den Feldtyp einer Datenbank als String zurückgeben.

Einfach mit ReturnTypFkt(ADOTable1.FieldByName('Feld1').FieldT ype) aufrufen

Delphi-Quellcode:

			unit ReturnTyp;

interface

uses db;

function ReturnTypFkt(T : TFieldType):string;

implementation

function ReturnTypFkt(T : TFieldType):string;

begin

  case T of

    ftString       : Result := 'VarChar';

    ftFloat        : Result := 'Float';

    ftCurrency     : Result := 'Währungsfeld';

    ftMemo         : Result := 'Memo';

    ftBlob         : Result := 'Long';

    ftDate         : Result := 'Date';

    ftDateTime     : Result := 'Date/Time';

    ftTime   : Result := 'Time';

    ftSmallInt     : Result := 'SmallInt';

    ftInteger      : Result := 'Integer';

    ftBoolean      : Result := 'Boolean';

    ftBytes   : Result := 'Bytes';

    ftWord         : Result := 'Word';

    ftTimeStamp    : Result := 'TimeStamp';

    ftVariant      : Result := 'Variant';

    ftBCD          : Result := 'BCD';

    ftVarBytes     : Result := 'VarBytes';

    ftAutoInc      : Result := 'AutoInc';

    ftGraphic      : Result := 'Graphic';

    ftFmtMemo      : Result := 'FmtMemo';

    ftParadoxOle   : Result := 'ParadoxOle';

    ftDBaseOle    : Result := 'DBaseOle';

    ftTypedBinary : Result := 'TypedBinary';

    ftCursor   : Result := 'Cursor';

    ftFixedChar   : Result := 'FixedChar';

    ftWideString  : Result := 'WideString';

    ftLargeint    : Result := 'Largeint';

    ftADT         : Result := 'ADT';

    ftArray       : Result := 'Array';

    ftReference   : Result := 'Reference';

    ftDataSet     : Result := 'DataSet';

    ftOraBlob     : Result := 'OraBlob';

    ftOraClob     : Result := 'OraClob';

    ftInterface   : Result := 'Interface';

    ftIDispatch   : Result := 'IDispatch';

    ftGuid        : Result := 'Guid';

    ftFMTBcd      : Result := 'FMTBcd';

    else Result := 'unbekannt';

  end;

end;

begin

end.

[edit=sakura]Unit-Code eingefügt. Damit jeder sieht, worum es geht. Mfg, sakura[/edit]