Delphi 用空格把 s 凑够 n 的长度

本文整理自网络，侵删。

 
//这个过程级函数的功能是: 用空格把 s 凑够 n 的长度
  function AddSpace(s: string; n: Word): string;
  begin
    while Length(s) < n do
    begin
      s := s + ' ';
    end;
    Result := s;
  end;
 

相关阅读 >>

Delphi tcolortohex 与 hextotcolor

Delphi 字符串、文件路径 排序算法

Delphi tfilestream 逐行读取文本

Delphi 加壳exe的方法

Delphi中showmodal 和 show 的区别

Delphi edit只能输入数字或小数点

Delphi在64位系统下写注册表注意事项

Delphi中编写无输出函数名的dll文件

Delphi ini文件操作用法

Delphi zlib 流压缩解压

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

转载请注明出处：木庄网络博客 » Delphi 用空格把 s 凑够 n 的长度