Javascript в Delphi?

Question

[Yam0lod5y]

Пытаюсь переписать js код в делфи

function columnToLetter(column){
  var temp, letter = ''; 
  while (column > 0) {
   temp = (column - 1) % 26;
   letter = String.fromCharCode(temp + 65) + letter;
   column = (column - temp - 1) / 26;
  }
  console.log(letter)
  return letter;
 }

Мой код, всё еще в прогрессе, но всё равно, что то не понимаю

function TFormMenu.FromCharCode(ch: array of byte): AnsiString;
var
  L: Integer;
begin
  L := Length(ch);
  SetLength(result, L);
  if L > 0 then
    Move(ch[0], result[1], L);
end;

function TFormMenu.columnToLetter(column: Integer): string;
var
  temp: integer;
  letter : string;
  ch: array[0..500] of byte;
begin
  while (column > 0) do
  begin
    temp := (column - 1) mod 26;
    ch[s] := ((temp + 65) + StrToInt(letter));
  if inttostr(ch[s]) <> '0' then
      letter := letter + FromCharCode(ch[s]);
    end;
    letter := result;
    column := round((column - temp - 1) / 26);
  end;

Comments

[Hemul GM]

Не надо слепо переписывать код. Для начала, нужно понять что он делает. Т.е. что на вход, а что на выход.
В каждом языке есть свои инструменты и в каждом языке по-разному можно реализовать ту или иную задачу. Что-то может быть уже сделано в системных библиотеках, а что-то нужно сделать самому. Опиши то, что делает код на js и будет проще помочь

Answer 1

[Hemul GM]

function columnToLetter(column: Integer): string;
var
  temp: Integer;
begin
  Result := '';
  while (column > 0) do
  begin
    temp := (column - 1) mod 26;
    Result := Char(temp + 65) + Result;
    column := (column - temp - 1) div 26;
  end;
end;