delphi PADL 处理字符串的函数

本文整理自网络，侵删。

 
function PADL(Src: string; Lg: Integer): string;

begin

Result := Src;

while Length(Result) < Lg do

   Result := ' ' + Result;

end;

 

function PADR(Src: string; Lg: Integer): string;

begin

Result := Src;

while Length(Result) < Lg do

   Result := Result + ' ';

end;

 

function PADC(Src: string; Lg: Integer): string;

begin

Result := Src;

while Length(Result) < Lg do

begin

   Result := Result + ' ';

   if Length(Result) < Lg then

   begin

     Result := ' ' + Result;

   end;

end;

end;

 

S := PADL(S,32); 
 

相关阅读 >>

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi xe中windows7新的taskbar功能的使用

Delphi通过spcomm com口发短信包括pud编码解码

Delphi 类和对象

Delphi trayicon控件,如何实现窗口最小化的时候到系统托盘？

Delphi 利用for循环自我复制到全盘用timer监控

Delphi pagecontrol1 另类隐藏页的方法

Delphi 编写网址加密解密代码

Delphi 密码框写完后按enter直接登录

Delphi 在windows平台下实现进程隐藏

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

转载请注明出处：木庄网络博客 » delphi PADL 处理字符串的函数