wie schön das unser Lehrer das uns mal gesagt hat
Delphi-Quellcode:
procedure TForm1.BtnGroClick(Sender: TObject);
var
x,a,i,zahl:Integer;
begin
x:=0;
a:=0;
zahl:=0;
while x<=5 do
begin
If Feld[a]>=10 then
begin
zahl:=zahl+1;
a:=a+1;
x:=x+1;
end
else
x:=x+1;
end;
Label1.Caption:=inttostr(zahl);
end;
So sieht mein Quelltext jetzt aus. Und wie sollte es anders sein es Funktioniert nicht. Mich wundert es schon das die erste Zahl von der funktion random nicht 6 sondern diesmal 1 ist. Jedenfalls ist die ausgabe 0 obwoll es Zahlen gibt über 10. Dabei habe ich nur das else angefügt
. Von der Logik her müsste es ja stimmen. Weil sonst ja eine endlosschleife enstehen würde(ohne das ELSE).
Also wo is nun wieder mein Fehler...
@Jens: Ja, habe ich gemacht allerdings mit else und es hat nicht funktioniert, also habe ich das alles wieder weggenommen