Ellipsen ineinander zeichnen

Funnygirly · Hält's aus hier Beiträge: 7

Hallo,

ich schreibe bald eine Arbeit in Infromatik und will jetzt dafür üben. Komme aber nicht weiter. Ich soll mehrere Ellipsen mit passenden Schleifen ineinander zeichnen.
Ich nehme an, dass ich die kreise mit einer for-to-do Schleife zeichnen soll. Ich habe angefangen, allerdings zeichnet das Programm nur einen Kreis. Wie muss ichs denn machen?

So siehts bis jetzt aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var Ellipse:integer;
begin
for Ellipse:=1 to 10 do begin
   begin
      Image1.Canvas.Ellipse(50,50,100,100)
   end;
end;
end.

Lg

Moderiert von Christian S.: Delphi-Tags hinzugefügt

uall@ogc · Verfasst: Sa 22.05.10 12:57

markieren

Delphi-Quelltext

1:	Image1.Canvas.Ellipse(50+i,50+i,100-i,100-i)

Moderiert von Christian S.: Delphi-Tags hinzugefügt

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

Funnygirly · Hält's aus hier Beiträge: 7

ok danke

ich habs jetzt raus bekommen

Ehemaliges Mitglied Erhaltene Danke: 1

Verbesser bitte doch noch mal den Titel deines ersten Beitrages. Ich hatte erst überlegt, warum er zwei ältere Damen in einander zeichen will.

Funnygirly · Hält's aus hier Beiträge: 7

ok stimmt is mir auch grad aufgefallen xD

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme