Reg Expr

[omata]

Delphi-Quellcode:

procedure GetHexValues(Input:string; Values:TStrings);
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    Values.Clear;
    RegExpr.Expression := '[^A-F0-9]*([A-F0-9]*)[^A-F0-9]*';
    if RegExpr.Exec(Input) then begin
      repeat
        Values.Append(RegExpr.Match[1]);
      until not RegExpr.ExecNext;
    end;
  finally
    RegExpr.free;
  end;
end;

RegExpr