Kein gültiger Gleitkommawert???

[Dominik16]

Hallo Leute

Bin ein absoluter Neuling im Bereich Programmieren (1 Monat)

stehe nun vor folgendem Problem, wenn ich mein Program ausführe gibt er mir die Fehlermeldung

ist kein gültiger Gleitkommawert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
R, P, FdR, GP, L, B, FG, Stk, FdRR: extended;

begin
L := strtofloat (Laenge.Text);
B := strtofloat (Breite.Text);
FG := strtofloat (Fliesengroessen.text);
Stk := strtofloat (Anzahl.text);
R := strtofloat (Reserve.text);
P := strtofloat (Preis.text);
FdR := strtofloat (Flaeche.Text);
FdRR := strtofloat (FlaecheinkReserve.Text);
GP := strtofloat (Gesamtpreis.Text);

FdR := L*B;
FdRR := (FdR/100)*R + FdR;
Stk := FdRR/FG;

GP := Stk*P;

Gesamtpreis.Text := floattostr(GP);

end;

end.

Ich hoffe ihr könnt mir helfen.

MFG Dominik

[edit=Phoenix]Delphi-Tags eingefügt. Das nächste mal bitte selber machen. Mfg, Phoenix[/edit]

[mkinzler]

Es scheint irgendein eingegebenr text im Format nicht übereinzustimmen.
Nimm lieber TryStrToFloat() statt StrToFloat()

[Phoenix]

Du hast wahrscheinlich einen leeren String in die Funktion reingeworfen. Ein leerer String ist selbstverständlich kein gültiger Gleitkommawert.

Im Prinzip solltest Du vor dem StrToFloat immer prüfen, dass der String tatsächlich ausser Ziffern und Punkten für die Nachkommastellentrennung keine anderen Zeichen enthält und auch nicht leer ist.

[Dominik16]

d.h., dass das Edit Feld nicht leer sein darf???

[Phoenix]

Ja. Das Programm kann ja schliesslich nicht raten welche Zahl du haben willst, wenn keine Eingabe vorhanden ist.

[mkinzler]

Bei der alternativen Konvertierungsfunktion kannst du einen Default-Wert mitgeben.

[Dominik16]

Danke für eure Hilfe!