Mehrere Befehle nach "then"

Hallo,
hier kurz mein Problem geschildert, hoffe ihr könnt mir helfen ;)

Code:

---

...
if farbzaehler_dreieck = 16
then canvas.Canvas.Brush.Color := clBlack;

if farbzaehler_dreieck = 16
then farbzaehler_dreieck = 1;
...

---

So, das funktioniert bei mir nicht und es wird weder die erste, noch die zweite if-Schleife ausgeführt.
Wie kann ich die jeweils auszuführenden Befehle in eine Schleife packen, sodass es keinen Fehler mehr gibt?

ThX
h-7

nach
then;
begin
[Anweisung]
end;

schon probiert, folgendes ging nicht:

Code:

---

...
if BLABLUBB = 16
then
begin
MACH DAS
UND MACH DAS AUCH NOCH
end;
...

---

:(

Code:

---

var eingabe: integer;
...
if eingabe=1 then begin
  eingabe := 0;
  ausgabe := 'Sie haben eine 1 eingegeben';
end //kein Strichpunkt!
else if eingabe=2 then begin
  eingabe := 0;
  ausgabe := 'Sie haben eine 2 eingegeben';
end
else begin
  eingabe := 0;
  ausgabe := 'Sie haben eine andere Zahl als 1 oder 2 eingegeben';
end;

---

Verzweigungen - Delphi-Treff

Auf die Semicoli achten.

Zitat:

---

Zitat von h4XX0r-7

Hallo,
hier kurz mein Problem geschildert, hoffe ihr könnt mir helfen ;)

[CODE]noch die zweite if-Schleife ausgeführt.

---

Es gab nie eine if-Schleife und wird auch nie eine if-Schleife geben!

Code:

---

...
if color_dreieck_zaehler = 16 then begin
        canvas.Canvas.Brush.Color := clBlack;
        color_dreieck_zaehler := 1;
        end

        canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
        color_dreieck_timer.Enabled := false;
end;

---

*stehaufschlauch*

//EDIT:
Programm ist für den Schulunterricht, nicht wundern :P

Hmm, versteh das nicht?!?!?

Wäre nett, wenn das nochmal jemand erklären könnte,
gehe jetzt AFK, muss morgen früh raus :D

ThX
h4XX0r-7

Bei dem Code da oben fehlt das Semikolon nach dem end.
Das darf man nur weglassen, wenn ein else folgt oder wenn es die letzte Anweisung in einem Block ist.

Wenn das nicht hilft, musst du uns mehr Code zeigen.

Geht auch nicht, also hier die komplette Prozedur des Timers (Wird bei Klick auf einen Button auf true gesetzt):

Code:

---

procedure TForm1.color_dreieck_timerTimer(Sender: TObject);
begin
        color_dreieck_zaehler := color_dreieck_zaehler+1;
        if color_dreieck_zaehler = 2 then canvas.Canvas.Brush.Color := clWhite;
        if color_dreieck_zaehler = 3 then canvas.Canvas.Brush.Color := clGray;
        if color_dreieck_zaehler = 4 then canvas.Canvas.Brush.Color := clYellow;
        if color_dreieck_zaehler = 5 then canvas.Canvas.Brush.Color := clOlive;
        if color_dreieck_zaehler = 6 then canvas.Canvas.Brush.Color := clGreen;
        if color_dreieck_zaehler = 7 then canvas.Canvas.Brush.Color := clLime;
        if color_dreieck_zaehler = 8 then canvas.Canvas.Brush.Color := clAqua;
        if color_dreieck_zaehler = 9 then canvas.Canvas.Brush.Color := clTeal;
        if color_dreieck_zaehler = 10 then canvas.Canvas.Brush.Color := clBlue;
        if color_dreieck_zaehler = 11 then canvas.Canvas.Brush.Color := clNavy;
        if color_dreieck_zaehler = 12 then canvas.Canvas.Brush.Color := clPurple;
        if color_dreieck_zaehler = 13 then canvas.Canvas.Brush.Color := clFuchsia;
        if color_dreieck_zaehler = 14 then canvas.Canvas.Brush.Color := clMaroon;
        if color_dreieck_zaehler = 15 then canvas.Canvas.Brush.Color := clRed;
        if color_dreieck_zaehler = 16 then begin
        canvas.Canvas.Brush.Color := clBlack;
        color_dreieck_zaehler := 1;
        end;

        canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
        color_dreieck_timer.Enabled := false;
end;

---

Greetz,
h4XX0r-7

Für den fall solltest du dir mal das ansehen:
Delphi Basics : Case command

oder du machst es so:
if color_dreieck_zaehler = 2 then begin canvas.Canvas.Brush.Color := clWhite; end;

Die letztere Methode funktioniert nicht.
Wenn ich es mit Case machen würde, müsste das dann so aussehen?

Code:

---

...
Case color_dreieck_zahler of
    2 : ANWEISUNG;
    3 : ANWEISUNG;
    usw.
    16 : ANWEISUNG;
          ANWEISUNG2;
end;
...

---

WTF?

_______________________________

Bei folgendem Code kommt der Fehler "Constant expression expected!"

Code:

---

        Case color_dreieck_zaehler mod 1 of
        16 : color_dreieck_zaehler := 1;
              canvas.Canvas.Brush.Color := clBlack;
        end;

---

Code:

---

Case color_dreieck_zahler of   
    2 : ANWEISUNG;
    3 : ANWEISUNG;
          ...
    16 : begin
          ANWEISUNG;
          ANWEISUNG2;
      end;
end;

---

Müste dann so aussehen.

Code:

---

        Case color_dreieck_zaehler of
        16 : begin
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Color := clBlack;
        end;
        end;

---

Geht nicht.

Was heisst denn "geht nicht" genau? Fehlermeldung?
Der Code ist zwar alles andere als schön, aber syntaktisch korrekt.

Ah, jetzt sehe ich warum ihr das nicht versteht :D

Also:

Code für den Button:

Code:

---

procedure TForm1.color_dreieck_timerTimer(Sender: TObject);
begin
        color_dreieck_zaehler := color_dreieck_zaehler+1;
        if color_dreieck_zaehler = 2 then canvas.Canvas.Brush.Color := clWhite;
        if color_dreieck_zaehler = 3 then canvas.Canvas.Brush.Color := clGray;
        if color_dreieck_zaehler = 4 then canvas.Canvas.Brush.Color := clYellow;
        if color_dreieck_zaehler = 5 then canvas.Canvas.Brush.Color := clOlive;
        if color_dreieck_zaehler = 6 then canvas.Canvas.Brush.Color := clGreen;
        if color_dreieck_zaehler = 7 then canvas.Canvas.Brush.Color := clLime;
        if color_dreieck_zaehler = 8 then canvas.Canvas.Brush.Color := clAqua;
        if color_dreieck_zaehler = 9 then canvas.Canvas.Brush.Color := clTeal;
        if color_dreieck_zaehler = 10 then canvas.Canvas.Brush.Color := clBlue;
        if color_dreieck_zaehler = 11 then canvas.Canvas.Brush.Color := clNavy;
        if color_dreieck_zaehler = 12 then canvas.Canvas.Brush.Color := clPurple;
        if color_dreieck_zaehler = 13 then canvas.Canvas.Brush.Color := clFuchsia;
        if color_dreieck_zaehler = 14 then canvas.Canvas.Brush.Color := clMaroon;
        if color_dreieck_zaehler = 15 then canvas.Canvas.Brush.Color := clRed;
        //if color_dreieck_zaehler = 16 then canvas.Canvas.Brush.Color := clBlack;
        Case color_dreieck_zaehler of
        16 : begin
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Color := clBlack;
            end;
        canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
        // zu obiger Zeile kommt folgender Error:
        // Constant expression expected
        color_dreieck_timer.Enabled := false;
end;

end.
//Hier ist das Ende des Codes, jedoch folgender Fehler zu dem end.:
//';' expected but '.' found
//
//Danach kommt dieser Fehler:
//Declaration expected but EOF found

---

:'(

H3LP!
Programm lässt sich nicht ausführen.

Der sagt ; expected, weil das begin vom Case noch nicht geschlossen wurde, ergo zwischen end; und end. ein end; einfügen und es wird sich compilieren lassen.

Ja, dann kommt aber noch der Fehler:
Constant expression expected
zu der Zeile:
canvas.Canvas.FloodFill(60,260,clRed,fsBorder);

Kennt ihr 'ne Lösung?

nur ma ne frage: mit welchem buch lernst du delphi ?

Versuch mal das:

Code:

---

//if color_dreieck_zaehler = 16 then canvas.Canvas.Brush.Color := clBlack;
        Case color_dreieck_zaehler of
        16 : begin
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Color := clBlack;
            end;
        canvas.Canvas.FloodFill(60,260,clRed,fsBorder);

---

Durch das hier:

Code:

---

if color_dreieck_zaehler = 16 then begin
    canvas.Canvas.Brush.Color := clBlack;
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Color := clBlack;
        canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
end;

---

oder durch

Code:

---

if color_dreieck_zaehler = 16 then begin
    Canvas.Brush.Color := clBlack;
        color_dreieck_zaehler := 1;
        Canvas.Brush.Color := clBlack;
        Canvas.FloodFill(60,260,clRed,fsBorder);
end;

---

zu ersetzen.
Ansonsten lad mal das komplette projekt hoch...

Bei Methode 1 lässt sich die Farbe überhaupt nicht mehr ändern und bei Methode 2 fehlt das kleine canvas (Name des Bildes) und es wird Undeclared Identifier bei Brush/FloodFill ausgegeben!

Hier mal der ganze Sourcecode:

Code:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    quadrat: TButton;
    canvas: TImage;
    kreis: TButton;
    dreieck: TButton;
    ende: TButton;
    ext_kreis: TButton;
    ext_dreieck: TButton;
    ext_quadrat: TButton;
    ch_color_dreieck: TButton;
    ch_color_kreis: TButton;
    ch_color_quadrat: TButton;
    color_dreieck_timer: TTimer;
    color_kreis_timer: TTimer;
    color_quadrat_timer: TTimer;
    procedure quadratClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure kreisClick(Sender: TObject);
    procedure dreieckClick(Sender: TObject);
    procedure endeClick(Sender: TObject);
    procedure ext_dreieckClick(Sender: TObject);
    procedure ext_kreisClick(Sender: TObject);
    procedure ext_quadratClick(Sender: TObject);
    procedure ch_color_dreieckClick(Sender: TObject);
    procedure color_dreieck_timerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  color_dreieck_zaehler:integer;
  color_kreis_zaehler:integer;
  color_quadrat_zaehler:integer;

implementation

{$R *.dfm}

procedure TForm1.quadratClick(Sender: TObject);
begin
        canvas.Canvas.Brush.Style := bsClear;
        canvas.Canvas.Pen.Color := clRed;
        canvas.Canvas.Pen.Width := 1;
        canvas.Canvas.Rectangle(10,10,110,110);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
        color_quadrat_zaehler := 1;
        color_kreis_zaehler := 1;
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Style := bsSolid;
        canvas.Canvas.Brush.Color := clBlack;
        canvas.Canvas.Pen.Color := clBlack;
        canvas.Canvas.Rectangle(0,0,1137,633);
end;

procedure TForm1.kreisClick(Sender: TObject);
begin
        canvas.Canvas.Brush.Style := bsClear;
        canvas.Canvas.Pen.Color := clRed;
        canvas.Canvas.Pen.Width := 1;
        canvas.Canvas.Ellipse(10,10,110,110);
end;

procedure TForm1.dreieckClick(Sender: TObject);
begin
        canvas.Canvas.Brush.Style := bsClear;
        canvas.Canvas.Pen.Color := clRed;
        canvas.Canvas.Pen.Width := 1;
        canvas.Canvas.MoveTo(60,10);
        canvas.Canvas.LineTo(20,85);
        canvas.Canvas.LineTo(100,85);
        canvas.Canvas.LineTo(60,10);
end;

procedure TForm1.endeClick(Sender: TObject);
begin
        Form1.Close();
end;

procedure TForm1.ext_dreieckClick(Sender: TObject);
begin
        canvas.Canvas.Brush.Style := bsClear;
        canvas.Canvas.Pen.Color := clRed;
        canvas.Canvas.Pen.Width := 1;
        canvas.Canvas.MoveTo(60,210);
        canvas.Canvas.LineTo(20,285);
        canvas.Canvas.LineTo(100,285);
        canvas.Canvas.LineTo(60,210);
end;

procedure TForm1.ext_kreisClick(Sender: TObject);
begin
        canvas.Canvas.Brush.Style := bsClear;
        canvas.Canvas.Pen.Color := clRed;
        canvas.Canvas.Pen.Width := 1;
        canvas.Canvas.Ellipse(10,310,110,410);
end;

procedure TForm1.ext_quadratClick(Sender: TObject);
begin
        canvas.Canvas.Brush.Style := bsClear;
        canvas.Canvas.Pen.Color := clRed;
        canvas.Canvas.Pen.Width := 1;
        canvas.Canvas.Rectangle(10,430,110,530);
end;

procedure TForm1.ch_color_dreieckClick(Sender: TObject);
begin
        color_dreieck_timer.Enabled := true;
end;

procedure TForm1.color_dreieck_timerTimer(Sender: TObject);
begin
        color_dreieck_zaehler := color_dreieck_zaehler+1;
        if color_dreieck_zaehler = 2 then canvas.Canvas.Brush.Color := clWhite;
        if color_dreieck_zaehler = 3 then canvas.Canvas.Brush.Color := clGray;
        if color_dreieck_zaehler = 4 then canvas.Canvas.Brush.Color := clYellow;
        if color_dreieck_zaehler = 5 then canvas.Canvas.Brush.Color := clOlive;
        if color_dreieck_zaehler = 6 then canvas.Canvas.Brush.Color := clGreen;
        if color_dreieck_zaehler = 7 then canvas.Canvas.Brush.Color := clLime;
        if color_dreieck_zaehler = 8 then canvas.Canvas.Brush.Color := clAqua;
        if color_dreieck_zaehler = 9 then canvas.Canvas.Brush.Color := clTeal;
        if color_dreieck_zaehler = 10 then canvas.Canvas.Brush.Color := clBlue;
        if color_dreieck_zaehler = 11 then canvas.Canvas.Brush.Color := clNavy;
        if color_dreieck_zaehler = 12 then canvas.Canvas.Brush.Color := clPurple;
        if color_dreieck_zaehler = 13 then canvas.Canvas.Brush.Color := clFuchsia;
        if color_dreieck_zaehler = 14 then canvas.Canvas.Brush.Color := clMaroon;
        if color_dreieck_zaehler = 15 then canvas.Canvas.Brush.Color := clRed;
        //if color_dreieck_zaehler = 16 then canvas.Canvas.Brush.Color := clBlack;
        Case color_dreieck_zaehler of
        16 : begin
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Color := clBlack;
            end;
**      canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
        color_dreieck_timer.Enabled := false;
end;
end;
end.

---

Einziger Error hier ist halt "Constant expression expected in der mit ** vormarkierten Zeile!

Greetz,
h-7

Die beiden Zeilen

Code:

---

canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
color_dreieck_timer.Enabled := false;

---

müssen hinter das eine end; weil das case damit vorher noch abgeschlossen werden muss.

Stimmt :D
Die Prozedur sieht nun so aus:

Code:

---

procedure TForm1.color_dreieck_timerTimer(Sender: TObject);
begin
        color_dreieck_zaehler := color_dreieck_zaehler+1;
        if color_dreieck_zaehler = 2 then canvas.Canvas.Brush.Color := clWhite;
        if color_dreieck_zaehler = 3 then canvas.Canvas.Brush.Color := clGray;
        if color_dreieck_zaehler = 4 then canvas.Canvas.Brush.Color := clYellow;
        if color_dreieck_zaehler = 5 then canvas.Canvas.Brush.Color := clOlive;
        if color_dreieck_zaehler = 6 then canvas.Canvas.Brush.Color := clGreen;
        if color_dreieck_zaehler = 7 then canvas.Canvas.Brush.Color := clLime;
        if color_dreieck_zaehler = 8 then canvas.Canvas.Brush.Color := clAqua;
        if color_dreieck_zaehler = 9 then canvas.Canvas.Brush.Color := clTeal;
        if color_dreieck_zaehler = 10 then canvas.Canvas.Brush.Color := clBlue;
        if color_dreieck_zaehler = 11 then canvas.Canvas.Brush.Color := clNavy;
        if color_dreieck_zaehler = 12 then canvas.Canvas.Brush.Color := clPurple;
        if color_dreieck_zaehler = 13 then canvas.Canvas.Brush.Color := clFuchsia;
        if color_dreieck_zaehler = 14 then canvas.Canvas.Brush.Color := clMaroon;
        if color_dreieck_zaehler = 15 then canvas.Canvas.Brush.Color := clRed;
if color_dreieck_zaehler = 16 then begin
        canvas.Canvas.Brush.Color := clBlack;
        color_dreieck_zaehler := 1;
end;
        canvas.Canvas.FloodFill(60,260,clRed,fsBorder);
        color_dreieck_timer.Enabled := false;
end;

---

Dann funktioniert es wieder, bis das Dreieck mit clRed gefüllt wurde, danach verbleibt jene Farbe, auch bei weiteren Klicks.