fix: prevent triggers without quoted trigger name or table name from failing to be parsed (alexanderglueck)

ansgarbecker · ansgarbecker · commit 3028076b45a7 · 2026-01-13T15:44:40.000+01:00
Refs #2347
diff --git a/source/trigger_editor.pas b/source/trigger_editor.pas
@@ -124,7 +124,7 @@ procedure TfrmTriggerEditor.Init(Obj: TDBObject);
     rx := TRegExpr.Create;
     rx.ModifierI := True;
     QuoteCharsRx := QuoteRegExprMetaChars(DBObject.Connection.QuoteChars);
-    QuotedWordRx := '['+QuoteCharsRx+'][^'+QuoteCharsRx+']+['+QuoteCharsRx+']';
+    QuotedWordRx := '['+QuoteCharsRx+']?[^'+QuoteCharsRx+']+['+QuoteCharsRx+']?';
     rx.Expression := '(\sDEFINER=('+QuotedWordRx+'@'+QuotedWordRx+'))?' +
       '\s+TRIGGER\s+'+QuotedWordRx +
       '\s+('+Implode('|', comboTiming.Items)+')' +
