怎么取得n个同样的字符串之和. (就像 SQL Server的Replicate()函数一样) (20分)

A

afeisky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #1

请问：怎么取得n个同样的字符串之和。(返回n个str串之和)
就像 SQL Server的Replicate(character_expression,integer_expression)函数一样

Delphi定有标准函数的，但我找不到

 

天

天什

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #2

自己編一個函數不就行了嗎?
function replicate(character_expression:string;integer_expression:integer):string;
var
strs:string;
begin
strs:='';
for i:=1 to n do
begin
strs:=strs+character_expression;
end;
result:=strs;
end;

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #3

D6 uses strutils

Unit

StrUtils

Category

string handling routines

function DupeString(const AText: string
ACount: Integer): string;

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #4

var
sMyStr : string;
begin
sMyStr := StringOfChar('a',500);//500个a
end;

 

P

pluszt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #5

To:天什
　　你的N是不是应该把它符值为integer_expression呢？
To:wind2k
好象人家要求的是字符串啊，你的这个好象是个单字符的！

 

A

afeisky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #6

xixi,thank for all!
好了，虽然没有找到字符串之和函数，但wind2000的可以解决我的问题了。thank

 

A

afeisky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-22

• #7

多人接受答案了。