Weil die Methode so nicht klappt. Die Variablen falsch und richtig werden jedesmal gesetzt und behalten demzufolge nur ihren letzten Wert.
Besser wäre es:
Delphi-Quellcode:
var richtige: Integer;
richtige:=0;
if StrToInt( edit1.text) = StrToInt( edit7.text) then inc(richtige); //immer um 1 erhöhen, wenns stimmt
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('Hurra!');
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
