[Pascal Fehler] Unit1.pas(79): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
[Pascal Fehler] Unit1.pas(80): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
[Pascal Fehler] Unit1.pas(81): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
[Pascal Fehler] Unit1.pas(82): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
[Pascal Fehler] Unit1.pas(83): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
[Pascal Fehler] Unit1.pas(84): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
Delphi-Quellcode:
richtige :=0;
if StrToInt( edit1.text) = StrToInt( edit7.text) then inc (richtige);
if StrToInt( Edit2.text) = StrToInt( Edit8.text) then inc (richtige);
if StrToInt( Edit3.text) = StrToInt( Edit9.text) then inc (richtige);
if StrToInt( Edit4.text) = StrToInt( Edit10.text) then inc (richtige);
if StrToInt( Edit5.text) = StrToInt( Edit11.text) then inc (richtige);
if StrToInt( Edit6.text) = StrToInt( Edit12.text) then inc (richtige);
if richtige = 6 then showmessage ('Sie haben Gewonnen');
if StrToInt( Edit1.text) <> StrToInt( Edit7.text) then (falsche);
if StrToInt( Edit2.text) <> StrToInt( Edit8.text) then (falsche);
if StrToInt( Edit3.text) <> StrToInt( Edit9.text) then (falsche);
if StrToInt( Edit4.text) <> StrToInt( Edit10.text) then (falsche);
if StrToInt( Edit5.text) <> StrToInt( Edit11.text) then (falsche);
if StrToInt( Edit6.text) <> StrToInt( Edit12.text) then (falsche);
if falsche =6 then showmessage ('Sie haben leider verloren');