Tach,

ich bins mal wieder!!!

nun muss ich eine Aufgabe in Delphi lösen und zwar mit der Case-Anweisung. Ich muss die gleiche Menüaufgabe machen nur mit dr Case-Anweisung. Wer den Thread nicht gelesen hat Hier der Thread.

Inder Delphi Hilfe hab ich auch schon nachgelesen aber da steht es sozusagen nur für Profis drin da checkt ein newbie wie ich nicht durch. Die Case-Anweisung soll den if-else Befehl ersetzen. Danke für eure Hilfe

euer Cruzito

Hier den code den ich bisher geschrieben habe!! Ich hab ihn mit den ínfos aus der hilfedb geschrieben womit er eigentlich nur falsch sein kann

program Uebung11;

{$APPTYPE CONSOLE}

uses

  sysutils;


var

vorname:string;

nachname:string;

strasse:string;

plz:string;

zustand:integer;

ausgabe:string;

Caption:string;

begin

write('Mit diesem Programm koennen Sie ihre komplette Adresse zusammenstellen. Um zu starten druecken Sie bitte die Eingabetaste.');        //Einleitungssatz

readln;

while zustand<>7

do begin

writeln;

writeln;

writeln;

write('*************************************');

writeln;

write('* 1: Vorname eingeben               *');

writeln;

write('* 2: Nachname eingeben              *');

writeln;

write('* 3: Strasse eingeben               *');

writeln;

write('* 4: PLZ und Ort eingeben           *');

writeln;

write('* 5: Die komplette Adresse ausgeben *');

writeln;

write('* 6: Die Anschrift ausgeben         *');

writeln;

write('* 7: Das Programm beenden           *');

writeln;

write('*************************************');

writeln;

write('Eingabe: ');

readln(zustand);                                              

writeln;

ausgabe:=vorname+' '+nachname;

case zustand of

     1: Caption :='Bitte Vorname eingeben: ';

else

end;

    case zustand of

         2: Caption :='Bitte Nachname eingeben: ';

    else

    end;

        case zustand of

             3: Caption :='Bitte Strasse eingeben: ';

        else

        end;

            case zustand of

                 4: Caption :='Bitte PLZ und Ort eigeben: ';

            else

            end;

                case zustand of

                     5: Caption :='Die komplette Addy ausgeben: ';

                else

                end;

                    case zustand of

                         6: Caption :='Die Anschrift ausgeben: ';

                    else

                    end;

                        case zustand of

                             7: Caption :='exit';

                        else

                        end;


write(Caption);

end;

readln;

end.

euer Cruzito

Hallo Cruzito,

die case-Anweisung in deinem Programm ist falsch, sie muss lauten:

....

case zustand of

   1: Caption :='Bitte Vorname eingeben: ';

   2: Caption :='Bitte Nachname eingeben: ';

   3: Caption :='Bitte Strasse eingeben: ';

usw.

   else end;

damit müsste es gehen

Manne

Danke für deine Antwort!!

so hatte ich es auch schon aber ich will das er den String hinten ausgiebt und man dann etwas eingeben kann das eingegebene in einen Speicher liest und das ganze unter Punkt 5 und 6 dann ausgiebt.

euer Cruzito

Hey Cruzito,

versuchs mal damit:

Programm Adresse;

var eingabe:char;

vorname,nachname,strasse,ort:string;

plz:integer;

begin

vorname:='';

nachname:='';

strasse:='';

ort:='';

plz:=0;

repeat

clrscr;

writeln(' 1. Vorname eingeben ');

writeln;

writeln(' 2. Nachname eingeben ');

writeln;

writeln(' 3. Strasse eingeben ');

writeln;

writeln(' 4. PLZ und Ort eingeben ');

writeln;

writeln(' 5. Adresse ausgeben ');

writeln;

writeln(' e. Programm beenden ');

writeln;

write(' Ihre Wahl : ');

eingabe:=readkey;

writeln;

writeln;

writeln;

case eingabe of

'1': begin write(' Vorname : ');

readln(vorname);

end;

'2': begin write(' Nachname : ');

readln(nachname);

end;

'3': begin write(' Strasse : ');

readln(strasse);

end;

'4': begin write(' PLZ : ');

readln(plz);

write(' Ort : ');

readln(ort);

end;

'5': begin clrscr;

writeln(' Vorname : ',vorname);

writeln(' Nachname : ',nachname);

writeln(' Strasse : ',strasse);

writeln(' PLZ : ',plz);

writeln(' Ort : ',ort);

readln;

end;

end;

until eingabe='e';

end.

Nachtrag:

Mußt Du natürlich etwas einrücken, damit die Übersicht erhalten bleibt.

MFG LoneGunman

Hey Cruzito,

versuchs mal damit:

Programm Adresse;

var eingabe:char;

vorname,nachname,strasse,ort:string;

plz:integer;

begin

vorname:='';

nachname:='';

strasse:='';

ort:='';

plz:=0;

repeat

clrscr;

writeln(' 1. Vorname eingeben ');

writeln;

writeln(' 2. Nachname eingeben ');

writeln;

writeln(' 3. Strasse eingeben ');

writeln;

writeln(' 4. PLZ und Ort eingeben ');

writeln;

writeln(' 5. Adresse ausgeben ');

writeln;

writeln(' e. Programm beenden ');

writeln;

write(' Ihre Wahl : ');

eingabe:=readkey;

writeln;

writeln;

writeln;

case eingabe of

'1': begin write(' Vorname : ');

readln(vorname);

end;

'2': begin write(' Nachname : ');

readln(nachname);

end;

'3': begin write(' Strasse : ');

readln(strasse);

end;

'4': begin write(' PLZ : ');

readln(plz);

write(' Ort : ');

readln(ort);

end;

'5': begin clrscr;

writeln(' Vorname : ',vorname);

writeln(' Nachname : ',nachname);

writeln(' Strasse : ',strasse);

writeln(' PLZ : ',plz);

writeln(' Ort : ',ort);

readln;

end;

end;

until eingabe='e';

end.

Hy,

danke für eure Antworten hab es nun aber anders gelöst!!

euer Cruzito