Schulprojekt: Thema: Berechnungen am Rechteck

[Dennis S.]

Danke Danke :-D
das funktioniert :) zwar in etwas anderer Form, könnte aber auch das selbe sein :lol:
ich hab jetzt das da stehen:

Delphi-Quellcode:

begin
   IF (LaengeEdit.Text <> '') and (FlaecheEdit.Text <> '')
   THEN
    BreiteEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(LaengeEdit.Text))
   ELSE
    begin
     IF (BreiteEdit.Text <> '') and (FlaecheEdit.Text <> '')
     THEN
      LaengeEdit.Text := FloatToStr(StrToInt(FlaecheEdit.Text)/StrToInt(BreiteEdit.Text))
     Else Label11.Caption := 'Fehlende Eingabe'
    end
  end

Dennis

[Blackheart]

Delphi-Quellcode:

IF (LaengeEdit.Text <> '') and (FlaecheEdit.Text <> '')
   THEN

Ich glaube du solltest das mal alles übersetzen damit du klar kommst
steht in LaengeEdit etwas drin oder nicht und in FlaecheEdit etwas drin oder nicht dann tue ...

[Dennis S.]

Das weiß ich doch ^^. Also ich hatte ja vorher das mit 'or' und 3 Bedingungen. Nun habe ich im 1. If 2 Bedingungen und unter ELSE ein weiteres IF mit der fehelnden Bedingung und der notwendigen (indesemfalle die Fläche). Alles paletti und ich kann gleich alle 5 Werte mit 2 berechenen ;) sprich mit der Diagonale und 1 Seite kann ich dann Umfang, Fläche und Seite 2 ausrechenen.
Vielen Dank für die Hilfe. Ihr habt mir 3 Tage suchen erspart.

Lg Dennis