Hallo,
Da gebe ich Chemiker recht, ich habe mal hier eine Stück Code von dir kopiert, schau mal,
Delphi-Quellcode:
begin
If Feld[a]>=10 then
zahl:=zahl+1;
a:=a+1;
x:=x+1;
else
Wenn man den Code nimmt, wird im Fall von , das if nicht gleich ist, nur die Zeile zahl:= zahl+1 ausgelassen, die anderen Zeilen werden immer ausgeführt.
Der Code sollte also lauten...
Delphi-Quellcode:
begin
If Feld[a]>=10 then
begin
zahl:=zahl+1;
a:=a+1;
x:=x+1
end
else
Bedenke bitte auch, das das 'end' vor dem else, nicht mit einem ';' abgeschlossen wird.
Gruß Jens