java to delphi

[jaenicke]

As you didn't tell what the code is for I couldn't test it. A direct translation should be:

Delphi-Quellcode:

function FlashG(fromINT, toINT: Integer): String;
var
  PPP, OOP: Integer;
begin
  Result := '';
  PPP := toINT;
  while PPP < fromInt do
    PPP := PPP * toINT;
  repeat
    OOP := fromInt div PPP;
    Result := Result + Chr(Ord('K') + OOP);
    fromInt := fromInt - PPP * OOP;
    PPP := PPP div toInt;
  until PPP <= 0;
end;

The naming conventions are different in Delphi but I didn't change it.