返回N个空格的函数叫啥来的？(10分)

  • 主题发起人 主题发起人 fx
  • 开始时间 开始时间
自己作了一个：
function RepeatChar(const Chr:Char;const Count:Integer):String;
begin
if Count>0 then
begin
SetLength(Result,Count);
FillChar(Result[1],Count,Ord(Chr));
end
else
Result:='';
end;

演示：

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=RepeatChar('B',10);
end;
 
试试函数

FillChar(var X
Count: Integer
value: Byte);

我觉得它比较难用，不如自己写一个！

 
对, FOXPRO中有 SPACE(N)非常简单, DELPHI不知有没有?
 
用StringOfChar就可以了。
 
用StringOfChar就可以了。
 
Forbase、Foxpro、dBase中都有Space()函数，主要用来对中标题信息的，如：
[][][][]统计报表[][][][]
用[]代替空格。
若要实现这种功能，可利用字符串的"+"运算；如：
Var
space, view: string;
i: byte;
Begin
space := '';
n=(80-length('统计报表'))/2
for i:=1 to n Do space := space + ' ';
viewMsg := space + '统计报表';
ShowMessage(viewMsg);
End;
 
多谢诸位，可惜就10分...
看来用StringOfChar最简单.
 
多谢诸位，可惜就10分...
看来用StringOfChar最简单.
 
您必须登录或注册才可回复。

Similar threads

S
[教程]Delphi 函数的内部函数在匿名回调函数中无法使用的一种解决办法
回复
0
查看
541
swish
S
S
[ZBar]CalcPerf 函数
回复
0
查看
559
swish
S
S
[教程]ZAsync 异步编程之四：请记住匿名函数是一个接口
回复
0
查看
699
swish
S
不
Delphi中实现变长函数笔记 - 不得闲
回复
0
查看
978
不得闲
不
S
[教程]Delphi 中的匿名函数详解
回复
0
查看
855
swish
S
后退
顶部