7 respuestas en este tema

[eduarcol]

Esto mas que un truco o un consejo lo coloco para depurarlo entre todos, claro entre los que quieran ayudar 

La siguiente función divide una palabra dado un largo, la división la realiza agragandole el salto de linea (#13#10). El tamaño de la división no sera exacto como el largo, se tomara en cuenta el siguiente espacio.

delphi

procedure SepararPalabras(Largo: Integer; var Palabra: String);
var
   cTemp: String;
   nIdx, SumaLargo, LargoActual: Integer;
begin
   //Verifica que la palabra sea mayor que la cantidad por linea
   if Length(Palabra) > Largo then
   begin
      cTemp := '';
      SumaLargo := 0;
      //Recorre la palabra para ir diviendola
      while SumaLargo < Length(Palabra) do
 
      begin
         //Verifica si el caracter actual es espacio
         if (Copy(Palabra, SumaLargo + Largo, 1) = ' ') then //Actual
            //toma el largo donde debe ir
            LargoActual := Largo
         else
         begin
            //Calcula el proximo espacio
            if Pos(' ', Copy(Palabra, SumaLargo + Largo, Length(Palabra))) > 0 then
               //Si hay un espacio
               LargoActual :=  Largo + Pos(' ', Copy(Palabra, SumaLargo + Largo, Length(Palabra))) - 1
            else
               //Llega al final de la palabra
               LargoActual := Length(Palabra) - SumaLargo + 1;
         end;
         //Divide la palabra un LARGO a la vez
         cTemp := cTemp + Trim(Copy(Palabra, (SumaLargo), LargoActual));
         //Acumula los largos
         SumaLargo := SumaLargo + LargoActual;
 
         //Agrega el salto de linea
         cTemp := cTemp + #13#10;
      end;
      //Devuelve la palabra completa
      Palabra := cTemp;
   end; //Verifica que la palabra sea mayor que la cantidad por linea
   
 
end;

[escafandra]

Esta es mi propuesta:

delphi

function SepararPalabras(S: string; Len: integer): string;
var
  i, f: integer;
begin
  i:= 1;
  f:= i;
  if Len > Length(S) then Len:= Length(S);
  while i<= Length(S) do
  begin
    while (f-i < Len) or  (S[f] <> ' ') do inc(f);
    Result:= Result + Trim(Copy(S, i, f-i)) + #13+#10;
    i:=f+1;
  end;
end;

Saludos.

[eduarcol]

Esta es mi propuesta:

delphi

function SepararPalabras(S: string; Len: integer): string;
var
  i, f: integer;
begin
  i:= 1;
  f:= i;
  if Len > Length(S) then Len:= Length(S);
  while i<= Length(S) do
  begin
    while (f-i < Len) or  (S[f] <> ' ') do inc(f);
    Result:= Result + Trim(Copy(S, i, f-i)) + #13+#10;
    i:=f+1;
  end;
end;

Saludos.

Lo probastes, creo no funciona

[escafandra]

Si, lo he probado y funciona. 

Ten en cuenta que no paso el string por referencia sino que la función devuelve el resultado.
He pensado que quizás es mejor así para no perder la cadena original...

Te subo un ejemplo. 

Saludos.

[eduarcol]

Tienes razon jajaja, errores de novato , deja que pruebo de nuevo

[escafandra]

Tienes razon jajaja, errores de novato , deja que pruebo de nuevo

¿Novato? 

Despistadillo...

Saludos.

[jorgeu]

La siguiente función divide una palabra dado un largo, la división la realiza agragandole el salto de linea (#13#10). El tamaño de la división no sera exacto como el largo, se tomara en cuenta el siguiente espacio.

Supongo que también es un reto entender lo que dices jajajaja

[eduarcol]

jajajaj es que no es tan facil redactar el resultado de eso