una facil ..pero Urgente .. insertar espacios

[ingel]

Hola , disculpen la pregunta que estimo no deberia estar aqui ,pero dado que son 3 de la madrugada y a las 12 del mediodia se me vence el plazo , me tomo la libertad .. Necesito una funcion que me inserte x cantidad de espacios en una cadena ..
por ahora lo entoy haciendo con var+' '+ pero no me parece lo mejor... aparte tengo longitudes de 129 blancos o mas ...
gracias y disculpas.
Ingel ..

[Investment]

Con un bucle puedes hacerlo sin problemas:

   while i < Numero_de_espacios do
  begin
	Cadena:= Cadena + ' ';
	i:=i+1
  end;

[asegurpe]

Hola,

Yo utilizo estas tres funciones para insertar espacios en un texto

 
{Espacios por la derecha}
function Padr(cString:string;nLen:integer):string;
begin
if (Length(cString) <> nLen) then
   if Length(cString) > nLen then
	  Result:= Copy(cString,1,nLen)
   else
	  Result:=cString+space(nLen-Length(cString))
 else
	 Result:= cString;
end;
 
 
{Espacios por la izquierda}
function Padl(cString:string;nLen:integer):string;
begin
if (Length(cString) <> nLen) then
   if Length(cString) > nLen then
	  Result:= Copy(cString,1,nLen)
   else
	  Result:=space(nLen-Length(cString)) + cString
 else
	 Result:= cString;
end;
 
{Generador de espacios}
function Space(nLen:integer):string;
begin
	 result:=replicate(' ',nLen);
end;

Saludos