Foros Club Delphi - Abreviar o reducir un Texto

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

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

- - Abreviar o reducir un Texto (https://www.clubdelphi.com/foros/showthread.php?t=30193)

Abreviar o reducir un Texto

Hola a todos

A veces es tan dificil encontrar un titulo para una pregunta y por ello pido disculpas si el titulo no se entiende.

Me gustaria abreviar o reducir un Texto.

Digamos que tenemos el siguiente texto

'Mantenimiento del Plan de Cuentas'

Este texto tiene 33 caracteres yo solo debo mostrar 20 caracteres de la siguiente forma:

'Mantenimien.. Cuen..'

osea que tome primero los 10 primeros caracteres le aumente 2 puntos y un espacio y luego tome los primeros 4 caracteres de la ultima palabra y le aumente 2 puntos.

Por favor si alguien me puede ayudar o darme alguna idea de como hacerlo se lo agradeceria un monton.

Saludos y Gracias por adelantado

Te aconsejo revisar en la ayuda las funciones Copy() y Length(). (Te van a ser de mucha utilidad para conseguir lo que quieres ;)).

Saludos!

Muchas gracias jmariano me quedo asi

Código Delphi [-]var
   posi,i,band:Integer;
   s,cad,cad_nue:String;
begin
    posi:=-1;
    band:=0;
    cad_nue:='';
    cad:=edit1.Text;
    cad_nue:=copy(cad,0,9)+'..';
    s:=cad;
    while band=0 do
    begin
       posi:=pos(' ',s);
       s:=copy(s,posi+1,length(cad)-1);
       IF posi=0 THEN
          band:=1;
    end;
    cad_nue:=cad_nue+copy(s,0,2)+'..';
    showmessage(cad_nue);