Problema con PerlRegex
 

Tengo un serio problema con este codigo :

Código Delphi [-]
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 ?

¿Y qué es perlregex?

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.

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

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 ?

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:

Código Delphi [-]
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. :)