Delphi de if içerisinde in kullanımı

 if içerinde in kullanmak case gibi kullanmak mantıklı olmasa da uzunca bir if yapısından bizi kurtaracaktır.

 in içerisinde kullanılacak  değerlerin char veya sayı olması gerekmektedir.

procedure TForm1.Memo3KeyPress(Sender: TObject; var Key: Char);
begin
 if key in [ 'ı','ç','ş','ğ','ö','ü','İ','Ç','Ğ','Ö','Ü','Ş'] then
   begin
     key:=#0;
     SHOWMESSAGE('Lütfen Türkçe Karakter Kullanmayınız.(ıçşğöüİÇĞÖÜ)')
   end;

 if key=#13 then key:=#0;

end;