CASE OF Problem ?!?!

[Ming]

Hi Leute,

ich hab ein Problem, und zwar ist das kein großer Fehler, ich weiß auch nicht worin der Fehler besteht, nur es ist sehr komisch.

Und zwar, wenn ich NULL eingebe die Zahl, kommt er nicht aus dem Programm raus, bzw. beendet es nicht.

Und da ist auch keine SChleife drinen... ich sitze schon hier und werde beklobt :mauer:
weil ich den fehler nicht finde. Vielleicht kann mir ja da jemand helfen. Ich hoffe um eine schnelle antwort

PROCEDURE Hauptmenue;
VAR Auswahl: INTEGER;
BEGIN
CLRSCR;
Ueberschrift;
GOTOXY(23,05); WRITELN('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ');
GOTOXY(23,06); WRITELN('º H A U P T M E N U E º ');
GOTOXY(23,07); WRITELN('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ');
GOTOXY(23,08); WRITELN('º º ');
GOTOXY(23,09); WRITELN('º º ');
GOTOXY(23,10); WRITELN('º 1: Telefonbuch º ');
GOTOXY(23,11); WRITELN('º º ');
GOTOXY(23,12); WRITELN('º º ');
GOTOXY(23,13); WRITELN('º 2: Telefonrechnung º ');
GOTOXY(23,14); WRITELN('º º ');
GOTOXY(23,15); WRITELN('º º ');
GOTOXY(23,16); WRITELN('º 0: PROGRAMMENDE º ');
GOTOXY(23,17); WRITELN('º º ');
GOTOXY(23,18); WRITELN('º º ');
GOTOXY(23,19); WRITELN('º WAEHLEN SIE ZWISCHEN 0 und 2: º ');
GOTOXY(23,20); WRITELN('º º ');
GOTOXY(23,21); WRITELN('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ');
GOTOXY(55,19); READLN(Auswahl);
CASE Auswahl OF
1:TeleMenue;
2:TeleRech;
END;
END;

{HAUPTPROGRAMM}
BEGIN
ASSIGN (datei,'C:\databk.dat');
datoeff;
weiter:='Z';
WHILE weiter <> '0' DO
BEGIN
HauptMenue;
CASE Auswahl OF
1:Telemenue;
ELSE ERROR;
END;
END;
END.

;

Gruß
Ming

[Diogenes]

Bitte poste den kompletten Code, aber als Attachment (Endung TXT ist ideal). So verstehe ich gar nichts. Sorry.

[Ming]

Ich hab das Problem gerade selbst gelöst, hatte gesehen das ich 2 Variabeln hatte. Und eine davon war nicht angesprochen.

Gruß
Ming

[Diogenes]

Ich hab das Problem gerade selbst gelöst, hatte gesehen das ich 2 Variabeln hatte. Und eine davon war nicht angesprochen.

Gruß
Ming

Ist OK. Wenn solches nicht gerade lebenswichtig ist, bitte selbst noch einmal schauen. Wir sind nicht Eure Debugger, sondern wollen allgemeine Probleme lösen, ja? :)

Der Thread ist geschlossen.