Mega Code Archive

 

Categories / Delphi / OOP

 

In operatörü

//murattan type karakter=set of Char; var tipler:karakter; begin tipler:=['R','K','L','S','E','İ','P','T']; //bilgi değişkeni içinde tipler değişkenindeki herhangi karakterden varmı. //tabi bilgi değişkeni Char tipte olmalı if bilgi in tipler then ShowMessage('Vardır');