No hay respuestas en este tema

[14K]

Tengo un serio problema con este codigo :

[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.[/DELPHI]

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 ?