Forum: Object-Pascal / Delphi-Language
Delphi
by thepaine91,
23. Dez 2009
:D Mir war schon wieder langweilig so ein Tag vor dem Urlaub, ^^
da hab ich das ganze mal umgeschrieben. So das eine (3D) Pyramide gezeichnet wird. ^^
Kannst ja nach den Schulferien(sind ja atm soweit ich weis) deinem Lehrer geben. ^^
procedure TForm1.Pyramide_3d_paint(grundflaeche, anzahl_ebenen: Integer);
var i, i2, hoehe, grundflaeche_halb, rw_d3d: integer;
begin
with form1.Canvas...
Forum: Object-Pascal / Delphi-Language
Delphi
by thepaine91,
11. Dez 2009
Michael Linden es funktioniert auch so schon lies dir nochmal den Quelltext durch. ;)
mfg nic
Forum: Object-Pascal / Delphi-Language
Delphi
by thepaine91,
11. Dez 2009
Da hier keiner mehr Antwortet und mir langweilig war:
private
procedure Pyramide_paint(grundflaeche, anzahl_ebenen: Integer);
procedure TForm1.Pyramide_paint(grundflaeche, anzahl_ebenen: Integer);
var i, i2, hoehe, grundflaeche_halb: integer;
begin
//Bug entfernt.
if frac(grundflaeche / 2) <> 0 then