ManuMF, ich werde dich in mein abendgebet einschließen ^^
*niederknie* Es funktioniert.. danke,danke,danke ^^
und wie krieg ich das jetzt hin (ja.. ich weiß ^^), dass das jetzt auch noch für Rechtecke und Quadrate funzt?
wenn du mir noch das hinschreibst, wie man eine weitere figur da reinkriegt, müsste ich die nächsten eig. können..^^
Delphi-Quellcode:
...
end;
Umfang.Text := IntToStr(Round(2 * PI *
Rad));
Radius.Text := IntToStr(Round(StrToInt(Radius.Text)
div 2));
so zumindest gehts schonmal nicht..