Saludos, estoy tratando de hacer un procedimiento que permita partir un string en varios trozos, el problema que tengo es que no quiero que me parta las palabras.
tengo este codigo
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i,contador:integer;
s,t,cadena: string;
k: integer;
begin
cadena:='Delphi 1 es una potente herramienta de desarrollo de programas que permite la creación de aplicaciones para Windows 3.x, Windows95 y Windows NT.';
contador:=0;
s :='Delphi 1 es una potente herramienta de desarrollo de programas que permite la creación de aplicaciones para Windows 3.x, Windows95 y Windows NT.';
k := Length(s);
for i := 1 to k do
begin
contador:=contador+1;
t := t + s[i];
if contador>9 then
Begin
ShowMessage(t); t:='';
contador:=0;
End
end;
ShowMessage(t); end;
al ejecutar el codigo anterior me divide la cadena pero corta las palabras
ejemplo:
Cita:
'Delphi 1 e'
's una pote'
|
Lo que quiero es cortar una cadena en pedazos mas chicos y no me corte las palabras
espero a ver si me echan una manito
saludos y gracias de antemano.