Hallo Hansi,
dann ist Data1 wohl ein Doulbe.
Delphi-Quellcode:
Table1.Append;
if (Trim(Data1) = '' ) then
Table1.FieldValues['Data1'] := 0.0
else
Table1.FieldValues['Data1'] := Data1;
Du könntest es auch mit FildByName und .AsFloat probieren. Ich weiß nicht ob da die Umwandlung funktioniert.
[zusatz]
noch besser wäre wohl ein try ... except Block und die Zuweisung von 0.0 im except Fall. Damit fängst du auch andere ungültige Daten ab.
[/zusatz]