Von PHP nach Delphi

[Meflin]

Aloha!

folgenden PHP code möchte ich gerne nach Delphi übersetzen:

Code:

define('CON_COUNT', 10);
define('SEC_COUNT', 10);
define('SUB_COUNT', 5);

function coord_to_xy($con, $sec, $sub) {
   $x = $sub%SUB_COUNT + ($sec%SEC_COUNT)*SUB_COUNT + ($con%CON_COUNT)*SUB_COUNT*SEC_COUNT;
   $y = floor($sub/SUB_COUNT) + floor($sec/SEC_COUNT)*SUB_COUNT + floor($con/CON_COUNT)*SUB_COUNT*SEC_COUNT;
   return array($x, $y);
}

mein versuch war:

Delphi-Quellcode:

const
  CON_COUNT = 10;
  SEC_COUNT = 10;
  SUB_COUNT = 10;

  type TS4coords = record
    con: Integer;
    sec: Integer;
    sub: Integer;
  end;

  type TS2coords = record
    x: Integer;
    y: Integer;
  end;

function coord_to_xy(coords: TS4Coords): TS2coords;
var x,y: Integer;
begin
  x := (coords.sub mod SUB_COUNT) + (coords.sec mod SEC_COUNT)*SUB_COUNT + (coords.con mod CON_COUNT)*SUB_COUNT*SEC_COUNT;
  y := Floor(coords.sub div SUB_COUNT) + Floor(coords.sec div SEC_COUNT)*SUB_COUNT + Floor(coords.con div CON_COUNT)*SUB_COUNT*SEC_COUNT;
  Result.x := x;
  Result.y := y;
end;

Es geht um die Umrechnung zweier verschiedener Koordinatensysteme. Nur scheint meine Delphi Variante nciht wirklich dasselbe rauszubekommen wie obige PHP Version. Findet ihr einen Fehler, oder wie würdet ihr das umsetzen?



edit: :wall: :wall: :wall: :wall: jetzt hab ichs nach ein paar stunden (ok, minuten :mrgreen: ) verzweifelter suche doch noch gefunden... konstanten falsche werte zugewiesen :wall: :wall: sorry

[Skate_Hobbit]

also erstmal brauchten wir noch ein paar informationen: z.B. als was sind Result.x und Result.y deklariert bzw. wo?
Dann ist in deinem PHP-Code die Konstante SUB_COUNT wie folgt deklariert (SUB_COUNT, 5);
Im Delphi-code sieht das so aus SUB_COUNT = 10;
soll das so sein?
Sonst hab ich auf die schnelle keinen Fehler gefunden, hab auch leider gerad keine Möglichkeit das zu testen, da ich in der Uni kein Delphi hab.

Gruß Skate Hobbit

[Meflin]

Zitat:

Zitat von Skate_Hobbit

Dann ist in deinem PHP-Code die Konstante SUB_COUNT wie folgt deklariert (SUB_COUNT, 5);
Im Delphi-code sieht das so aus SUB_COUNT = 10;
soll das so sein?

Wie oben inzwischen erwähnt: nein :wall: das ist der fehler, trotzdem danke

[Skate_Hobbit]

ich habs gesehen, das du es schon gesehen hast, war halt zu spät mit abschicken, sry