Bilderschleife

[Bellla]

das was ich machen will also man hat ein anfangsbild sagen wir image1
ich habe jetzt da 5 buttons drauf.
auf jeden button möchte ich ungefähr 3 bilder unterbringen. wenn ich button1 drücke kommen die ersten 3 bilder, wenn ich jetzt den button2 drücke verschwinden die 3 bilder und es kommen 3 neue.



bitte hilf mir es ist so wichtig. ich kann das nicht

[mkinzler]

Ich würde Case satt der verschachtelten Ifs nehmen.

Delphi-Quellcode:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
    case status of
        0:
        begin
            sleep ( 500); //Halbe Sekunde
            image2.visible:=true;
            //if image2.Visible then -> überflüssig, weil du dies ja gerde explizit gemacht hast
            image1.visible:=false;
            status:=1;
        end;
        2:
        begin
            sleep(500);
            image2.visible:=false:
            status:=2;
        end;
        ...
    end;
end;

end.

[Bellla]

ich versuchs mal danke

[Bellla]

ich hab jetzt

Code:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
 case status of
        0:
begin
sleep ( 500);
image2.visible:=true;
image1.visible:=false;
status:=1;
end;

2:
begin
sleep(500);
image2.visible:=false;
image3.visible:=true;
status:=2;
end;

3:
begin
sleep(500);
image3.visible:=false;
image4.visible:=true;
status:=3;

end;

end;
end;
end.

aber nach wenn das 2. bild erscheint und man nochmal drückt passiert nichts warum?

[implementation]

Dann passiert doch was. Allerdings das gleiche wie beim ersten Drücken, weil der Status gleich ist.

[Bellla]

nein es bleibt beim 2.bild was soll ich machen

[implementation]

status:=1; Dir diese Zeile anschauen.
Überlege: Was bewirkt sie?
Was passiert bei Status 1?

[mkinzler]

Du änderst den Status auch nicht mehr!

Btw. Ich hatte den Code so schön eingerückt. Aber scjeinbar scheint es dich zu stören, wenn man auf einen Blick sieht, was zusammen gehört.
Auch die Verwendung von passenden Tags (Delphi-Tag) würde die Lesbarkeit verbessern.

[Bummi]

@mkinzler
er hat den Fehler in Deinem Beispiel weiter ausgebaut.

Delphi-Quellcode:

        2:
        begin
            sleep(500);
            image2.visible:=false:
            //status:=2; falsch
            Status:=3;
        end;

[himitsu]

Delphi-Quellcode:

if status = 0 then
begin
  image2.visible := true;
  if image2.visible then
  begin;
    image1.visible := false;
    status := 1;
  end;
end

else if status = 2 then
begin
  if image3.visible then
  begin;
    image2.visible := false;
    status := 2;
  end;
end

else if status = 3 then
begin
  if image4.visible then
  begin;
    image3.visible := false;
    status := 4;
  end;
end;

hab mal alles Unwichtige weggelassen

und dann nochmal alles gekürzt

Delphi-Quellcode:

if status = 0 then
begin
  image2.visible := true;
  image1.visible := false;
  status := 1;
end

else if (status = 2) and image3.visible then
begin
  image2.visible := false;
  status := 2;
end

else if (status = 3) and image4.visible then
begin
  image3.visible := false;
  status := 4;
end;

Es wurde nicht grundlos auf eine ordentliche Codeformatierung hingewiesen.
Was soll denn bei Status 1 passieren?
Wozu sollen die For-Schleifen gut sein?
Du setzt vieles nur auf False (visible), aber fragst es denoch auf True ab, was ja nie eintritt.

Case oder If, macht hierbei keinen Unterschied, da dieses nur die Befehle, aber nicht die fehlerhafte Logik verändert.

Lösung:
Überleg die nochmal, was du genau machen willst
und vergleiche dieses mit deinem Code.

[edit]
OK, nun gab's zwischendrin doch schon ein paar neue Antworten