Hallo! Ich möchte ein kleines Berechnungs Programm erstellen.
Ich versuche ein Quadrat und ein Rechteck zu berechnen. Naja flächeninhalt und Umfang funktioniern schon, nur die Diagonale damit habe ich Probleme!
<pre>
// Berechnet die Diagonale.
<B>procedure</B> TForm2.Button2Click(Sender: TObject);
<B>var</B>
Diagonale : Integer;
sqrt : string;
<B>begin</B>
Diagonale := StrToInt (Label2.Caption) - ((StrToInt ((sqrt)#2));
Label6.Caption := IntToStr(Diagonale);
<B>end;</B>
</pre>
Danke für euere Hilfe XENON
Ps.: ich bekomme immer die Fehlermeldung Operator oder Semikolon fehlt ..
Ich versuche ein Quadrat und ein Rechteck zu berechnen. Naja flächeninhalt und Umfang funktioniern schon, nur die Diagonale damit habe ich Probleme!
<pre>
// Berechnet die Diagonale.
<B>procedure</B> TForm2.Button2Click(Sender: TObject);
<B>var</B>
Diagonale : Integer;
sqrt : string;
<B>begin</B>
Diagonale := StrToInt (Label2.Caption) - ((StrToInt ((sqrt)#2));
Label6.Caption := IntToStr(Diagonale);
<B>end;</B>
</pre>
Danke für euere Hilfe XENON
Ps.: ich bekomme immer die Fehlermeldung Operator oder Semikolon fehlt ..
Comment