本文整理自网络，侵删。
{ 函数 }
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:窗体的扩展样式gwl_exstyle用于setwindowlong
Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出
更多相关阅读请进入《Delphi》频道 >>
