Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
5. Apr 2009
Zeig mal den rest von deine Code.
In der While Schleife passiert folgendes...
procedure TForm1.BtnGroClick(Sender: TObject);
var
x,a,i,zahl:Integer;
begin
x:=0;
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
5. Apr 2009
Das mit der if-Abfrage siehst du richtig. Deshalb, setzt am besten immer begin und end, damit ist für jeden eindeutig, was zusammen gehören soll.
Gruß Jens
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
5. Apr 2009
Sorry,habe jetzt erst gesehen, was du vorhast. Wenn du die While-Schleife betrachtest, hast Du recht. Ich testen es mal.
Gruß Jens
begin
Recht schon, aber der Fehler ist trotzallem durch die fehlenden Blöcke
begin
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
5. Apr 2009
Hallo,
Da gebe ich Chemiker recht, ich habe mal hier eine Stück Code von dir kopiert, schau mal,
begin
If Feld>=10 then
zahl:=zahl+1;
a:=a+1;
x:=x+1;