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
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Última edición por Casimiro Notevi fecha: 07-06-2016 a las 00:54:17.
|