Also wenn ich das jetzt richtig verstanden habe, dann muss das so gemacht werden:
Shape: Alle Werte = 100
Delphi-Quellcode:
var
SL:TStringlist;
...
while 0<i<2*pi do
begin
SL.Add(IntToStr(round(sin(i))));
SL.Add(IntToStr(round(cos(i))));
end;
Stimmt das so. Wenn die Werte nur ungefähr sind, reicht das völlig aus.
Ich aber wirklich ALLE Punkte, die IM Kreis liegen, also auch Mittelpunkt, Mittelpunkt -1 etc...
Wird dies durch diese Schleife erreicht?