Einzelnen Beitrag anzeigen

pp-deluxe

Registriert seit: 7. Apr 2006
10 Beiträge
 
#1

Ungültiger Gleitkommawert

  Alt 21. Apr 2006, 11:54
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
  Mit Zitat antworten Zitat