Wieso funktioniert die else if Schleife nicht (Delphi)?

Hey Leute,

Ich möchte einen Timer programmieren in Delphi und habe eine else if Abfrage, aber die funktioniert nicht.

Ich habe als Variablen
Min, Sek: Integer;

Ich frage die beiden ab, ob diese beiden = 0 sind.

Bild zum Beitrag

Aber das funktioniert nicht, ich bekomme dann den Fehler:

Bild zum Beitrag

Weiß einer, wie ich den Fehler beheben kann?

Danke schonmal im vor raus.

1 Antwort

Gho5txx

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

24.06.2022, 23:57

Ist lange her, dass ich das letzte mal was mit Pascal geschrieben habe.

Wenn ich mich recht erinnere, waren Klammern sehr wichtig bei mehreren Bedingungen

else if (Sek=0) and (Min>0) then

Woher ich das weiß:Hobby

DaveOt

Beitragsersteller

25.06.2022, 00:05

Jap, daran hat es gelegen.
Ich war das von Python gewohnt, da lässt man die Klammern weg.
Vielen Dank.

Ähnliche Beiträge

Wann StrToFloat oder FloatToStr (oder StrToInt,…) benutzen?

Beim programmieren mit Delphi in Lazarus stelle ich mir (als absoluter Beginner beim Thema programmieren) die Frage, was String und Float genau bedeutet und wann ich StrToFloat und FloatToStr benutzen muss. Ich habe gegoogelt und da stand, String sei eine Zeichenfolge. Was ist eine Zeichenfolge?

Außerdem, was ist Integer und wann brauche ich das (StrToInt, und gibt es auch IntToStr?)? Mache grade einen Programmier Kurs in dem wir mit Delphi bei Lazarus beginnen. Leider wird in dem Kurs vorausgesetzt das ich mir solche Dinge schon merken kann, aber ich bin da nicht so flott.

Ich brauch Antworten in möglichst einfacher Sprache, die Fachsprache kenne ich noch nicht und kann deshalb mit sämtlichen Foren in denen sich Programmierer darüber unterhalten nichts anfangen.

...zum Beitrag

Java: in eine if-Anweisung eine while-Schleife einbauen?

Hallo! :)

Ich bin derzeit dabei, das Programmieren mit Java zu lernen und beschäftige mich gerade mit if-/else-Anweisungen und Schleifen.

Ich habe eine Aufgabe bearbeitet und dabei eine while-Schleife in eine if-Anweisung gesetzt, also, falls die Bedingung für die if-Abfrage wahr ist, soll unter anderem die while-Schleife ausgeführt werden, jedoch funktioniert das Programm so nicht.

Jetzt frage ich mich, ob es blöd ist, eine while-Schleife in eine if-Anweisung einzubauen? :D

Danke!

...zum Beitrag

[C# ]If Schleife abfragen ob andere Form offen ist?

Hallo,

wie kann ich in C# abfragen ob eine andere bestimmte Form offen ist?

MfG

...zum Beitrag

Programmieren?

Hallo,

was habe ich bei meinem Programm bei Python falsch gemacht ? Weil if und else sollen noch in der for-Schleife sein…

...zum Beitrag

Hilfe bei Variablen, Schleifen und If-Abfrage in JavaScript?

Nächste Woche habe ich einen Test über JavaScript, wo ich bestimmen muss, worüber der code sich handelt. Weil das der Anfang für mich ist kommen nur Beispiele zur Variablen, do-while Schleifen und If-Abfrage vor. Bei Variablen weiß ich nur, dass "var", "const" und "tel" existieren, wobei var nicht mehr aktuell ist.

Wozu sind die gut? Und wie erkenne ich, ob bei dem code ein fehler ist?

Danke voraus!

...zum Beitrag

Java Hamster if else Aufgabe hilfe?

Hallo, wir sind ja momentan nicht in der Schule, und ich finde diese Aufgabe zu schwer man soll if und else benutzen, kann die jmd für mich programmieren?

...zum Beitrag

If-else und while in einem Java Programm?

Bezogen auf den Hamstersimulator, wie könnte man ein Programm schreiben, welches den if-else-switch und die while-Schleife kombiniert? Falls ihr den Simulator nicht kennt genügen auch andere Beispiele (solange sich diese auf Java beziehen), da ich schlicht und einfach wissen möchte, wie und wozu man beides zusammen nutzen kann.

...zum Beitrag

Python Durch eine If Abfrage eine Try except Methode Abbrechen?

Guten Tag oder auch Guten Abend,

Ich habe folgendes Problem, Ich habe in einer try except Methode, eine If-Abfrage drin, alles soweit gut, nun möchte das wenn die If-Abfrage Else ist, das meine try except Abfrage abgebrochen wird. Wie könnte ich das Anstellen?

Code:

Bei print("Abbruch") Soll die Try Methode abgebrochen werden.

...zum Beitrag

Was ist der Unterschied zwischen if / else if und 2x if?

Hallo Community!

Was ich mich beim Programmieren jetzt schon eine Zeit lang frage ist: Was macht es eigentlich für einen Unterschied ob ich schreibe

if(...) {...} if(...) {...}

oder

if(...) {...} else if(...) {...} ?

Danke für alle Antworten! :) Und nein, das ist keine Hausaufgabenfrage! o.O

...zum Beitrag

Was ist der Unterschied zwischen FOR und zwischen IF Schleife in Java?

Also

In einer For Schleife kann man maximal 3 Parameter reinschreiben und es gibt kein ELSE

In einer IF Schleife kann man glaube ich auch nur 3 Parameter hinschreiben aber mit else..

Ist das richtig?

Bringt mich durcheinander :/

Mfg

...zum Beitrag

Die anweisung ist in einem Namespace ungültig?

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zum Beitrag

Wie kann man bei java boolean werte von integern abfragen?

frage für ein schulprojekt. Es geht darum, in blueJ ein spiel zu programmieren, in dem man über einen weg mit 2 feldern laufen muss. bei jedem feld soll es eine 50/50 chance geben, dass man weiterkommt.
das hier ist der code, um die felder zu unterscheiden:

feld = new Quadrat[2][11];
       zufall = new Random();
for (int i=0; i<11; i=i+1) {
   feld[zufall.nextInt(2)][i].equals(false);
   if (feld[0][i].equals(false)) {
   feld[1][i].equals(true);
   }
   else {
   feld[1][i].equals(false);
   feld[0][i].equals(true);

Wie kann man nun abfragen, ob ein feld den wert true oder false hat? das feld ist ein quadrat und deswegen kann man keinen boolean wert abfragen.

...zum Beitrag

Wieso funktioniert der Code in Lazarus nicht?

Hallo, ich lerne gerade ein wenig mit Lazarus zu programmieren.

Ich möchte dabei Hotkeys programmieren, die man außerhalb von der TForm nutzen kann. Leider funktioniert das bei meinem Programm nicht, aber ich weiß nicht, was das Problem ist.

Code:

unit unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LCLType, Windows;
type
  { TForm1 }
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;
  HotkeyRegistered: Boolean;

implementation
{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotkeyRegistered := False;
  RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_SHIFT, VK_NUMPAD1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HotkeyRegistered then
    UnRegisterHotKey(Handle, 1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_NUMPAD1) then
  begin
    ShowMessage('Hotkey wurde gedrückt!');
  end;
end;

end.

Weiß jemand, woran das liegt?

...zum Beitrag

Delphi/Lazarus Berrechnungen etc. beim Start der Anwendung ausführen?

Ich bin noch ein absouluter Anfänger in Delphi/lazarus... Ich wollte nun in meinem Programm direkt beim starten

var x:integer;

erstellen... das habe ich hinbekommen indem ich sie an dieser stelle im Quellcode eingefügt habe

{$R *.lfm}
 var x:integer;

aber wenn ich nun darunter

{$R *.lfm}
 var x:integer;
x:=random(100);

schreibe, funktioniert das ganze nicht mehr..... wenn ich das gleiche in eine "Klick funktion" oder wie man das nennt packe, klappt es. An welche stelle im Quellcode kann ich denn jetzt "Anweisungen" wie if etc. reinschreiben das sie direkt beim starten das programmes ausgeführt werden und nicht erst wenn man draufklickt etc. ???

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen