Case of / If then else / Boolean?Mal funktionierts, mal nich

[SimOr]

Also, ich hab da mal wieder son problem...
Ich bevorzuge ja case of, if then else ist mir zu sperrig...
Aber ab und zu versagt caso of bei mir...erts mal ein beispiel

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case visible of
True  :  Image1.visible:=False;
False :  IMage1.visible:=True;
end
end;

Das Problem ist folgendes...meiner meinung nach sollte nun das bild Image1 in einem festgelegten Timer intervall sichtbar und unsichtbar werden...allerdings wirds nur unsichtbar, nach einem weiteren intervall tauchts aber nicht mehr auf...fehlermeldungen gubt es aber keine...

Mit if then else klappt alles

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Image1.visible = True then
   Image1.visible:=False
   else
   Image1.visible:=True;
end;

Nun meine frage...warum ist das so...
und frage nummer 2...wenn ich die boolean werte weglasse und das ganze mit [:::].visible
und not [:::].visible versuche funktioniert garnix mehr...
Kann mich mal jemand über den korrekten syntax und so "aufklären"?
schon mal danke..

Simor

[axelf98]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case visible of
True  :  Image1.visible:=False;
False :  IMage1.visible:=True;
end
end;

Weiß der Compiler welches Visible gemeint ist... Oder müsste da nicht Image1.visible stehen?

[moin339]

Zitat:

Zitat von SimOr

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case visible of // <--
True  :  Image1.visible:=False;
False :  IMage1.visible:=True;
end
end;

wenn ich das richtig sehe fragst du mit visible die Form1.Visible property ab. Du musst Image1.Visible schreiben

edit: da war wohl jemand schneller ;)

ciao, moin339

[SimOr]

hmm, bisher hats immer geklpappt sobald nur ein bild da ist...aber selbst dann versagt case of beim timer...mit if klappts ja....HILFÖÖ

[SimOr]

@moin339
Danke für den tip, ich werds mal ausprobieren...aber wie gesagt, bisher hats mit if geklappt, nur eben mit case nicht..

[Mirilin]

:hi:

Warum machst du es nicht so?

Delphi-Quellcode:

procedure TMainForm.TimerTimer(Sender: TObject);
begin
  Image.Visible := not Image.Visible;
end;

[moin339]

Zitat:

Zitat von SimOr

@moin339
Danke für den tip, ich werds mal ausprobieren...aber wie gesagt, bisher hats mit if geklappt, nur eben mit case nicht..

bei der if abfrage hast du ja auch Image1.visible geschrieben... also klappt es auch ;)

[SimOr]

Danke moin339, hat alels bestens geklappt...naja, jetzt brauch cih nur noch ne erklärung über die anwendung solcher sachen OHNE boolean und co.

[Christian Seehase]

Moin SimOr,

Zitat:

Zitat von SimOr

jetzt brauch cih nur noch ne erklärung über die anwendung solcher sachen OHNE boolean und co.

wofür Du dann ja einen neuen Thread aufmachst... ;-)

[Christian S.]

Hallo!

Im Delphi-Forum habe ich ein Tutorial zu if, case und bool'schen Ausdrücken geschrieben.

Hier ist es.

MfG
Peter