Hier wird ein Array übergeben...
pt[1].X & pt[1].Y
stimmen auch...aber pt[2] ist totaler hunmbug (also zahlen der was-weiß-ich wie viel stellig)
Was mache ich falsch?
Delphi-Quellcode:
type
CPoints = record
X : Integer;
Y : Integer;
end;
var
THEpt : array[1..2] of CPoints;
THEpt[1].X := 100;
THEpt[1].Y := 280;
THEpt[2].X := 10;
THEpt[2].Y := 0;
DrawLines(THEpt,imgMain);
procedure DrawLines(pt: array of CPoints; img: TImage);
begin
img.Canvas.MoveTo(pt[1].X,pt[1].Y);
img.Canvas.LineTo(pt[2].X,pt[2].Y);
img.Canvas.TextOut(10,50,
'PT[1]X> '+IntToStr(pt[1].X)+' '+
'PT[1]Y> '+IntToStr(pt[1].Y)+' '+
'PT[2]X> '+IntToStr(pt[2].X)+' '+
'PT[2]Y> '+IntToStr(pt[2].Y));
end;