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; |
|