برنامج تصحيح التلآوة - للشيوخ والمعلّمين لكتآب الله

[AvimimuS]

السلام عليكم

اخي الكريم
حاول ان تغير واجهة البرنامج في النسخة المقبلة ان شاء الله
اما بالنسبةل

هل لك ان توضح هذه النقطة بارك الله لك؟ فهمت ماذا تقصد لكن هل هناك امكآنية لعمل ذلك في الكود ؟

اليك الحل برمجيا

كود :

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;

والسلام عليكم