GERÇEK PAYLAŞIMI BİLENLERİN MEKANI
HOŞGELDİNİZ...

GERÇEK PAYLAŞIMI BİLENLERİN MEKANI

,.-~*´¨¯¨`*·~-.¸-(_FRM¥ØK¥ØK_)-,.-~*´¨¯¨`*·~-.¸
 
AnasayfaTakvimSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş | 
 

 email olayını kontrol eden fonk ve kullanımı

Aşağa gitmek 
YazarMesaj
KaRaKuLe
Admin
Admin
avatar


MesajKonu: email olayını kontrol eden fonk ve kullanımı   Cuma Mart 27, 2009 12:03 am

unction IsEMail(EMail: String): Boolean;
var
s : String;
ETpos: Integer;
begin
ETpos:= pos('@', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;

kullanımı
procedure TForm1.Button2Click(Sender: TObject);
begin
if isemail(Edit1.Text) then
ShowMessage('eMail-Adresse!')
else
Showmessage('Yanlis eMail-Adresse!');
end;
Sayfa başına dön Aşağa gitmek
 
email olayını kontrol eden fonk ve kullanımı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Bazı Kolay Kelimeler ( günlük hayatta kullanılan )

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
GERÇEK PAYLAŞIMI BİLENLERİN MEKANI :: BİLGİSAYAR DÜNYASI :: Yazılım :: DelpHi-
Buraya geçin: