RtfToTxt (Truco 484)

[rauros]

Eso yo ya lo sé hacer (no quiero que penséis que pido código por la cara), pero lo que me gustaría que me ayudaran es a hacer la función sin necesidad de tener el richedit creado, osea, que la misma función la cree, transforme, y se destruya. Se supone que el código del primer post debería funcionar de ese modo, pero me dan errores de lectura de memoria...

[[cHackAll]]

Empezado por rauros

...(no quiero que penséis que pido código por la cara)...

Pero qué te ha echo pensar tal cosa... ???
a propósito, aqui esta tu "truco":

Código Delphi [-]
procedure RtfToTxt(Strings: TStrings);
var x: TRichEdit;
begin
 with TRichEdit.Create(nil) do
  begin
   Visible := False;
   Parent := Application.MainForm;
   Text := Strings.Text;
   PlainText := True;
   Strings.Assign(Lines);
   Destroy;
  end;
end;

Modo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile('c:\leecher.rtf');
 RtfToTxt(ListBox1.Items);
end;

La busqueda no es un adorno, esta allí para que no tengamos que estar haciendo el "trabajo" de otros una y otra vez; para éste hilo busca la palabra KeyLogger o SetWindowsHookEx, para éste la palabra LB_DIR o FindFirst.

Adios