Problema con PerlRegex

[JuanOrtega]

Tengo un serio problema con este codigo :

unit test;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, PerlRegEx;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
PerlRegEx1: TPerlRegEx;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function ReverseString(const S: string): string;
var
i, len: Integer;
begin
len := Length(S);
SetLength(Result, len);
for i := len downto 1 do
begin
Result[len - i + 1] := S[i];
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
conte: TMemoryStream;
source: string;

begin

conte := TMemoryStream.Create;
conte.LoadFromFile('test.txt');
SetString(source, PAnsiChar(conte.Memory), conte.Size);

source := ReverseString(source);

PerlRegEx1.Regex := '} 2 E R E H { (.*) } 2 E R E H {';
PerlRegEx1.Subject := source;

if PerlRegEx1.Match then
begin
Edit1.Text := PerlRegEx1.SubExpressions[1];
end;

end;

end.

El problema es que no lee bien este archivo : http://uploaded.net/file/ghhm0xv4 , perdon si les molesta que lo suba pero es tan largo que no puedo ponerlo en pastebin u otra pagina similar.
Creo que tengo que hacer algo el contenido del archivo antes de tratarlo con PerlRegex , pero no se que tengo que hacer.
El problema es que no encuentra nada con perlregex pero el programa no tira ningun error.
Estoy usando esta regex : } 2 E R E H { (.*) } 2 E R E H { que si funciona porque lo eh probado en el mismo perl

¿ Como puedo cargar bien el archivo con PerlRegex ?

[Casimiro Notevi]

¿Y qué es perlregex?

[JuanOrtega]

es un componente para usar las expresiones regulares de perl pero el problema viene del archivo binario que esta en txt deberias verlo porque yo no se como tratarlo para usar el componente perlregex que solo pide un string para usarlo.

[Casimiro Notevi]

Ya lo vi, es un fichero "vuelto del revés"

[JuanOrtega]

si lo di vuelta al reves para ver si asi encontraba algo con perlregex pero ni bien ni al reves encuentra algo , tenes alguna idea de como limpiar el archivo para que solo quede el texto porque no se como tratar el archivo , vos que pensas que puedo hacer ?

[ecfisa]

Hola Lepuke.

No conozco el componente PerlRegex, a que librería pertenece y tampoco que función cumple. Pero te puedo asegurar que el problema, que tampoco entiendo cuál es, esta en ese componente.
Y me animo a afirmar eso por que tu código, sacando la referencia al componente funciona perfectamente.

Para comprobarlo basta una simple prueba:

var
conte: TMemoryStream;
source: string;
begin
conte := TMemoryStream.Create;
try
conte.LoadFromFile('ARCHIVO.TXT');
SetString(source, PAnsiChar(conte.Memory), conte.Size);
Memo1.Text := source; // Muestra el contenido sin problemas
finally
conte.Free
end;
end;

Tendrías que consultarle al autor sobre el uso del componente y la forma de enviarle la cadena que procesa.

Saludos. :)