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 pchar和array [0..255] of char的区别

Delphi跨平台的字符串代码标准

Delphi console程序中一种定时方法

Delphi cross socket的库

Delphi 右下角滑动消息窗口

Delphi string转unicode

Delphi 截取被遮挡的window画面

Delphi获取内存及cpu信息的函数

Delphi 关于 beep、messagebeep 和 windows.beep

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

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