delphi 输出用空格对齐字符串的函数


本文整理自网络,侵删。

 { 函数 }
function ToAlignString(const str: string; len: Integer): string;
var
i,n: Integer;
s: string;
begin
if Abs(len) < Length(str) then Result := str;
n := (Abs(len) - Length(str)) * SizeOf(Char);
for i := 1 to Length(str) do if Ord(str[i]) < 256 then Inc(n);
if n > 0 then s := StringOfChar(' ', n);
if Len > 0 then Result := s + str else Result := str + s;
end;

{ 测试 }
procedure TForm1.FormCreate(Sender: TObject);
var
s1,s2: string;
begin
Memo1.Font.Name := '宋体';
Memo1.Font.Size := 9;
Memo1.Clear;

s1 := '中国abc';
s2 := '中国人民abc';
Memo1.Lines.Add(ToAlignString(s1, -10));
Memo1.Lines.Add(ToAlignString(s2, -10));
Memo1.Lines.Add(ToAlignString(s1, 10));
Memo1.Lines.Add(ToAlignString(s2, 10));
end;

相关阅读 >>

Delphi 获取当天是星期几,计算两个日期相隔时间

Delphi fdquery 判断记录为空

Delphi 注册表启动项管理代码

Delphi捕获u盘插入或者拔出

Delphi的idhttp报508 loop detected错误的原因

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi webbrowser不能复制粘贴问题的解决办法

Delphi fdmemtable1建立缓存表

Delphi xe5 unicodestring的由来

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

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



打赏

取消

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

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

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

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

评论

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