Ungültiger Gleitkommawert

[pp-deluxe]

G.ude

Ich möchte 2 Werte miteinander verrechnen, es scheitert jedoch an einem EConvertError!
DIe Fehlermeldung lautet: 26.51551922 ist kein gültiger Gleitkommawert.

Hier der Quelltext:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var wert1, wert2: string;
var wert11, wert12, wert3: real;
begin
      wert1 := Copy(Stringgrid1.cells[0,1], 7, 11);
      wert2 := Copy(Stringgrid1.cells[0,2], 7, 11);
      wert1 := '+' + wert1;
      wert2 := '+' + wert2;

      wert11 := StrToFloat(wert1);
      wert12 := StrToFloat(wert2);
      wert3 := wert12 - wert11;
      label1.caption := FloatToStr(wert3);

An was liegts?

ThX

[mkinzler]

Versuchs mal mit Extended statt Real
Falscher DecimalSeparator?
Warum Fügst du ein Plus in den String ein (wert1 := '+' + wert1; )?

[kalmi01]

Hi,

könnte es sein, das Deine lokale Einstellung kein . sondern ein , als Trenner erwartet ?

Probiers mal mit:DecimalSeparator := '.';

[pp-deluxe]

super, mit DecimalSeparator := '.'; und extended klappts

Das Plus war für das Vorzeichen, hab ich aber wieder entfernt

Vielen Dank!

[alzaimar]

Ich konvertiere meine Float-Strings immer so, das das lokale Dezimaltrennzeichen verwendet wird:

Delphi-Quellcode:

If DecimalSeparator = '.' Then
  MyValueStr := StrReplace (MyValueStr, ',', '.') // Komma in Punkt
Else
  MyValueStr := StrReplace (MyValueStr, '.', ','); // Oder Punkt in Komma 

MyValueFloat := StrToFloat (MyValueStr);

Wieso sollte man dem Anwender per DecimalSeparator := '.'; ein anderes Trennzeichen aufschwatzen?

[kalmi01]

Hallo alzaimer,

Zitat:

Wieso sollte man dem Anwender per
.....
ein anderes Trennzeichen aufschwatzen?

soll man ja nicht.
Aber warum soll man alle seine Daten konvertieren, wenn sie nunmal mit "." vorliegen ?