Fehlermeldung bei if/then

[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/.