@Yam0lod5y

Javascript в Delphi?

Пытаюсь переписать 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;
  • Вопрос задан
  • 132 просмотра
Решения вопроса 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
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;
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы