Problem mit php script

[Dax]

Delphi-Quellcode:

function new_coord(var x, y: string): Variant;
begin
  x := IntToStr((StrToInt(x) + 250) * 2);
  y := IntToStr((StrToInt(y) + 250) * 2);

  if (x < 0) or (y < 0) then
  begin
    Result := false;
    Exit;
  end;

  Result := CreateVarArray([0, 2], varInteger);
  Result[0] := y[1] + x[1];
  Result[1] := y[2] + x[2];
  Result[2] := IntToStr(StrToInt(y[3]) div 10 + StrToInt(x[3]) div 2);
end;

Auch wenn ich nicht verstehe, warum du das nicht selbst machst