if koşulunda çoklu string eşleştirme

[barutali]

Uses System.RegularExpressions;

 if TRegEx.IsMatch(Edit1.Text, '([12]\. Sonuç)', [roIgnoreCase]) = False
 then Abort
 else ShowMessage('1. veya 2. Sonuç');

[edo]

(11-12-2017, Saat: 16:12)mcuyan Adlı Kullanıcıdan Alıntı: saçmalığa bakarmısın ya..
if bloğunda match texti kulllandığım zaman çalışmıyor. fakat ifden once matchtext,n sonucunu bir boolean değişkene atınca çalışıyor..

   sonuc:=MatchText(q0.FieldByName('muracaat_nedeni').AsString,['Ilk Müracaat','Revizyon']);
   if sonuc=False  then
   begin
     Showmessage(Edit1.text+'  uygun değildir..');
     abort;
   end;

Çalışmıyordan kastınız ne bilmiyorum ama derleniyor.

[mcuyan]

çalışmıyordan kastım: Düzgün çalışmıyor yani false=false iken if bloğunun içine girmiyor.. bu konuyu aşağıdaki gibi bir değişkene atarak hallettim..
ama sonuc değişkenine atmadan matchtext i direk if kriteria sına yazarsam false=false doğruluğunu alamadım. çok ilginç ve saçma bir durum.. neyse ki aşağıdaki gibi çalıştı

sonuc:=MatchText(q0.FieldByName('muracaat_nedeni').AsString,['Ilk Müracaat','Revizyon']);
  if sonuc=False  then
 begin
   Showmessage(Edit1.text+'  uygun değildir..');
   abort;
 end;