Also...ich hab mich wieder umentschieden...auf 3 Blöcke, da ich angst hatte mit zwei blöcken aufeinander würde es vielleicht fehler geben...also:
Delphi-Quellcode:
var
Form1: TForm1;
z,zr,a,x1,x2,y1,y2,s : integer;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
spielfeld.Canvas.Brush.Color:= clRed;
zr:=10;
a:=30;
For z:=0 to 1 do
begin
For s:=0 to 2 do
begin
x1:=zr+3*(a+zr)+(a+zr)*s;
y1:=zr+(a+zr)*z;
spielfeld.Canvas.Ellipse(x1,y1,x1+15,y1+15);
end;
end;
For z:=0 to 2 do
begin
For s:=0 to 6 do
begin
x1:=zr+(a+zr)+(a+zr)*s;
y1:=9*zr+(a+zr)*z;
spielfeld.Canvas.Ellipse(x1,y1,x1+15,y1+15);
end;
end;
For z:=0 to 1 do
begin
For s:=0 to 2 do
begin
x1:=zr+3*(a+zr)+(a+zr)*s;
y1:=21*zr+(a+zr)*z;
spielfeld.Canvas.Ellipse(x1,y1,x1+15,y1+15);
end;
end;
end;
Danke atreju2oo0 für deinen Quellcode...Leider kann ich mit ihm nicht viel anfangen, besser gesagt, gar nichts, denn das alles, was da drinnen steht, hab ich kaum im Unterricht besprochen.
ich habe immer noch nicht den passenden Befehl gefunden, um eine Bestimmte Koordinate auszufüllen, und ich habe das Problem, dass ich nicht weiß, wie ich die Koordinate herausfinde...Vielleicht könntet ihr mir da hlefen?
Danke!
--Phallic