Du erstellst dir entweder eine Funktion, welche es als String ausließt und dann umwandelt.
(
Str und
Val nutzen immer den Punkt als Dezimalzeichen)
Oder (aber dazu würde ich nicht raten) du stellst wärend des Auslesens den
DecimalSeparator kurz um.
[edit] wurde schon gesagt [/edit]
Oder, man erstellt sich 'nen neues Property für TField, welches den ersten Vorschlag nutzt
(geht aber nur in neueren Delphi-Versionen)
Delphi-Quellcode:
type
TFieldHelper = class Helper for TField
private
function GetAsFloatEx: Double;
public
property AsFloatEx: Double read GetAsFloatEx;
end;
function TFieldHelper.GetAsFloatEx: Double;
var e: Integer;
begin
Val(AsString, Result, e);
//if e > 0 then Exception_oder_so;
end;