收集的一些零散代码

标签：delphi

格式化文本，动态添加空格

function formatStr(const srcStr: string;Leng:integer): string;
var
  i, iLen: integer;
begin
  //先把原字符串赋值给返回字符串Result
  Result:= srcStr;
  //计算相差多少空格
  iLen:= Leng - Length(srcStr);
  //在返回字符串后，补齐空格
  for i:= 1 to iLen do
  begin
    Result:= Result + ‘ ‘;
  end;
end;

本文出自 “随笔” 博客，请务必保留此出处http://amcto111.blog.51cto.com/351775/1533603

收集的一些零散代码,布布扣,bubuko.com

收集的一些零散代码

标签：delphi

原文地址：http://amcto111.blog.51cto.com/351775/1533603