use of replace function with Sorokin's regex library

[Sibylla]

Hi,
I wonder how to use the replace function of Sorokin's regex library. I guess we need a variable such as:

re: TRegExpr;
MyReplaceFunction: TRegExprReplaceFunction;

But I didn't succeed in implementing the replace call with a replace function: re.Replace(... .

A

[engkin]

A replace function has to be a member function of some class (a form, for instance):

Code: [Select]

  TForm1 = class(TForm)
...
    function MyReplaceFunc(ARegExpr : TRegExpr): string;
...
implementation
...
function TForm1.MyReplaceFunc(ARegExpr: TRegExpr): string;
begin
  Result := 'Whatever your function needs to return';
end;

When you call re.Replace, pass @MyReplaceFunc or MyReplaceFunc based on the compiler mode you used.

Code: [Select]

...
{$mode objfpc}  //<----
...
  AfterReplacement := re.Replace(Expr, @MyReplaceFunc);


Code: [Select]

...
{$mode delphi} //<----
...
  AfterReplacement := re.Replace(Expr, MyReplaceFunc);


[Sibylla]

Thanks so much. It works nicely!
Here is the code snippet for those interested:

  re.Expression:= LabeledEdit1.Text; // the regular expression.
  input := Memo1.Text; // the text.
  s := re.Replace(input, @MyReplaceFunc);