![]() |
Fehlermeldung bei if/then
Liste der Anhänge anzeigen (Anzahl: 1)
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 |
AW: Fehlermeldung bei if/then
Delphi-Quellcode:
If (Feld1) and ( ssRight in Shift) then
|
AW: Fehlermeldung bei if/then
Merwürdig nur, daß der Compiler sich nicht gleich am zweiten "if" stößt.
|
AW: Fehlermeldung bei if/then
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.
|
AW: Fehlermeldung bei if/then
Zitat:
Code:
So gehts jetzt dann doch ;)
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; Danke! Delix |
AW: Fehlermeldung bei if/then
Zitat:
Delphi-Quellcode:
Das ist sicherer, siehe
if Feld1 then
![]() |
AW: Fehlermeldung bei if/then
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 |
AW: Fehlermeldung bei if/then
Wenn es sehr verschachtelt wird, können aber Zwischenvariablen die Übersicht erhöhen.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz