现在的位置: 首页 > 综合 > 正文

输出用空格对齐字符串的函数 – 回复 “老A123″ 的问题

2012年11月29日 ⁄ 综合 ⁄ 共 550字 ⁄ 字号 评论关闭
问题来源: http://www.cnblogs.com/del/archive/2007/12/18/1005161.html#1786227

{ 函数 }
function ToAlignString(const str: string; len: Integer): string;
var
  i,n: Integer;
  s: string;
begin
  if Abs(len)  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;

抱歉!评论已关闭.