AND oder OR in if-anweisung

noo.bee · Beiträge: 120

ich hab eine if schleife:

Delphi-Quelltext

1:
2:
3:

if edit86.Text = edit1.Text then inc (Z1); // wenn beide gleich, dann Z1++
if Treffer1 <= 3 and Z1 := '1' then                // wenn Treffer1 grösser/gleich 3 UND Z1 = 1
label5.Text := '+ ZZ';                             // dann zeige "+ ZZ"

die zeigt folgende fehlermeldung: [DCC Fehler] lotto.pas(203): E2029 'THEN' erwartet, aber ':=' gefunden

die boardsuche habe ich bemüht. da habe ich das mit IF und AND hier gefunden:

markieren

Delphi-Quelltext

1:
2:

if ((DayOfNow(Date) < 3) and (Datum >= LastDayOfMonth2(Datum) -3)) or (Datum > (Date -3)) then 
begin

jetzt dachte ich, dass bei mir die klammern fehlen. das geht aber auch net bei mir... wo liegt denn mein fehler ?

Moderiert von Narses: Topic aus VCL (Visual Component Library) verschoben am So 02.05.2010 um 23:00

Narses · Verfasst: So 02.05.10 22:59

Moin!

noo.bee hat folgendes geschrieben :

ich hab eine if schleife:

Es gibt keine IF-Schleifen. :roll:

noo.bee hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:

if edit86.Text = edit1.Text then inc (Z1); // wenn beide gleich, dann Z1++
if Treffer1 <= 3 and Z1 := '1' then                // wenn Treffer1 grösser/gleich 3 UND Z1 = 1
label5.Text := '+ ZZ';                             // dann zeige "+ ZZ"

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

noo.bee · Beiträge: 120

ok, if-anweisung

wenn ich aus := ein = mache, kommen 2 fehlermeldungen:

[DCC Fehler] lotto.pas(203): E2008 Inkompatible Typen
[DCC Fehler] lotto.pas(204): E2362 Auf protected-Symbol TControl.Text kann nicht zugegriffen werden

Narses · Verfasst: So 02.05.10 23:04

Moin!

noo.bee hat folgendes geschrieben :

wenn ich aus := ein = mache, kommen 2 fehlermeldungen:

[DCC Fehler] lotto.pas(203): E2008 Inkompatible Typen

Dann rate ich mal, dass Z1 als Integer deklariert ist, du versuchst mit einem String zu vergleichen. Klappt nicht. :nixweiss:

noo.bee hat folgendes geschrieben :

[DCC Fehler] lotto.pas(204): E2362 Auf protected-Symbol TControl.Text kann nicht zugegriffen werden

Die von dir vermutlich gesuchte Eigenschaft heißt .Caption?

Eieiei, alles "Fehler", die man mit einem winzigen bisschen Lesen in der DOH auch selbst finden kann...

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Xentar · Verfasst: So 02.05.10 23:04

1. Setze Klammern um die Einzel-Abfragen
2. Bei nem Label heißt das Caption, nicht Text.

_________________
PROGRAMMER: A device for converting coffee into software.

Narses · Verfasst: So 02.05.10 23:06

Moin!

Xentar hat folgendes geschrieben :

1. Setze Klammern um die Einzel-Abfragen

Grundsätzlich gute Idee, hilft hier aber nicht gegen den Typen-Fehler.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

noo.bee · Beiträge: 120

boah wie unklug von mir -.- türlich is das .caption und nicht .text :oops:

und mit den klammern hat soweit auch funktioniert.

Zitat:

...hilft hier aber nicht gegen den Typen-Fehler.

wie meinst du ?

Narses · Verfasst: So 02.05.10 23:22

Moin!

noo.bee hat folgendes geschrieben :

und mit den klammern hat soweit auch funktioniert.

Zitat:

...hilft hier aber nicht gegen den Typen-Fehler.

wie meinst du ?

markieren

Delphi-Quelltext

1:
2:
3:

if edit86.Text = edit1.Text then inc (Z1); // wenn beide gleich, dann Z1++
if Treffer1 <= 3 and Z1 = '1' then                // wenn Treffer1 grösser/gleich 3 UND Z1 = 1
label5.Caption := '+ ZZ';                             // dann zeige "+ ZZ"

Du willst mir doch nicht erzählen, dass man das mit einer Klammer in den Griff kriegt, oder?

Du verwendest Inc(), also ist Z1 sehr wahrscheinlich ein Integer, so dass man da wohl kaum mit der String-Konstante '1' vergleichen kann. Hier sind die Hochkommata über, da braucht´s keine Klammer. Falls Z1 vom Typ Char ist, machte der Fehler keinen Sinn (wobei dann Zuweisung/Inc und Vergleich klappen sollten).

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

noo.bee · Beiträge: 120

nein, hast natürlich recht. mein code sieht so aus:

markieren

Delphi-Quelltext

1:	if (Treffer1 <= 3) and (Z1 = 1) then label38.caption := '+ ZZ';

Narses · Verfasst: So 02.05.10 23:28

Moin!

Markierst du den Thread noch entsprechend, wenn dein Problem gelöst ist? Danke.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme