FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Recorrer un archivo .rtf
Hola amigos, necesito vuestra ayuda. Soy novato en esto del delphi. Necesito abrir y recorrer un archivo de texto .rtf, como lo hago? El archivo consta de muchas lineas donde cada una es una frase si espacios. Necesito coger determinadas palabras dentro de esas frases sin espacios...como lo hago?
Gracias por vuestra ayuda!! |
#2
|
|||
|
|||
Una posible implementación sería algo como:
procedure TForm1.Button1Click(Sender: TObject); var rtfEdit: TRichEdit; strLine: String; nLoop : Integer; begin rtfEdit := TRichEdit.Create(Nil); rtfEdit.Parent := Self; try rtfEdit.Lines.LoadFromFile('c:\MyRTF_File.rtf'); nLoop := 0; While nLoop < rtfEdit.Lines.Count do begin strLine := rtfEdit.Lines[nLoop]; //... Haz algo con la linea actual disponible en "strLine". //... Inc( nLoop ); end; finally rtfEdit.Free; end; end; |
#3
|
|||
|
|||
Ooops!! siento la ausencia de indentación, espero que se entienda.
Marco R. |
|
|
|