Показать сообщение отдельно
  #2  
Старый 16.04.2014, 10:55
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Если память не изменяет, там идёт А, B, С .. Z, AA, AB, AC
Откуда тут цифры прикреплённые к буквам?


Вам нужно посчитать деление нацело ваших колонок на 26.

Если 0, значит вам укладываетесь в алфавит.
Если 1, значит вам нужна первая "дополнительная" буква.
Если 2, значит нужна вторая дополнительная буква.

Для нумерации букв можно использовать ASСII таблицу:
65 - A, 66 - B ... и так далее.

Примерно:
Код:
Chr(65 + (ColumnCount div 26) - 1)

65 - 1 можно упростить. Оставил в фрмуле для наглядности
Ответить с цитированием