von einer Procedure in eine andere mit case of

[bundy]

Hi und willkommen in der DP

mach mal so

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE} 

uses 
SysUtils; 
Procedure P_Eingabe; 

begin
writeln('hallo');
readln;
end;
//-----------------------Prozedure-----Anfang--------------------
Procedure P_Ausgabe;

begin
writeln('halloö');
readln;
end;
//-----------------------Prozedure-----Anfang-------------------- 
Procedure P_Menue; 
var v_zahl:char;


begin 
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); 
writeln('~ Stundenplan Menue ~');
writeln('~ ***************** ~'); 
writeln('~ ~'); 
writeln('~ ~'); 
writeln('~ 1 = Stunden eingeben ~'); 
writeln('~ 2 = Stunden anzeigen ~'); 
writeln('~ ~'); 
writeln('~ 0 = Programm Beenden ~'); 
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); 
writeln('~ Kennziffer und ENTER druecken... ~'); 
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); 
readln(v_zahl); 

case v_zahl of 
'1': P_Eingabe; //---undeklarierter Bezeichner???
'2': P_Ausgabe; //---undeklarierter Bezeichner???
else halt; 
end; 
end; 


//-----------------------Prozedure-----Ende---------------------- 

//-----------------------Prozedure-----Anfang-------------------- 
Procedure P_Lizenz; 
var v_antwort:char; 

begin 
writeln('###############################################################'); 
writeln('## Mit diesem Programm kannst du deinen Stundenplan eingeben ##'); 
writeln('## und auf dem Monitor ausgeben lassen. Dieses Programm ist ##'); 
writeln('## urheberrechtlich geschuetzt und darf nur zu Schulzwecken ##'); 
writeln('## verwendet werden. Alle Rechte bei Christian ` ##'); 
writeln('## --------------------------------------------------------- ##'); 
writeln('## bist du damit ein einverstanden??? j: ja - n: nein ##'); 
writeln('## ##'); 
writeln('## ...bitte ENTER nach der Eingabe druecken... ##'); 
writeln('###############################################################'); 
readln(v_antwort); 


case v_antwort of 
'j': P_Menue; 
'n': halt; 
else halt; 
end; 
End; 
//-----------------------Prozedure-----Ende---------------------- 

//-----------------------Prozedure-----Anfang-------------------- 

//---------hauptprogramm----------------------------------------- 
begin 
P_Eingabe; 
P_Ausgabe; 
P_Menue; 
P_Lizenz; 
end.

lg
bundy