Diagonalen beim Rechteck

[grenni999]

Länge und Breite werden vom Inhalt des Länge-Editfeldes befüllt - es wird immer die Diagonale eines Quadrates mit der Seitenlänge der Länge des Rechteckes.
Wenn Breite mit dem Wert des Breite-Editfeldes befüllt wird, sollte es schon klappen....

Hat sich wohl erledigt...

[Uwe Raabe]

Nur mal zur Info: in der Unit Math.pas gibt es eine Funktion Hypot, die dir genau dies ausrechnet.

[DeddyH]

Auch wenn es sie nicht gäbe, sollte man IMO die Berechnung in eine eigene Funktion packen:

Delphi-Quellcode:

function Diagonale(Laenge, Breite: double): double;
begin
  Result := sqrt(sqr(Laenge) + sqr(Breite));
end;

procedure TDiagonalenRechteck.RechnenButtonClick(Sender: TObject);
var 
  laenge, breite: integer;
begin
  laenge := strToInt(laengeEdit.text);
  breite := strToInt(breiteEdit.text);     
  ErgebnisLabel.Caption := floatTostr(Diagonale(laenge, breite));
end;