hier mal ein Programmschnipsel
Code: Alles auswählen
var
Form1: TForm1;
DefaultFormatSettings: TFormatSettings;
implementation
{$R *.lfm}
{ TForm1 }
//Initialisierungen
procedure TForm1.FormCreate(Sender: TObject);
begin
// DecimalSeparator:='.';
DefaultFormatSettings.DecimalSeparator:= '.';
end;
//Test
procedure TForm1.Button1Click(Sender: TObject);
var
L_wert: UnicodeString;
Lwert: Extended;
begin
L_wert:= '1.0';//Eingangswerte mit einer Kommastelle
Lwert:= StrTofloat(L_wert);//Umwandel in Float zur Berechnung
end;
Ich habe nun versucht den veralteten DecimalSeparator:='.' durch das aktuelle DefaultFormatSettings.DecimalSeparator:= '.' zu ersetzen.
Mit dem alten DecimalSeparator:='.' funktioniert meine Anwendung sowohl unter Windows und auch Linux.
Mit dem neuen DefaultFormatSettings.DecimalSeparator:= '.' gibt es einen Fehler EConvertError unter Windows - Linux funktioniert.
Was mache ich da falsch ?
Gruß Frank