DIRegEx - String auf Pattern testen

[Getox]

Hiho,

ich probiere grade ein wenig mit RegEx rum. Da diese Technik erst mit XE eingeführt wurde, arbeite ich mit DIRegEx von Ralf Junker.

Ich habe schon so weit, dass ich einzelne Wörter aus Strings raussuchen kann und Gruppen durch klammern im Pattern bestimmen und anschließend über substring ansprechen kann.

Mein problem ist jedoch ein anderes:

Ich will sagen: Wenn der String komplett auf den Pattern passt, dann führe Aktion XY aus, ansonsten mache was anderes.

also ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR
  RegEx: TDIRegEx;
  Words: String;
begin
  Words := Edit1.Text + ':' + Edit2.Text;
  RegEx := TDIPerlRegEx.Create(nil);
  RegEx.SetSubjectStr(Words);
  RegEx.MatchPattern := '(\w+):(\w+)';
  RegEx.Match;
  if 'Hier weis ich nicht was ich abfragen soll' then
  begin
    Label1.Caption := RegEx.SubStr(1);
    Label2.Caption := RegEx.SubStr(2);
    Label3.Caption := Words;
  end;
end

Es kann ja in diesem Beispiel auch sein, dass Edit1 oder Edit 2 leer sind. In dem Fall würde der String nicht auf den Pattern passen und beim versuch den Substring abzufragen würde ich ein 'out of bounds' um die Ohren bekommen. Ich suche quasi einen Boolean, der mir sagt "String passt auf Pattern" oder "String passt nicht auf Pattern".

[Jens01]

Könnte das für Dich passen?

[Getox]

Das ist ja von dem "original" RegEx, das ab XE drin ist. Ich muss aber, da ich D2007 habe auf eine Komponente von einem Drittanbieter zurückgreifen und in der gibt es das "isMatch" leider nicht. Aber ja, wenn ich XE hätte, wäre es das was ich suche

Ich habe die Hoffnung, dass hier einer schon mit DIRegEx gearbeitet hat (http://www.yunqa.de/delphi/doku.php/...ts/regex/index) und dem entsprechend eine Antwort kennt.

Ich habe mir die Methoden auch schon durchgelesen, aber irgendwie finde ich das passende nicht.

Edit: Ich habe nun den Befehl "MatchResult" gefunden, welcher eine -1 rausgibt, wenn der String nicht gepasst hat. Das sieht zwar etwas provisorisch aus finde ich, aber es reicht um meine Ziele weiter zu verfolgen.

[Jens01]

http://www.regular-expressions.info/delphi.html