delphi 数字转Excel字母列序号


本文整理自网络,侵删。

 
unit Unit3;

interface

uses
  Math, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, Vcl.Samples.Spin, Vcl.ExtCtrls;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation



{$R *.dfm}

function ExcelNumToLetter(AExcelNum: Integer): string;
var
  vLen: integer;
  vNum: Integer;
begin
  vLen := Ord('Z') - Ord('A') + 1;
  Result := '';
  vNum := AExcelNum;
  while (vNum >= 0) do
  begin
    Result := Char(vNum mod vLen + Ord('A')) + Result;
    vNum := Math.floor(vNum / vLen) - 1;
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(Format('数字【%d】对应的Excel字母列号为【%s】', [SpinEdit1.Value, ExcelNumToLetter(SpinEdit1.Value)]));
end;

procedure TForm3.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  Memo1.Lines.BeginUpdate;
  for i := 0 to 300 do
  begin
    Memo1.Lines.Add(Format('数字【%d】对应的Excel字母列号为【%s】', [i, ExcelNumToLetter(i)]));
  end;
  Memo1.Lines.EndUpdate;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
end;

end.

//数字转Excel字母列序号 byQQ16643506

相关阅读 >>

Delphi textfile读取文本文件

Delphi安全结束线程

Delphi 监控系统文件操作

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 非主窗体(即子窗体)在任务栏显示按钮

Delphi 消息实现窗口最小化,最大化,关闭(Delphi)

Delphi 调用dll运行正常,退出时弹出错误解决办法

Delphi mainmenu控件 checkde属性用法

Delphi enablecontrols,disablecontrols函数

cnwizards cnpack ide 专家包

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...