salut ; j'ai utilisé ce code pour la verrification de la synthaxe d'une adresse email mais ca ne marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
public
    { Déclarations publiques }
    Function ValiderChar(Caractere,Ligne:string):Boolean;
      var
      I :integer;
      begin
      Result:= false;
      for I := 0 to Length(Ligne) - 1 do
      if Ligne[I] = Caractere then Result := true;
    end;
 
  end;
ensuite j'appele la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
if not (ValiderChar('@',Edit4.Text)) and (ValiderChar('.',Edit4.Text)) then
showmessage(Format('L''adresse de Courrielle " %s " est non Valide',[Edit4.Text] ));