Probleme dans mon programme

Signaler
-
 kerad -
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

5 réponses

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
c'est arrivé au moment ou la form2 est affichée puis fermée
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
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.
Aucun, prob, je me teste aussi comme ça ;)
J'attends les prochaines questions

@+ Kerad