php script > delphi

[himitsu]

also erstens solltest du darauf achten, was für's Datentyp es wirklich im PHP ist

$r = "";, das ist doch Eindeutig ein String und kein Integer, ausserdem weist der Punkt $r = $r . irgendwas ebenfalls auf 'ne Stringaddition - Zahlen werden mit dem Plus addiert.

aa1 könnte ja auch locker mal ein String oder ein array sein, woher sollen wir denn jetzt erahnen, was es ist.

Zeig uns also mal besser noch den Rest eines Script's, wo das drin ist.


mögliche Lösunden:

Delphi-Quellcode:

function TForm1.base32_encode_num(num: integer; aa1: String): String;
var r: string;
begin
  r := '';
  while num > 0 do
  begin
    r := r + aa1[(num - floor(num/32)*32) + (32 * random(1))];
    num:= floor(num/32);
  end;
  result := r;
end;

Delphi-Quellcode:

type Taa = array of integer;

function TForm1.base32_encode_num(num: integer; aa1: Taa): String;
var r: string;
begin
  r := '';
  while num > 0 do
  begin
    r := r + chr(aa1[(num - floor(num/32)*32) + (32 * random(1))]);
    num:= floor(num/32);
  end;
  result := r;
end;

Delphi-Quellcode:

// statt r könnte man ...
function TForm1.base32_encode_num(num: integer; aa1: String): String;
var r: string;
begin
  r := '';
  while num > 0 do begin
    r := r + aa1[(num - floor(num/32)*32) + (32 * random(1))];
    num:= floor(num/32);
  end;
  result := r;
end;

// ... aber auch gleich result verwenden
function TForm1.base32_encode_num(num: integer; aa1: ...): String;
begin
  result := '';
  while num > 0 do begin
    result := result + ...;
    num:= floor(num/32);
  end;
end;