Herzlich willkommen in der Delphi-PRAXiS, s03.
Dein Code funktioniert gut, allerdings würde ich ihn so implementieren:
Delphi-Quellcode:
// return Excel column name for zero based column index
function IndexToName(n: Word): String;
begin
Result := '';
repeat
Result := Chr(Ord('A') + n mod 26 - Ord(Result <> '')) + Result;
n := n div 26;
until n = 0;
end;
Mehr als 64K Spalten erwarte ich nicht.
Freundliche Grüße vom marabu