Forum: Object-Pascal / Delphi-Language
Delphi
by ichbins,
17. Dez 2005
ich habe ja for i:=2 to count gemacht, damit es weniger Elemente werden, da das 1. Element ja der Startpunkt ist. Du kannst ja das Element verwenden.
Ein dynamisches Array fängt immer bei 0 an und hört bei count-1 auf.
==>mach am Anfang result0]:=actposdann for i:=2 to countund dann result-1]:=actpos
Forum: Object-Pascal / Delphi-Language
Delphi
by ichbins,
17. Dez 2005
function spirale(abstand,count,startstep:integer;startpunkt:tpoint;drehsinnnachrechts:boolean):array of tpoint;
var
richtung,i,step:integer;
actpos:tpoint;
begin
richtung:=1;
actpos:=startpunkt;
setlength(result,1);
result:=actpos;
step:=startstep;