[fpc-devel] [patch] - fpcUnit testreport.pp

[Michael Van Canneyt]

On Thu, 26 Oct 2006, Micha Nelissen wrote:

> Graeme Geldenhuys wrote:
> > +begin
> > +  sString := '';
> > +  for i := 1 to pIntLen do
> > +    sString := sString + ' ';
> > +  Result := sString;
> > +end;
> 
> I object to the inefficiency of this implementation. Isn't there a routine in
> system to generate a string of X characters ?

Yes. StringOfChar()

Michael.