Mega Code Archive

 

Categories / Delphi / OOP

 

[] Türkce karekter kontrolü

procedure TForm1.Button1Click(Sender: TObject); type kume=set of char; var th:kume; k:integer; begin //forma 1 adet edit ve button kontrol elemanıkoyun. th:=['ı','İ','ü','Ü','ş','Ş','ö','Ö','ç','Ç','ğ','Ğ']; for k:=1 to length(edit1.text) do begin if edit1.text[k] in th then showmessage('Lütfen Türkçe karekter kullanmayınız.'); end; end;