Zitat von
naudoc:
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c:real;
begin
if ((edit1.text=floattostr(a)) or (edit1.text='-'+floattostr(a)+'') or (edit1.text='0') or (edit1.text=''))
and ((edit2.text=floattostr(b)) or (edit2.text='-'+floattostr(b)+'') or (edit2.text='0') or (edit2.text=''))
and ((edit3.text=floattostr(c)) or (edit3.text='-'+floattostr(c)+'') or (edit3.text='0') or (edit3.text=''))
then
Was willst du mit dem Code denn erreichen? a, b und c sind nicht zugewiesene Real-Typen. Du solltest prüfen, ob die Methode StrToFloat auf das Edit angewendet einen Fehler hervorruft. Das kann man mit einem try...except...end-Block (näheres dazu in der Delphi-Hilfe) machen.