//-----------------------------------------------
AnsiString DecimalTo26(int n){ // отсчет n от 1-цы
// преобразование целого к основанию системы счисления 26
// для именования столбцов Excel
static char *Lat="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
int k;
AnsiString r;

while(n>0){
	k=(n-1)%26;
	r=AnsiString(Lat[k])+r;
	n=(n-1)/26;
}
return r;
}