| IntCol2Alpha Function | 
Unit
QESBPCSConvert
Declaration
Function IntCol2Alpha(const Col: Word): string;
Description
If Col is 0 then empty string returned. If Col evaluates to greater than 'ZZ' then '**' is returned.
| Parameters | 
| Col | Column Number, where 1 is the first Column | 
Returns
Alphabetic Column Heading like 'A' or 'BC'.
Category
String/Integer Conversion RoutinesImplementation
 
| function IntCol2Alpha (const Col: Word): string;
var
     X: Word;
begin
     if Col > 0 then
     begin
          if Col < 27 then
               Result := Char (Col + 64)
          else
          begin
               X := (Col - 1) div 26;
               if X > 26 then
                    Result := '**'
               else
                    Result := Char (X + 64) + Char ((Col - 1) mod 26 + 65)
          end;
     end
     else
          Result := ''
End; | 
|  |