Ordinaltyp bei case of

[manialf]

Hallo,

ich habe jetzt seit 2 Wochen Info und wir sollen eine Ampel programmieren. ich bin jetzt soweit:
Problem: In der zeile case zustand of kommt die Meldung Ordinaltyp benötigt. keine Ahnung wie das geht. Hoffe auf eure Hilfe...

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

w:= 390;
h:= 510;

setbounds((screen.Width-w)div 2,(screen.Height-h)div 2,w,h)

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

case 'zustand' of

1: begin
   Sh_red.Brush.Color :=clRed;
   Sh_yellow.Brush.Color :=clWhite;
   Sh_lime.Brush.Color:=clWhite;
    end;

2: begin
   Sh_red.Brush.Color :=clRed;
   Sh_yellow.Brush.Color :=clYellow;
   Sh_lime.Brush.Color:=clWhite;
    end;

3: begin
   Sh_red.Brush.Color :=clWhite;
   Sh_yellow.Brush.Color :=clWhite;
   Sh_lime.Brush.Color:=clLime;
    end;

4: begin
   Sh_red.Brush.Color :=clWhite;
   Sh_yellow.Brush.Color :=clYellow;
   Sh_lime.Brush.Color:=clLime;
    end;

end;

if zustand >4 then zustand := 1;

end;

end.

[Helmi]

Hallo,

ich vermute das "zustand" eine Integer-Variable ist.

durch die zwei anführungszeichen machst du einen String

richtig muss es heissen:
case zustand of

[Sunlight7]

Hallo, nimm die '' raus, dann klappts, Case muß Ordinal sein, kein String.

Edit: Ups, da war einer schneller

[Balu der Bär]

Nach case muss eine Integervariable oder eine Charvariable übergeben werden. Oder wie willst du sonst prüfen?
Mach also einfach die '' von zustand weg.

[Muetze1]

Zitat von Balu der Bär:

Nach case muss eine Integervariable oder eine Charvariable übergeben werden.

Oder ein Enumeration Type, Word, etc. Schreib doch lieber gleich Ordinaltyp wie der Compiler...

[manialf]

Vielen vielen Dank für die Hilfe.

Ich habe das ganze geändert, aber wenn ich das Projekt starte und auf Button 1 klickt passiert überhaupt nichts.

[Matze]

Hi

Zitat von manialf:

Ich habe das ganze geändert, aber wenn ich das Projekt starte und auf Button 1 klickt passiert überhaupt nichts.

Kann es sein, dass der Fall Eintritt, bei dem zustand > 4 ist? Da du diesen dann nach der case-Anweisung auf 1 setzt, passiert natürlich nichts. Schreibe also das hier vor die case-Anweisung:

if zustand > 4 then zustand := 1;

[Dax]

Wird zustand überhaupt irgendwo zugewiesen?

[Helmi]

Du solltest im OnCreate der Form der Variable "zustand" einen bestimmten Wert zu weisen, z. B. 1

Die Abfrage:
if zustand >4 then zustand := 1; wird dir nicht viel bringen, da deine Ampel nach Zustand = 4 wieder auf Zustand = 1 springen muss.
Bei deiner If-Abfrage würd dies erst bei Zustand = 5 oder höher passieren.

du solltest:
if zustand = 4 then zustand := 1; schreiben.

Wenn du diese Hinweise befolgst, dann dürf deine Ampel auch ampeln

[manialf]

Wow . das ist echt klasse hier So viele schnelle Hilfe. Vielen Danke ich probiers aus