probleme dans mon programme

Question

monsieur kerad je crois que j'ai un bug dans mon programme ci-dessous

procedure TForm1.Button1Click(Sender: TObject);
begin
table1.open;
try
  Table1.First;
while not table1.Eof do
begin
    if Table1.FieldByName('utilisateur').AsString = Edit1.text then
         begin
         if Table1.FieldByName('password').AsString = Edit2.text then
         table1.close;
                      if not table1.Active = true then
                      form2.Showmodal
                      else
                      table1.next
                      end
         else
        table1.next;
    end;
showmessage('erreur');
finally
end;
end;
end.
merci encore

kerad · Answer

Salut,  

bon alors analysons tout ça...
Quand est-ce que ça plante là est la question: quand la form Form2 a été affiché puis fermée ou à un autre moment?

Kerad

tarik · Answer

c'est arrivé au moment ou la form2 est affichée puis fermée

kerad · Answer

OUais OK c ce que je pensais
en fait c parceque ton code il continue l'exécution après l'affichage de la Form2, pour qu'il ne le fasse pas tu modifies juste le bout de code suivant:
if not table1.Active = true then
begin
  form2.Showmodal;
  exit; // sort de la procedure, parcq' le traitement reussi
end
else

tarik · Answer

monsieur kerad merci beaucoups
je vous tire chapeau vous me sauver a tout les coups
je crois que je vais continuer a vous agasser avec question
si ça ne vous dérrange pas et je m'excuse d'avance 
respectueusement tarik.

kerad · Answer

Aucun, prob, je me teste aussi comme ça ;)
J'attends les prochaines questions 

@+ Kerad

Probleme dans mon programme

5 réponses

Votre réponse

Discussions similaires