Delphi Hilfe

function TForm3.GetTransformedPosition: TPoint;
var
  SX, SY: Extended;
begin
  SX := FMap.Width / FMapPos.X;
  SY := FMap.Width / FMapPos.Y;
  Result.X := Round(Width / 2 - FMap.Width / SX);
  Result.Y := Round(Height / 2 - FMap.Height / SY);
end;

type
  TVector2D = record
  begin
    x,y
    : Integer;
  end;

  TGameObject = record
  begin
    // some stuff
    position
    : TVector2D;
  end;

// some methods n shit

var
  // lots of things here
  myObjects
  : array of TGameObject;

  i, // Counter
  displayWidth, // width of visible area
  displayHeight // height of visible area
  : integer;

  upperLeftField // contains coords of  upper left corner field of visible area
  : TVector2D;
begin
  // do whatever
  for i := low(myObjects) to high(myObjects) do
  begin
    if ((myObjects[i].position.x > upperLeftField.x) and
       (myObjects[i].position.x <= upperLeftField.x + displayWidth) and
       (myObjects[i].position.y > upperLeftField.y) and
       (myObjects[i].position.y <= upperLeftField.y + displayWidth)) then
    begin

      // Arguments 2 and 3 do not need to be given,
      // since this can be calculated inside the method
      // but I wrote them down for clarification
      drawObject(myObjects[i], // Object to draw
                      myObjects[i].position.x - upperLeftField.x, // X coord on display rect
                      myObjects[i].position.y - upperLeftField.y); // Y coord on display rect

    end;
  end;
  // do something exciting here
end.

P := GetTransformedPosition;
  { ... }
  for I := Low(FMapObjects) to High(FMapObjects) do
  begin
    Canvas.Draw(P.X + FMapObjects[I].Pos.X, P.Y + FMapObjects[I].Pos.Y, FMapObjects[I].Image);
  end;