Datentyp eines Feldes als String ausgeben

[Angel4585]

Hallo zusammen,

wie schon in der Überschrift steht, möchte ich den Datentyp eines Feldes als String ausgeben.

d.h.:

Wenn ein Feld den Typ String und die Länge 10 hat möchte ich zum Beispiel "String[10]" ausgeben, gibt es dafür irgendwelche Funktionen oder so?

Danke schonmal



Edit:

ich habs jetzt mal so gemacht, weil mir nichts besseres eingefallen ist, dürfte aber auch schon reichen:

Delphi-Quellcode:

function GetDataTypeFromField(AField : TField):string;
var
 temp : string;
begin
with AField do
 begin
 case DataType of
   ftString:   temp:='String';
   ftInteger:  temp:='Integer';
   ftBoolean:  temp:='Boolean';
   ftFloat:    temp:='Float';
   ftDateTime: temp:='DateTime';
  end;
 if dataType = ftString then
  Result:=Format('%s[%d]',[temp,DataSize])
 else Result:=temp;
 end;
end;

[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