problem mit case-befehl

[lacky]

Hi an alle, ich hab folgendes Problem bzw weiß nicht weiter.

gibt es die möglichkeit mehrere Anweisungen in einen case-Befehl aufzurufen?

sprich

case bla of
1: Anweisung1; Anweisung2; Anweisung3;

wenn man da mehr als eine anweisung eingibt kommt ne fehlermeldung, aber das muss doch irgendwie machbar sein, ist ja was ganz alltägliches sag ich jetzt mal ;)

[Luckie]

Blöcke werden in begin und end eingefasst.

[lacky]

so einfach kann die lösung sein :oops:
danke

[Hansa]

Zitat:

Zitat von Luckie

Blöcke werden in begin und end eingefasst.

Luckie, bei Case gerade eben nicht wie gewohnt !

[DGS]

Zitat:

Zitat von Hansa

Zitat:

Zitat von Luckie

Blöcke werden in begin und end eingefasst.

Luckie, bei Case gerade eben nicht wie gewohnt !

eigentlich doch.

Delphi-Quellcode:

case variable of
 0: begin
      Anweisung1;
      Anweisung2;
      ...
    end;
 1: Anweisung4;
end;

Also genauso wie bei einem if-then Konstrukt.

[Hansa]

Ja, aber nur eigentlich ! Und wo ist da das äußere begin ? Beim End; gehts dann genauso weiter. :mrgreen:

[DGS]

ok, ich streich das eigentlich raus.

es geht wirklich so!

Und was begin angeht.
Das innere:

Delphi-Quellcode:

0: begin

Ein äußeres braucht man nicht.
Das ist im Case schon drin.

Delphi-Quellcode:

case *var of
 ...
end;

Es ging hier aber nicht um das äußere "begin", sondern wirklich um das innere beginn, damit man einem Ergebnis mehrere Anweisungen zuordnen kann.

.

[Hansa]

Zitat:

Zitat von DGS

ok, ich streich das eigentlich raus.

es geht wirklich so!
...
Es ging hier aber nicht um das äußere "begin", sondern wirklich um das innere beginn, damit man einem Ergebnis mehrere Anweisungen zuordnen kann.

.

Was wird wo rausgestrichen ? :shock: Es gibt : begin end; und case end; Nicht mehr und nicht weniger. Mehr wollte ich nicht sagen. Das ist ein gewisser Unterschied. :mrgreen:

[DGS]

Wenn wir grad dabei sind, es gibt noch mehr:

try - except - end, sowie try - finally - end.

[Hansa]

Jo, gibts schon. Aber die Zielrichtung muss sein, das auf ein Minimum zu reduzieren. :zwinker:

[mkinzler]

Zitat:

Zitat von Hansa

Jo, gibts schon. Aber die Zielrichtung muss sein, das auf ein Minimum zu reduzieren. :zwinker:

Dann schreib dir doch deine eigene Sprache!

[Hansa]

Zitat:

Zitat von mkinzler

Dann schreib dir doch deine eigene Sprache!

Hansa E+++ oder was ? Werde ich mal überlegen. :mrgreen: Der Else-Zweig ist übrigens beim Case auch anders.

[mkinzler]

Zitat:

Der Else-Zweig ist übrigens beim Case auch anders.

Ja seit man das

Delphi-Quellcode:

otherwise

durch

Delphi-Quellcode:

else

ersetzt hat

[Hansa]

Dann nenne mal noch die Delphi-Version, die weiß, was "otherwise" bedeutet. :stupid:

[DGS]

Im alten Pascal wurde doch otherwise verwendet.
Niemand hatte sich hier auf Delphi beschränkt ;)

[Hansa]

Zitat:

Zitat von DGS

Im alten Pascal wurde doch otherwise verwendet.
Niemand hatte sich hier auf Delphi beschränkt ;)

Dann berichte mal darüber.

[DGS]

Zitat:

Zitat von Hansa

Dann berichte mal darüber.

Zu der Zeit spielte ich noch im Sandkasten.
Meine Entdeckung war, dass sobald man zwei Hände tief gegraben hat ( dürften 20cm entsprechen ), war der Sand feucht und ließ sich viel besser formen als der Sand oben.

Ich meine.... worüber reden wir hier eigentlich?

[turboPASCAL]

Moin, geht es hier noch um das Thema des Threaderstellers ?
Ich denke mal der Rest kann nach K&T.
:gruebel:

[mkinzler]

Zitat:

Zitat von turboPASCAL

Moin, geht es hier noch um das Thema des Threaderstellers ?
Ich denke mal der Rest kann nach K&T.
:gruebel:

Nein wurde bereits in #2 gelöst.