Fehlermeldung bei if/then

[Felix96]

Hey Leute,

ich bekomme eine Fehlermeldung, die ich an dieser Stelle nicht verstehe.

Interessant ist auch, wenn ich das Semikolon hinter dem "end" lösche, erscheint die Fehlermeldung beim nächsten "end". Feld1 ist eine boolean Variable.

Was ich möchte ist, dass beim ersten (Rechts-)Klicken das Bild erscheint, und dann wieder verschwindet.

Bin neu hier und bei Delphi

LG und schonmal Danke im Voraus

Felix

[mkinzler]

If (Feld1) and ( ssRight in Shift) then

[Delphi-Laie]

Merwürdig nur, daß der Compiler sich nicht gleich am zweiten "if" stößt.

[Furtbichler]

Parser funktionieren nicht immer so, wie man das gerne hätte. Es ist schon schwer genug, nach einem Syntax-Fehler wieder so aufzusetzen, das der Rest vom Code möglichst vollständig geparst werden kann.

[Felix96]

Zitat von Delphi-Laie:

Merwürdig nur, daß der Compiler sich nicht gleich am zweiten "if" stößt.

Danke daran lags natürlich^^ Ist mir beim Rumkopieren dummerweise nicht aufgefallen.

Code:

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssRight in Shift) then
  if Feld1 = true then
  begin
  BitBtn1.Glyph.LoadFromFile('Dateipfad');
  Feld1 :=false;
  end
  else
  begin
  BitBtn1.Glyph :=nil;
  Feld1 :=true;
  end;

So gehts jetzt dann doch

Danke!

Delix

[DeddyH]

Zitat:

if Feld1 = true then

-->
if Feld1 then Das ist sicherer, siehe http://delphi-treff.de/tutorials/obj...faengerfehler/.

[PC-John]

Bei zusammengesetzten Bedingungen hinter einen if-Befehl empfiehlt es sich die ganze Bedingung zusätzlich noch in Klammern zu setzen, bei mehrfachen unterschiedlichen Bedingungen entsprechend noch mehr Klammern:
als Beispiel

If (((m_rasse = 'fzwe') and (m_farbe = 'mx')) or ((m_rasse = 'fzwS') and (m_farbe = '__'))) then ...

Hatte mich auch lange mit solchen "Fehlern" rumgeschlagen

PC-John

[DeddyH]

Wenn es sehr verschachtelt wird, können aber Zwischenvariablen die Übersicht erhöhen.