Entwickler-Ecke :: Thema anzeigen - AND oder OR in if-anweisung

noo.bee - So 02.05.10 22:57
Titel: AND oder OR in if-anweisung

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:

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 - 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 :

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

noo.bee - So 02.05.10 23:02

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 - 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

Narses - 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 ?

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

noo.bee - So 02.05.10 23:24

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

Delphi-Quelltext

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!