Prüfen, ob der Variable ein Wert zugewiesen ist (delphi)

Question

procedure TForm1.Button1Click(Sender: TObject);
var a: real;
begin
a := StrToFloat(Edit1.Text);

Wie kann ich prüfen, ob der Variable a ein Wert zugewiesen wurde?

Answer 1

Die Variable hat immer einen Wert, wenn in Edit1.Text keine gültige Zahl eingegeben wurde hat a den Wert 0 oder eventuell auch NaN (Not A Number), es kann auch sein daß eine "Exception" ausgelöst wird wenn sich die Zeichenkette in Edit1.Text nicht in eine Zahl konvertieren läßt.

Answer 2

Es wird eine Exception ausgelöst, die man entsprechend abfangen muss:

procedure TForm1.Button1Click(Sender: TObject);
var
a: real;
begin
try
// Text kann konvertiert werden
a:= StrToFloat(Edit1.Text);
except
// Text konnte nicht konvertiert werden, also 0 zuweisen
a:= 0;
end;
end;

Siehe auch www.delphibasics.co.uk/RTL.asp?Name=StrToFloat.