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 调整应用程序内存大小

Delphi synedit的安装和基本使用

Delphi 判断网站文件是否存在

Delphi unigui中如何监听session的开始与结束

Delphi 反转内存的函数

Delphi获取各种编码的识别符

Delphi 过滤字符串首位特殊符号

Delphi 字符串替换函数[单元文件 sysutils]

Delphi 如何刷新文件图标

Delphi 显示程序占用内存多少

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

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