cortar string de largo fijo

[jgutti]

En un parrago de lago variable , necesito cortar con largo fijo todo el parrafo con largo 10
ejemplo: ESTA ES PRUEBA DE TEXTO
- Al cortar el string con largo 10 copy(palabra,1,10), el resultado es : ESTA ES PR
- Para este caso lo que necesito es el sgte resultado: ESTA ES
- Es decir que no corte las palabras

[Reasen]

Código Delphi [-]
var
  lol: string;
  i: integer;
begin
  lol := 'test1 test2 test3';
  i := 1;

  repeat
    inc(i);
  until copy(lol, i, 1) = ' ';

  txt1.Text := copy(lol, 1, i - 1);

Algo rápido que hice, no sé si te servirá, puedes usarlo como ejemplo.

[rastafarey]

Código Delphi [-]
If length (palabra)<=10 then
  Result := palabra
Else begin
   Result := copy (palabra, 10)
   Borrar de atras hacia adelante hasta econtrar un blanco, luego haces untrin a lo que quedó y listo

Enviado desde mi SM-G900H mediante Tapatalk