prevok
Messages postés2Date d'inscriptiondimanche 31 août 2003StatutMembreDernière intervention24 mars 2004
-
24 mars 2004 à 01:09
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
24 mars 2004 à 22:15
Lorsque je démarre le programme, pas de problème, je peux aller choisir dans le menu l'option que je veux, qui appelle une procedure, mais quand de cette procédure je veux revenir à la précédante en l'appelant elle n'est pas déclarer. Je ne vois vraiment pas quoi faire, à l'aide!!!
procedure TForm1.Devoir_2(Sender: TObject);
//variable globale
var z : char;
//------------------------Debut Operations math-------------------------------
procedure add;
begin
writeln('Addition');
writeln('');
writeln('Appuyez sur une touche pour revenir au menu principal');
readln;
end;
procedure sous;
begin
end;
procedure multi;
begin
end;
procedure divi;
begin
end;
procedure modulo;
begin
end;
procedure ddegre;
begin
end;
//-------------------------Fin Operations math------------------------------
procedure choix;
label debut, erreur;
begin
goto debut; //appele le label debut, le contenu pricipal
erreur: //texte en cas de mauvaise saisi dans choix
writeln('');
writeln('Choix invalide, veillez recommencer');
writeln('');
writeln('Appuyez sur une touche pour continuer...');
readln;
goto debut;
write('Selectionnez l`operation a effectuer : ');
readln(z);
case z of //debut case
'a' : add;
'b' : sous;
'c' : multi;
'd' : divi;
'e' : modulo;
'f' : ddegre;
'q' : application.terminate;
else goto erreur ;
end; //fin case
end; //fin procedure choix
//fin menu de choix avec operateur case
//programme principale charge procedure choix - conserver en bas
begin
choix;
end;
//fin programme principale charge procedure choix - conserver en bas
prevok
Messages postés2Date d'inscriptiondimanche 31 août 2003StatutMembreDernière intervention24 mars 2004 24 mars 2004 à 01:16
Bon finalement j'ai trouver, en utilisant procedure choix; forward; ça marche à merveille, je vien juste de le trouver mais avant de poster le message j'avais chercher depuis 1:30 j'était tanné un peu.
En passant je suis nouveau en delphi et ce que je fait est un devoir et j'y vais comme je peux :)
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 24 mars 2004 à 22:15
C'est un principe de base du langage Pascal : il faut déclarer avant de pouvoir utiliser ou alors, comme tu l'as fait, utiliser le mot Forward.
Mais, à première vue, tu aurais déclaré toutes tes procédures avant de les appeler dans TForm1.Devoir_2, tu n'aurais pas eu ce souci.
Mais là où je crains un peu, c'est que tu mélanges les instructions qui ne peuvent s'exécuter QUE dans une application console avec celles ne s'exécutant QUE dans une application GUI.
Tu vas droit au devant de gros problèmes (erreur E/S).
May Delphi be with you