如何实现:给出一个字符串,然后能返回n个这个字符串?

Question

function GetString(SourceString: String): String;
var
  TempStr: STring;
begin
  TempStr := '';
  for i = 0 to 4 do
    TempStr := TempStr + SourceString;
  result := TempStr
end;哈哈，虽然有点弱智的代码，但是可以解决Good LuckePing :o)

Answer 1

to 楼上:
谢谢,不过delphi有写好的函数,我忘记了!

Answer 2

function GetString(SourceString: String; count: integer): String; 
var i: integer; 
begin 
  Result := ''; 
  for i = 1 to count do result := result  + SourceString; 
end; 

Answer 3

有一个函数：
    Concat 功能：合并字符串

Answer 4

strcopy:将一个字符串复制到另一个字符串中
strcat:将一个字符串附加到另一个字符串尾部并返回合并的字符串

Answer 5

来个简单的：
stringreplace('11111','1','Delphi',[rfReplaceAll]
呵呵，够了吧

Answer 6

嘻嘻，少了个括号
stringreplace('11111','1','Delphi',[rfReplaceAll] )

Answer 7

Delphi6自带的一个函数：function DupeString(const AText: string; ACount: Integer): string; //ACount个字符串之和Delphi5的就没了了: Delphi5只是n个字符之和，没有字符串之和:)