Hab mir das mal angeguckt:
Warum machst Du das nicht gleich so?
Delphi-Quellcode:
richtig:=0;
falsch:=0;
For i:=1 to 5 do
If code[i]=geraten[i] then
inc(richtig) else
inc(falsch);
Wozu ist das da?
Delphi-Quellcode:
For k:=1 to 5 do
if geraten[k]=vergleich[k] then
Label7.Caption:=IntToStr(falsch);