Seite 1 von 3 123 LetzteLetzte
Ergebnis 1 bis 10 von 21

Hybrid-Darstellung

  1. #1
    I have a sloth! Avatar von h4XX0r-7
    Registriert seit
    20.02.2010
    Beiträge
    310

    Standard 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



  2. #2
    W64.SCII G4M3R
    Registriert seit
    27.04.2010
    Beiträge
    170

    Standard

    nach
    then;
    begin
    [Anweisung]
    end;
    Hier einige Fakten:
    1)du bist online
    2)du bist bei Free-Hack
    3)du guckst auf meine Signatur
    5)du liest das
    6)du hast nicht bemerkt dass Nummer 4 fehlt
    7)du schaust nach
    8)du merkst du lächelst =)
    und kopierst dir das in deine Signatur



  3. #3
    I have a sloth! Avatar von h4XX0r-7
    Registriert seit
    20.02.2010
    Beiträge
    310

    Standard

    schon probiert, folgendes ging nicht:

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



  4. #4
    Der `Toastflüsterer` Avatar von AlterHacker
    Registriert seit
    27.09.2008
    Beiträge
    690

    Standard

    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

    Security is an illusion.
    Cheater : 8=o
    Normaluser : 8=======o
    Ich : 8================o

    BM: (4|2|0)

  5. #5
    Der mit Anatidaephobie Avatar von blackberry
    Registriert seit
    11.07.2008
    Beiträge
    2.350

    Standard

    Auf die Semicoli achten.

    Zitat Zitat von h4XX0r-7 Beitrag anzeigen
    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!

    PDFTT cr3w a.E. — ReiDC0Re, lindor, Sera, berry
    please do feed the trolls crew and elk
    Ehrenwerte Mitglieder im Ruhestand: OpCodez, SFX.
    "Was sich blackberry gerade denkt" — Vorsicht! Frei laufender Wahnsinn!
    Zitat von fuckinghot19: "PS: Blackberry ist auf FH der Trollkönig ^^."
    An dieser Stelle danke ich all meinen Fans und Hatern gleichermaßen ^.^

  6. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    Shini (30.11.2010), sontyp (08.12.2018)

  7. #6
    I have a sloth! Avatar von h4XX0r-7
    Registriert seit
    20.02.2010
    Beiträge
    310

    Standard

    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

    Hmm, versteh das nicht?!?!?

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

    ThX
    h4XX0r-7
    Geändert von h4XX0r-7 (30.11.2010 um 22:58 Uhr) Grund: Automerged Doublepost



  8. #7

    Registriert seit
    17.06.2009
    Beiträge
    559

    Standard

    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.

  9. #8
    I have a sloth! Avatar von h4XX0r-7
    Registriert seit
    20.02.2010
    Beiträge
    310

    Standard

    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



  10. #9
    Moderator Avatar von Jut4h.tm
    Registriert seit
    25.06.2006
    Beiträge
    792

    Standard

    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;

  11. #10
    I have a sloth! Avatar von h4XX0r-7
    Registriert seit
    20.02.2010
    Beiträge
    310

    Standard

    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;
    Geändert von h4XX0r-7 (01.12.2010 um 17:03 Uhr)



Seite 1 von 3 123 LetzteLetzte

Ähnliche Themen

  1. Nach technischem Fehler: ".de"-Domains zeitweise nicht erreichbar
    Von Sawyer im Forum Globale News / Szene News
    Antworten: 4
    Letzter Beitrag: 17.05.2010, 14:50
  2. "Ausführen" Befehle
    Von wiZard im Forum Windows
    Antworten: 3
    Letzter Beitrag: 29.09.2008, 21:09
  3. fehlermeldung nach dem "builden" hilfe bidde :]
    Von enjoy2k im Forum Trashbox
    Antworten: 0
    Letzter Beitrag: 12.09.2008, 02:59
  4. "Der Anzeigetreiber wurde nach einem Fehler...."
    Von Nyze234 im Forum Hardware
    Antworten: 11
    Letzter Beitrag: 28.08.2008, 01:21

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •