Schulprojekt: Thema: Berechnungen am Rechteck

[hoika]

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