Foros Club Delphi - una facil ..pero Urgente .. insertar espacios

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - una facil ..pero Urgente .. insertar espacios (https://www.clubdelphi.com/foros/showthread.php?t=22383)

una facil ..pero Urgente .. insertar espacios

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 ..

Con un bucle puedes hacerlo sin problemas:

Código:

   while i < Numero_de_espacios do

  begin

        Cadena:= Cadena + ' ';

        i:=i+1

  end;

Posible solución

Hola,

Yo utilizo estas tres funciones para insertar espacios en un texto

Código:

 

{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