Excel-Export, RefToCell, Spalten>26

[Blup]

Oder getrennt:

Delphi-Quellcode:

function RefToColumn(ACol: Integer): string;
const
  Basis = Ord('A');
  Range = Ord('Z') - Basis + 1;
begin
  Result := '';
  repeat
    Dec(ACol, 1);
    Result := Char(Basis + ACol mod Range) + Result;
    ACol := ACol div Range;
  until (ACol = 0);
end;

function RefToCell(ACol, ARow: Integer): string;
begin
  Result := RefToColumn(ACol) + IntToStr(ARow);
end;