function IntToLetter(Value: Integer): String;
begin
Result := '';
while Value > 0 do
begin
Result := chr(ord('A') + (Value - 1) mod 26) + Result;
Value := (Value - 1) div 26;
end;
end;
将数字转为字母(转)
最新推荐文章于 2024-02-01 17:02:59 发布
function IntToLetter(Value: Integer): String;
begin
Result := '';
while Value > 0 do
begin
Result := chr(ord('A') + (Value - 1) mod 26) + Result;
Value := (Value - 1) div 26;
end;
end;