Ver Mensaje Individual
  #1  
Antiguo 08-12-2009
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Reputación: 16
cocute Va por buen camino
Alguien sabe un modo mas efectivo de hacer esto con el texto de un memo

Lo que hago es cargar un fichero de texto de unas 700 lineas en un memo y me interesa quitale lineas por arriba y por abajo y luego reemplazar alguna palabra. Pero la eficiencia es nula y le cuesta bastante hacerlo.
Me podeis decir cual seria la forma correcta de hacerlo para que vaya rápido.
Quizas usando otro componente que no sea el memo clásico?

Cita:
//busco en el memo desde el principio una linea que coincida con PALABRA y borro todas las anteriores lineas
while Memo1.Lines[0]<>'PALABRA' do memo1.Lines.Delete(0);

//borrar todas las lineas del memo a partir de la 127 en adelante.
for I := 0 to Memo1.Lines.Count do memo1.Lines.Delete(127);

//recorrer las lineas que quedan y sustituir Palabra1 por Palabra2
for x := 0 to Memo1.Lines.Count do
memo1.lines[x]:= StringReplace( memo1.Lines[x],'palabra1','palabra2',[rfReplaceAll]);
gracias
Responder Con Cita