Wer denn auch mal die Lösung braucht. Habe mal aus den Vorschlägen eine Funktion gebastelt. Für die Spalten "A" bis "ZZ".
Delphi-Quellcode:
function GetSpreadsheetColname(aIndex: Integer):
string;
begin
if not InRange(aIndex, 0, 701)
then
raise Exception.Create('
GetSpreadsheetColname -> Index out of range (0-701): ' + IntToStr(aIndex));
Result := chr(65 + aIndex
mod 26);
aIndex := aIndex
div 26;
if aIndex > 0
then
Result := chr(64 + aIndex) + Result;
end;