Schulprojekt: Thema: Berechnungen am Rechteck

[Dennis S.]

genau

Delphi-Quellcode:

IF (LaengeEdit.Text <> '') or ((BreiteEdit.Text<> '') and (FlaecheEdit.Text <> ''))
   THEN
    begin
     LaengeEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text));
     BreiteEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(LaengeEdit.Text));
    end

ist LaengeEdit leer soll dieses ausgerechnent werden. Ist BreiteEdit frei dann das.