چک کردن ایمیل - کدهای آماده دلفی

پندها چه بسیار است و پند گرفتن چه اندک به شمار . [نهج البلاغه]

کدهای آماده دلفی

پست الکترونیک

چک کردن ایمیل

از این تابع برای چک کردن اینکه ایمیل وارد شده صحیح است استفاده می شود(البته از نظر قواعد ساختاری)

);function 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 := trueelse Result := false;end else Result := false;end; Ejemplo de llamadaCall exampleif IsEMail("pepe@yahoo.com") then ShowMessage("eMail Ok");;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:20 عصر

نظرات دیگران: نظر

لیست کل یادداشت های این وبلاگ

بهترین کامپوننت تاریخ شمسی در دلفی 7
یک ساعت فوق العاده
اضافه کردن زبان فارسی به ویندوز XP
یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها
بستن پنجره
پاک کردن برنامه به وسیله ی خودش
دانلود کردن سورس یک سایت
بدست آوردن آدرس جاری IE
پاک کردن آدرسهای IE
آموزش کار با IntraWeb در دلفی
مبدل ها
تصویر به bmp2icon) Icon)
تشخیص اینکه HARD DISK ما چند درایو دارد.
اینم یک برنامه ای که ICON درایوها را تغییر می دهد.
درست کردن فیلتر زرد رنگ روی ایمیج
[همه عناوین(126)][عناوین آرشیوشده]

>> بازدیدهای وبلاگ <<

بازدید امروز: 39

بازدید دیروز: 72

کل بازدید :88586

>> درباره خودم <<

محمد مقصودلو
در این وبلاگ سعی میکنم مطالب مربوط به برنامه نویسی دلفی ، پاسکال و گرافیک رایانه ای 2 بعدی و 3 بعدی را به روز کنم منتظر سوالات شما نیز هستم

>>تست سرعت تایپ<<

9 کلمه

Speed test

>> پیوندهای روزانه <<