12-07-2009, 02:07 AM
السلام عليكم
اخي الكريم
حاول ان تغير واجهة البرنامج في النسخة المقبلة ان شاء الله
اما بالنسبةل
اليك الحل برمجيا
والسلام عليكم
اخي الكريم
حاول ان تغير واجهة البرنامج في النسخة المقبلة ان شاء الله
اما بالنسبةل
إقتباس :هل لك ان توضح هذه النقطة بارك الله لك؟ فهمت ماذا تقصد لكن هل هناك امكآنية لعمل ذلك في الكود ؟
اليك الحل برمجيا
كود :
function TestEmailformat(EMail:string):boolean;
var
a,b:integer;
s,accept:string;
begin
s := lowercase(EMail);
Result := True;
accept := 'abcdefghijklmnopqrstuvwxyz0123456789-@._~';
for a:=1 to length(s) do
begin
if pos(copy(s,a,1),accept) < 0 then
Result := False
end;
b:=0;
for a:=1 to length(s) do
if copy(s,a,1) = '@' then b:=b+1;
if b <> 1 then
Result := False;
for a:=1 to length(s) do
if ( (copy(s,a,1) = '@') or (copy(s,a,1) = '.') ) and
((copy(s,a+1,1) = '@') or (copy(s,a+1,1) = '.')) then
Result := False;
if (copy(s,1,1) = '@') or (copy(s,1,1) = '.') or
(copy(s,length(s),1) = '@') or (copy(s,length(s),1) = '.') then
Result := False;
if pos('.',copy(s,pos('@',s)+1,length(s)-pos('@',s)-1)) = 0 then
Result := false;والسلام عليكم
