Hallo,
1. Nicht zu viele unnötige Umwandlungen.
2. Besserer Code-Stil. Dann kannst du selbst besser durchblicken. Siehe dazu die Änbderungen unten.
3. Die Delphi-Hilfe liefert zu vielen Funktionen eine gute Beschreibung. Zum Beispiel gibt die Funktion StrToIntDef "0" zurück, wenn man irgend einen Mist eingibt. Alternativ kann man Fehleingaben mit
try...except abfangen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var rad, hoehex, hoehey : Integer;
begin
Rad := StrToIntDef(Radius.Text, 0);
with PaintBox1
do begin
hoehex := width
DIV 2;
hoehey := height
DIV 2;
Canvas.Pen.Color := clGreen;
Canvas.Pen.Width := 10;
Canvas.Ellipse(hoehex -
rad, hoehey -
rad, hoehex +
rad, hoehey +
rad);
end;
//Radius.Text:=(FloattoStr(StrtoFloat(Umfang.Text) / 2));
//Den Sinn dieser Zeile verstehe ich nicht ganz.
//eher folgende, um den Umfang zu berechnen:
Umfang.Text := IntToStr(Round(2 * PI *
Rad));
end;
Gruß,
ManuMF