Edit de Parantez Kontrolü

[ozcank]

Arkadaşlar Merhaba; Bir konuda yardımınıza ihtiyacım var.

Edit3.Text içerisin de () parantez gösteriyor ama bir türlü kontrol ettiremedim. Nasıl bir yol izleyebilirim?

---------------------------
Debugger Exception Notification
---------------------------
Project MENU.exe raised exception class EOleException with message 'Incorrect syntax near ')''. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

SQL Cıktısına baktım parantezler bu şekilde olduğu için hata veriyor. Normalde ('') bu şekilde olduğun da sorun yok.

Kod: Tümünü seç

WHERE FI.CARI_KODU IN (
) AND FI.FATIRS_NO IN (
) 

Kod: Tümünü seç

if (Edit4.Text = EmptyStr) and (QuotedStr(Edit3.Text) = '()') Then
 
  begin
    Application.MessageBox('Lütfen Fatura seçimi yapın. Boş Geçilemez ','Bilgilendirme Mesajı',MB_ICONINFORMATION);
    Exit;
  end
Else
Begin

[freeman35]

...Trim(Edit3.Text) = '()'Then...
QuotedStr(Edit3.Text) bunun sonucunu (QuotedStr(Edit3.Text) = '''()''') şeklinde kontrol edebilirsin. eşitin sağındaki ilk tırnak, string ifadeyi belirtir