TPerlRegEx einbinden?

[Klaus01]

Hallo,

diesen Codeschnipsel habe ich hier gefunden.
Vielleicht hilft er Dir ja weiter.

Delphi-Quellcode:

function MatchExpression(subj, expr: string; max: boolean = False): string;
begin
  with TPerlRegEx.Create(nil) do
    begin
      RegEx := expr;
      Subject := subj;

      if Match then
        begin
          if max then
            repeat
              result := SubExpressions[SubExpressionCount]
            until not MatchAgain
          else
            result := SubExpressions[1];
        end;
    end;
end;

Grüße
Klaus

[Chefx]

Danke bloß jetzt kommt bei mir fehler in der cpu!

weiß nicht wo ich da hier ein fehler gemacht hab?

hier noch mal mein gesamter quelltext:

Delphi-Quellcode:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses perlregex;

{$R *.dfm}

function MatchExpression(subj, expr: string; max: boolean = False): string;
begin
  with TPerlRegEx.Create(nil) do
    begin
      RegEx := expr;
      Subject := subj;

      if Match then
        begin
          if max then
            repeat
              result := SubExpressions[SubExpressionCount]
            until not MatchAgain
          else
            result := SubExpressions[1];
        end;
    end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
edit1.Text:=MatchExpression('a','^[aA]$');
end;

end.

also reinthoretidch müsst das doch klappen.

[Klaus01]

Wann kommt denn der Fehler, hast Du mal Haltepunkte gesetzt
und mit F7 bzw. F8 gearbeitet?

Welche Delphiversion nutzt Du?

Grüße
Klaus

[Chefx]

Also wenn ich das Projekt starte
kommt in der CPU
in der
ntdll.Dbgbreakpoint:
...
77957DFF C3 ret

keine ahnung was das heißt

zurzeit Delphi 2009 (Trialer)

wenn das damit nicht funktioniert kann ich auch auf Turbodelphi wechseln!

[Klaus01]

zu dem ntdll.Dbgbreakpoint hilft Dir das vielleicht.


Das Problem solltest Du nicht haben, wenn Du das Programm ausserhalb der IDE startest.#

Und ob TPerlRegEx UniCode fähig ist - keine Ahnung.

Grüße
Klaus

[worker]

In dem Zip, das Du heruntergeladen hast, befindet sich die PerlRegEx.hlp; vielleicht solltest Du Dir die mal zu Gemüte führen...

[Chefx]

das geht leider unter Vista nicht.
und wie binde ich die dann den patch ein?
achso
und der findet die pcre3.dll nicht!

[worker]

Zitat von Chefx:

und der findet die pcre3.dll nicht!

Mit Lesen und ein bissel selber mal forschen hast Du es nicht so, gell?
Lies Dir die Entwicklerkommentare in der pcre.pas durch; dafür sind sie gedacht *grml*

[Chefx]

oh ja stimmt !

wenn ich das richtig verstanden hab muss man die pcre3.dll dort in der pcre.pas definieren?
Wie denn?(hab das noch nie gemacht )

Zitat:

Delphi-Quellcode:

// Define PCRE_LINKDLL to use pcre3.dll
{$DEFINE PCRE_LINKDLL} //<--hier das definieren?

[worker]

Erstmal:

Die DLL befindet sich im Unterverzeichnis '\pcre'.
Die muss sich, solltest Du sie benutzen wollen, natürlich in dem Verzeichnis befinden, in dem sich später auch Deine Exe befindet; oder aber zumindest in einem Verzeichnis, dass in der Path-Variable eingetragen ist. Und Du musst sie dann halt mit ausliefern, wenn Du Deine Anwendung veröffentlichst.

Solltest Du die DLL nutzen wollen, so musst Du in der pcre.pas
{$DEFINE PCRE_LINKDLL} setzen und
{$DEFINE PCRE_STATICLINK} auskommentieren.

Solltest Du die DLL nicht nutzen wollen, so machst Du das oben genannte anders herum.
Dabei werden dann die OBJ-Files in Deine Exe gelinkt, und Du kannst auf das Deployment von Dritt-Dateien verzichten.

Achtung
Wenn Du die DLL nicht nutzen willst, dann darfst Du die Sourcen nicht über ein Package in Deine IDE integrieren; ansonsten bekommst Du einen internen Fehler!