Polygon verschieben???

[Nikolas]

??? Wenn du den kleinsten x Wert hast, hast du doch gleichzeitig auch den Zahlenwert um den du alle Punkte verschieben muss.
Nimm einfach diesen Wert, zieh in von allen Punkten ab und schau dir mal das Ergebniss an.

[unwissend]

Da steht dann aber immer boolean und integer stimmen nicht überein! was soll das denn schon wieder sein?

[Nikolas]

Frag im Wahrsager-Forum :roll:

Für welche Zeile wird denn der Fehler angezeigt?

Ps: Welcher Joghurt? Ich hoffe es ist wenigstens Ananas.

[supermuckl]

[OT]
Toxman: Die Macht des Joghurts wird mit dir sein ;)
[/OT]

[unwissend]

procedure TForm1.ten1Click(Sender: TObject);
var v:integer;
begin
min:= ertserPunkt.xkoordinate
for i:= 0 to AnzahlDerPunkte do
if iterPunk.xKoordinate < min then
begin
min:=iterPunk.xKoordinate
:= i;
end;
image1.Canvas.MoveTo(xp[n-1]-PunktMitKleinsterKoordinate,yp[n-1]);
image1.Canvas.LineTo(xp[n],yp[n]);
end;

hinter deiner Punktmitkleinsterkordinate. (Hab sie natürlich umbenannt in v) nur hier so gelassen damit du siehst wie ich mir das gedacht hab

[Nikolas]

?? Ich versteh nicht ganz, was der Code soll. [Formatier in am besten mal mit den [ delphi]-Tags]

Beschreib doch mal kurz, wie du deine Punkte speicherst. So sieht das etwas wir aus.
Für was für einen Beleg brauchst du das Programm?