Gracias Neftalí.
Mi problema es el que creo apuntas, "los caracteres que codifican los formatos de fichero."
Empleo éste código:
Código:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
Lineas: TStringList;
Linea, Campo1, Campo2: string;
i:integer;
begin
Lineas := TStringList.Create;
try
Lineas.LoadFromFile('D:\Lecturas.rtf');
for i:= 0 to Lineas.Count - 1 do
begin
Linea := Lineas[i];
RE2.Lines.Add(Linea)
{ RE2 es un RxRichEdit}
end;
finally
Lineas.Free;
end;
end;
Qué debo hacer para que 'desaparezca' esto:
"{\f36\froman\fcharset238\fprq2 Times New Roman CE;}{\f37\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f39\froman\fcharset161\fprq2 Times New Roman Greek;}{\f40\froman\fcharset162\fprq2 Times New Roman Tur;}", ya que con .txt, como es lógico, no sale.
Luego, ¿hay algo determinado para leer desde la línea 18 a la 50? y luego insertarlo allí otra vez, una vez modificado.
Perdón por si pido algo complicado o, por el contrario, es tan fácil que ya debiera saberlo.
Gracias otra vez.
Saludos.
Tonio.