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

F

fx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-10

• #1

 

李

李颖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-10

• #2

自己作了一个：
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;

 

H

hanson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-12

• #3

试试函数

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

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

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-12

• #4

对, FOXPRO中有 SPACE(N)非常简单, DELPHI不知有没有?

 

L

luyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-16

• #5

用StringOfChar就可以了。

 

L

luyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-16

• #6

用StringOfChar就可以了。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #7

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;

 

F

fx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #8

多谢诸位，可惜就10分...
看来用StringOfChar最简单.

 

F

fx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-17

• #9

多谢诸位，可惜就10分...
看来用StringOfChar最简单.