Hallo,
Delphi-Quellcode:
IF (LaengeEdit.Text <> '') or ((BreiteEdit.Text<> '') and (FlaecheEdit.Text <> '')) THEN
begin
LaengeEdit.Text := IntToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));
Das nehmen wir mal auseinander
Delphi-Quellcode:
IF (LaengeEdit.Text <> '') then
begin
LaengeEdit.Text := IntToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));
[/delphi]
Der FlaecheEdit oder Breitedit können hier leer sein
dann kommt bei StrToInt('') die besagte
Exception
OR
Delphi-Quellcode:
IF ((BreiteEdit.Text<> '') and (FlaecheEdit.Text <> '')) THEN
begin
LaengeEdit.Text := IntToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));
[/delphi]
Also stimmt dein if nicht immer
Heiko