Konvertierung: unsigned long -> Folge von Buchstaben.

[PistolPete]

Etwas kürzer aber rekursiv:

  function ExcelCol(pCol: integer): string;
    var lCol: integer;
  begin
    result := '';
    if pCol > 0 then
    begin
      lCol := (pCol-1) div 26;
      if lCol > 0 then
      begin
        result := result + ExcelCol(lCol);
        pCol := pCol - lCol * 26;
      end;
      result := result + chr(ord('A') + (pCol-1));
    end;
  end;

Ja, ich weiß, es ist Pascal Code...

Grüße

 

[sheel]

Schau doch bitte das nächste mal aufs Datum.

Einen fünf Jahre alten Beitrag ausgraben, um eine komplett verkehrte Programmiersprache hinzuschreiben?