Toutes mes excuses, je n'avais pas remarqué que le post datait de si longtemps... Enfin, cela servira sûrement pour d'autres personnes...
++,
Trash,
-------------------------------
Réponse au message :
-------------------------------
>
> if (($var1 == "a") AND ($var2 == "b"));
> |
>
> ???
> Je dirais plutôt ceci en PHP :
>
>
> if ($var1 == "a" and $var2 == "b") {
> ...
> }
> |
>
> C'est plus clair sans parenthèses inutiles et les { } renferment le code de la condition...
>
> Voici l'équivalent en Delphi :
>
>
> if (var1 = 'a') and (var2 = 'b') then
> begin
> ...
> end;
> |
>
> Ce n'est pas si loin du PHP quand on regarde mais bon... Personnellement, j'ai commencé la programmation par PHP il y a un peu moins d'un an, et ça fait une semaine que j'ai commencé Delphi... Mais je ne décolle plus de mon PC !
>
> ++,
>
> Trash
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > J'ai 2 questions. La première est comment faire une condition du style suivant en delphi:?
> >
> >
if (($var1 == "a") AND ($var2 == "b")); [php]
> >
> > La 2e, j'ai un textbox et une variable, je veux comparer les 2 pour voir si elles sont égalent (une vérification de passwd). Voici le code entré:
> >
> >
procedure TFrmLOGIN.CmdGOClick(Sender: TObject);
> > var passwd : string;
> > begin
> > passwd:= 'test123';
> > if passwd = EdPass then
> > begin
> > ShowMessage('Le mot de passe est accepté!');
> > end
> > else
> > begin
> > ShowMessage('Le mot de passe est refusé!');
> > end;> >
> > le problème est que le compilateur (D6, ed. perso)me dit:
> > [Erreur] accint.pas(36): Types incompatibles: 'String' et 'TEdit'
> >
> > Comment dois-je m'y prendre?
> >
> > Merci de votre aide
>