Datentyp eines Feldes als String ausgeben

[marabu]

Hallo Martin,

so kann es funktionieren:

Delphi-Quellcode:

function TypeToStr(f: TField): string;
begin
  case f.dataType of
    // ... ergänzen musst du
    ftWord, 
    ftInteger, 
    ftSmallInt,
    ftBoolean:
      Result := DB.FieldTypeNames[f.DataType];
    ftString:
      Result := Format('String[%d]', [f.Size]);
    else 
      Result := '';
  end;
end;

Grüße vom marabu