Stoppuhr (if/else)

[Delphi-_-N00b]

hallo
ich will eine einfach stoppuhr machen bin grade erst bei den sekunden bis 9, aber ich habe keine imagelist. weil ich das nicht verstehe ich wollte es folgendermaßen machen:
immer wenn das bild mit der 1 ist und der timer den impuls sendet soll 1-visible false gehen und 2 dafür an. Wenn das bild 2 da ist soll das unsichtbar werden und 3 sichtbar usw...

Quellcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true  ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if Image10.Visible:=true
then begin
Image10.Visible:=false;
Image1.Visible:=true;
end;

if Image1.Visible:=true
then begin
Image1.Visible:=false;
Image2.Visible:=true;
end;

if Image2.Visible:=true
then begin
Image2.Visible:=false;
Image3.Visible:=true;
end;

if Image3.Visible:=true
then begin
Image3.Visible:=false;
Image4.Visible:=true;
end;

if Image4.visible:=true
then begin
Image4.Visible:=false;
Image5.Visible:=true;
end;

if Image5.visible:=true
then begin
Image5.Visible:=false;
Image6.Visible:=true;
end;

if Image6.visible:=true
then begin
Image6.Visible:=false;
Image7.Visible:=true;
end;

if Image7.visible:=true
then begin
Image7.Visible:=false;
Image8.Visible:=true;
end;

if Image8.visible:=true
then begin
Image8.Visible:=false;
Image9.Visible:=true;
end;

if Image9.visible:=true
then begin
Image9.Visible:=false;
Image10.Visible:=true;
end;

end;

In jeder zeile mit "then begin" kommt der fehler: Type of expression must be boolean

[Muellermilchtrinker]

Du musst auch schreiben

Delphi-Quellcode:

if Imaage1.Visible=True then
begin
...
end;

Bei if Abfragen reicht ein '='

[Matze]

Besser ist

Delphi-Quellcode:

if Imaage1.Visible then
begin
...
end;

Begründung

Grüße, Matze

[Delphi-_-N00b]

Es geht jetzt zwar (das Programm wird gestartet)
und der timer läuft auch, aber die bilder wechseln nicht. Es bleibt die ganze zeit die 0 stehen, die von anfang an sichtbar ist. :(

[Teekeks]

wenn du das in der Reihenfolge macht passiert folgendes:
(i=image)

Code:

i1 ist sichtbar, also wird es unsichtbar und i2 wird sichtbar.
nächste if-abfrage:
i2 ist sichtbar, also wird es unsichtbar und i3 wird sichtbar.
nächste if-abfrage:
i3 ist sichtbar, also wird es unsichtbar und i4 wird sichtbar.
...

und so weiter.

[Delphi-_-N00b]

was willst du mir jetzt damit sagen?

[Matze]

Na überlege doch mal, was du machst:

Delphi-Quellcode:

if Image10.Visible
then begin
Image10.Visible:=false;
Image1.Visible:=true; // hier setzt du Image1 auf Visible = true ...
end;

// ... dann ist es auch hier true und ...
if Image1.Visible
then begin
Image1.Visible:=false;
Image2.Visible:=true; /// ... du setzt Image1 auf Visible = true ...
end;

// ... hier ist es dann natürlich ebenfalls true
if Image2.Visible
then begin
Image2.Visible:=false;
Image3.Visible:=true;
end;

// usw.

Nimm mal if-else-verzweigungen. Vielleicht klappt's dann schon:

Delphi-Quellcode:

if Image10.Visible then
begin
  Image10.Visible := false;
  Image1.Visible := true;
end

else if Image1.Visible then
begin
  Image1.Visible := false;
  Image2.Visible := true;
end

else if Image2.Visible then
begin
  Image2.Visible := false;
  Image3.Visible := true;
end;

// ...

[Teekeks]

dass, wen das bild 1 sichtbar wird, der nacheinander wirklich alles durchackert bis er am schluss ist.
Lösung des Problems:

Delphi-Quellcode:

if Image10.Visible:=true
then begin
Image10.Visible:=false;
Image1.Visible:=true;
end else

if Image1.Visible:=true
then begin
Image1.Visible:=false;
Image2.Visible:=true;
end else

if Image2.Visible:=true
then begin
Image2.Visible:=false;
Image3.Visible:=true;
end else

// usw.

RK: @Matze: sag ich doch. :)

[EDIT] lool, genau das selbe :mrgreen:

[Delphi-_-N00b]

oK thanks