Ver Mensaje Individual
  #3  
Antiguo 06-11-2008
sedas sedas is offline
Registrado
 
Registrado: jul 2008
Posts: 7
Reputación: 0
sedas Va por buen camino
Smile un poco elaborado pero espero sirva

si es una cadena grande
primero mide la longitud
luego usa un for, un copy, un combobox (llamado LISTA1)
algo asi

si la cadena midiera 935 caracteres
y quieres lineas de 70 carcateres (por ejemplo)
cadena:='sasfsdf dsfsdf ... kjsdksj';

mide:=935;
lista1.items.clear; {limpia la lista}
nc:=mide div 70;

for n:=1 to nc do
lista1.items.add(copy(cadena,(n*70)-69,(n*70)));
lista1.items.add(copy(cadena,nc*70+1,mide));

y listo ahora tratalo como quieras

lista1.items.savetofile('datos.txt');

un poco elaborado pero si el tmemo no respeta los saltos de linea
este seria una solucion

en tmemo seria asi

memo1.lines.savetofile('datos.txt');


estoy en messenger [email protected]
Responder Con Cita