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;