Zitat von
PASST:
...Exception EVariantTypeCastError aus: 'Variante des Typs [String] konnte nicht in Typ [Double] konvertiert werden.'
Da kann man noch etwas ändern:
Delphi-Quellcode:
procedure TForm1.NumfieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
if StrToIntDef(Sender.AsString, 0) = 0 then
Text := '' // zum Testen: Text := '---'
else
Text := Sender.AsString;
end;