wert der variable wird vermindert ohne geändert zu werden

[dino]

die y Koordinate bau[2,vo] vo für volk wir nur einmal per :=random(200) gesetzt und sonst nicht angerührt
ich hab den kompletten code durchgesucht, aber er wird tatsächlisch nicht mehr verändert!!!

aber trotzdem geschieht es immer wieder, dass der Bau nach einiger Zeit nach oben verschwindet...
wie kann das sein?

[Klaus01]

Ähm, wie jetzt?

Kein Quellcode?

Raten?

Grüße
Klaus

[dino]

wie gesagt ich hab den Kompletten code durchgeguckt, er wird nicht geändert!

meine frage ist, ob es überhaupt noch mehr möglichkeiten gibt den wert einer variable zu ändern ohne ihn mit den namen zu nennen

hier mal den total unordentlichen code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ifutter: TImage;
    sb1: TStatusBar;
    Ia: TImage;
    ib: TImage;
    HSB: TScrollBar;
    VSB: TScrollBar;
    Timer2: TTimer;
    BitBtn1: TBitBtn;
    Timer3: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure VSBKeyPress(Sender: TObject; var Key: Char);
    procedure HSBKeyPress(Sender: TObject; var Key: Char);
    procedure Timer2Timer(Sender: TObject);
    procedure BitBtn1KeyPress(Sender: TObject; var Key: Char);
    procedure ibDblClick(Sender: TObject);
    procedure ibClick(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  bit,bit2:tbitmap;
  liv,dir,trag,tragh,farb,ax,ay:array[1..1000,1..4] of integer;
  ger:array[1..200,1..200,1..4] of real;
  feld:array[1..200,1..200] of integer;
  bau:array[1..2,1..4] of integer;
  food,wood,anz,hap,ges:array[1..4] of integer;
  gohome,aliv,tra:array[1..1000,1..4] of boolean;
  xl,yl,time3,realtime,fu:integer;
  obr,r,ur,u,ul,l,ol,o:real;
implementation

//uses Unit2;

{$R *.DFM}

procedure futter(x,y:integer);
var rect1,rect2:trect;
begin with form1 do begin
rect1:=rect(0,0,7,7);  rect2:=rect(x*7-3,y*7-3,x*7+4,y*7+4);
if feld[x,y]=0 then begin
bit.canvas.copyrect(rect2,ifutter.canvas,rect1);
feld[x,y]:=3;end;
end;
end;

procedure holz(x,y:integer);
var rect1,rect2:trect;
begin with form1 do begin
rect1:=rect(7,0,14,7);  rect2:=rect(x*7-3,y*7-3,x*7+4,y*7+4);
if feld[x,y]=0 then
bit.canvas.copyrect(rect2,ifutter.canvas,rect1);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject); var x,vo,y,test2,a,f,farbl,xq,yq,test1:integer; w1,w2,w3:real;
rect1,rect2,rect3,rect4:trect;
begin
realtime:=realtime+1;
sb1.panels[0].text:='Red Food: '+ inttostr(Food[1])+'    ';
sb1.panels[1].text:='Red Pop.: '+ inttostr(Anz[1])+'    ';
sb1.panels[2].text:='Green Food: '+ inttostr(Food[2])+'    ';
sb1.panels[3].text:='Green Pop.: '+ inttostr(Anz[2])+'    ';
sb1.panels[4].text:='Brown Food: '+ inttostr(Food[3])+'    ';
sb1.panels[5].text:='Brown Pop.: '+ inttostr(Anz[3])+'    ';
sb1.panels[6].text:='Yellow Food: '+ inttostr(Food[4])+'    ';
sb1.panels[7].text:='Yellow Pop.: '+ inttostr(Anz[4])+'    ';

rect3:=rect(14,0,20,6);
 for vo:=1 to 4 do begin
rect4:=rect( bau[1,vo]*7-3,bau[2,vo]*7-3,bau[1,vo]*7+3,bau[2,vo]*7+3);
bit.canvas.copyrect(rect4,ifutter.canvas,rect3);
for a:=1 to 1000 do begin
 if not aliv[a,vo] then
 feld[ax[a,vo],ay[a,vo]]:=0
 else begin feld[xl,yl]:=0; if farbl=3 then futter(xl,yl);
xl:=ax[a,vo]; yl:=ay[a,vo];

  liv[a,vo]:=liv[a,vo] +1;
feld[bau[1,vo],bau[2,vo]]:=0;


farbl:=farb[a,vo];
 if (ax[a,vo]=bau[1,vo]) and (ay[a,vo]=bau[2,vo]) then begin
food[vo]:=food[vo]-liv[a,vo];
liv[a,vo]:=0;

if food[vo] < 0 then begin liv[a,vo]:=-food[vo];food[vo]:=0; if liv[a,vo]>1000 then begin food[vo]:=1000-liv[a,vo];liv[a,vo]:=1000; end; end;
if liv[a,vo]<970 then begin
obr:=random * (ger[51,49,vo]+1);
r:=random * (ger[51,50,vo]+1);
ur:=random * (ger[51,51,vo]+1);
u:=random * (ger[50,51,vo]+1);
ul:=random * (ger[49,51,vo]+1);
l:=random * (ger[49,50,vo]+1);
ol:=random * (ger[49,49,vo]+1);
o:=random * (ger[50,49,vo]+1);
if feld[bau[1,vo],bau[2,vo]]>0 then obr:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then r:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then ur:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then u:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then ul:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then l:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then ol:=0;
if feld[bau[1,vo],bau[2,vo]]>0 then o:=0;
if tra[a,vo] then begin ges[vo]:=ges[vo]+1;
                     hap[vo]:=hap[vo]-1;
                     food[vo]:=food[vo]+trag[a,vo];
                     wood[vo]:=wood[vo]+tragh[a,vo]; tragh[a,vo]:=0;end;
     tra[a,vo]:=false;
if  r   >(obr+o+ol+l+ul+u+ur)/7 then dir[a,vo]:=0;
if  obr >(o+ol+l+ul+u+ur+r)  /7 then dir[a,vo]:=1;
if  o   >(obr+ol+l+ul+u+ur+r)/7 then dir[a,vo]:=2;
if  ol  >(obr+o+l+ul+u+ur+r) /7 then dir[a,vo]:=3;
if  l   >(obr+o+ol+ul+u+ur+r)/7 then dir[a,vo]:=4;
if  ul  >(obr+o+ol+l+u+ur+r) /7 then dir[a,vo]:=5;
if  u   >(obr+o+ol+l+ul+ur+r)/7 then dir[a,vo]:=6;
if  ur  >(obr+o+ol+l+ul+u+r) /7 then dir[a,vo]:=7;

 end;
    end;
   if tra[a,vo]=false then if farbl=3 then begin
   if liv[a,vo]>300 then begin liv[a,vo]:=liv[a,vo]-300; end
   else begin
   trag[a,vo]:=300-liv[a,vo]; liv[a,vo]:=0;
    hap[vo]:=hap[vo]+1;
    tra[a,vo]:=true;farbl:=clsilver; dir[a,vo]:=dir[a,vo]+4; if dir[a,vo]>7 then dir[a,vo]:=dir[a,vo]-8;end;
end;



if tra[a,vo]=false then if farbl=clmaroon then begin
tra[a,vo]:=true; tragh[a,vo]:=25; farbl:=clsilver; dir[a,vo]:=dir[a,vo]+4; if dir[a,vo]>7 then dir[a,vo]:=dir[a,vo]-8; end;
feld[ax[a,vo],ay[a,vo]]:=1;
if liv[a,vo]>925 then if ax[a,vo]=bau[1,vo] then if ay[a,vo]=bau[2,vo] then dir[a,vo]:=8;
//canvas.textout(100,800,inttostr(liv[a,vo])+' '+inttostr(dir[a,vo])+'   ');
//if tra[1,1] then bit.canvas.textout(10,20,'ja')else bit.canvas.textout(10,20,'nein');
if tra[a,vo] {then gohome[a,vo]:=true;

if gohome[a,vo] }then begin

if ax[a,vo]<bau[1,vo] then begin
dir[a,vo]:=8;
if (feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3) then dir[a,vo]:=2;
if (feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3) then dir[a,vo]:=6;
if (feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3) then dir[a,vo]:=1;
if (feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3) then dir[a,vo]:=7;
if (feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3) then dir[a,vo]:=0;
end;

if ax[a,vo]>bau[1,vo] then begin
dir[a,vo]:=8;
if (feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3) then dir[a,vo]:=6;
if (feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3) then dir[a,vo]:=2;
if (feld[ax[a,vo]+1,ay[a,vo]-1]=0)or(feld[ax[a,vo]+1,ay[a,vo]-1]=3) then dir[a,vo]:=5;
if (feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3) then dir[a,vo]:=3;
if (feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3) then dir[a,vo]:=4;
end;

if ay[a,vo]<bau[2,vo] then begin
dir[a,vo]:=8;
if (feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3) then dir[a,vo]:=0;
if (feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3) then dir[a,vo]:=4;
if (feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3) then dir[a,vo]:=7;
if (feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3) then dir[a,vo]:=5;
if (feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3) then dir[a,vo]:=6;
end;

if ay[a,vo]>bau[2,vo] then begin
dir[a,vo]:=8;
if (feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3) then dir[a,vo]:=4;
if (feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3) then dir[a,vo]:=0;
if (feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3) then dir[a,vo]:=3;
if (feld[ax[a,vo]+1,ay[a,vo]-1]=0)or(feld[ax[a,vo]+1,ay[a,vo]-1]=3) then dir[a,vo]:=1;
if (feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3) then dir[a,vo]:=2;
end;

if ((ax[a,vo]-bau[1,vo])+abs(ax[a,vo]-bau[1,vo]))*((ay[a,vo]-bau[2,vo])+abs(ay[a,vo]-bau[2,vo]))>0 then begin
dir[a,vo]:=8;
if (feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3) then dir[a,vo]:=5;
if (feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3) then dir[a,vo]:=1;
if (feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3) then dir[a,vo]:=4;
if (feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3) then dir[a,vo]:=2;
if (feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3) then dir[a,vo]:=3;
end;

if ((ax[a,vo]-bau[1,vo])+abs(ax[a,vo]-bau[1,vo]))*((bau[2,vo]-ay[a,vo])+abs(bau[2,vo]-ay[a,vo]))>0 then begin
dir[a,vo]:=8;
if (feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3) then dir[a,vo]:=7;
if (feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3) then dir[a,vo]:=3;
if (feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3) then dir[a,vo]:=6;
if (feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3) then dir[a,vo]:=4;
if (feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3) then dir[a,vo]:=5;
end;

if ((bau[1,vo]-ax[a,vo])+abs(bau[1,vo]-ax[a,vo]))*((ay[a,vo]-bau[2,vo])+abs(ay[a,vo]-bau[2,vo]))>0 then begin
dir[a,vo]:=8;
if (feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3) then dir[a,vo]:=3;
if (feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3) then dir[a,vo]:=7;
if (feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3) then dir[a,vo]:=2;
if (feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3) then dir[a,vo]:=0;
if (feld[ax[a,vo]+1,ay[a,vo]-1]=0)or(feld[ax[a,vo]+1,ay[a,vo]-1]=3) then dir[a,vo]:=1;
end;

if ((bau[1,vo]-ax[a,vo])+abs(bau[1,vo]-ax[a,vo]))*((bau[2,vo]-ay[a,vo])+abs(bau[2,vo]-ay[a,vo]))>0 then begin
dir[a,vo]:=8;
if (feld[ax[a,vo]+1,ay[a,vo]-1]=0) or (feld[ax[a,vo]+1,ay[a,vo]-1]=3)  then dir[a,vo]:=1;
if (feld[ax[a,vo]-1,ay[a,vo]+1]=0) or (feld[ax[a,vo]-1,ay[a,vo]+1]=3) then dir[a,vo]:=5;
if (feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3) then dir[a,vo]:=0;
if (feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3) then dir[a,vo]:=6;
if (feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3) then dir[a,vo]:=7;
end;
end
else
case dir[a,vo] of
0: begin
   w1:=random *(ger[ax[a,vo]+1,ay[a,vo]+1,vo]+1);
   w2:=random *(ger[ax[a,vo]+1,ay[a,vo],vo]+1);
   w3:=random *(ger[ax[a,vo]+1,ay[a,vo]-1,vo]+1);
   if not ((feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3)) then w1 :=0;
   if not ((feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3)) then w2 :=0;
   if not ((feld[ax[a,vo]+1,ay[a,vo]-1]=0)or(feld[ax[a,vo]+1,ay[a,vo]-1]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=7;
   if 2*w2>w1+w3 then dir[a,vo]:=0;
   if 2*w3>w2+w1 then dir[a,vo]:=1;
   if w1+w2+w3=0then dir[a,vo]:=4;
   end;
1: begin
   w1:=random *(ger[ax[a,vo]+1,ay[a,vo],vo]+1);
   w2:=random *(ger[ax[a,vo]+1,ay[a,vo]-1,vo]+1);
   w3:=random *(ger[ax[a,vo],ay[a,vo]-1,vo]+1);
   if not ((feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3)) then w1 :=0;
   if not ((feld[ax[a,vo]+1,ay[a,vo]-1]=0)or(feld[ax[a,vo]+1,ay[a,vo]-1]=3)) then w2 :=0;
   if not ((feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=0;
   if 2*w2>w1+w3 then dir[a,vo]:=1;
   if 2*w3>w2+w1 then dir[a,vo]:=2;
   if w1+w2+w3=0then dir[a,vo]:=5;
   end;
2: begin
   w1:=random *(ger[ax[a,vo]+1,ay[a,vo]-1,vo]+1);
   w2:=random *(ger[ax[a,vo],ay[a,vo]-1,vo]+1);
   w3:=random *(ger[ax[a,vo]-1,ay[a,vo]-1,vo]+1);
   if not ((feld[ax[a,vo]+1,ay[a,vo]-1]=0)or(feld[ax[a,vo]+1,ay[a,vo]-1]=3)) then w1 :=0;
   if not ((feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3)) then w2 :=0;
   if not ((feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=1;
   if 2*w2>w1+w3 then dir[a,vo]:=2;
   if 2*w3>w2+w1 then dir[a,vo]:=3;
   if w1+w2+w3=0then dir[a,vo]:=6;
   end;
3: begin
   w1:=random *(ger[ax[a,vo],ay[a,vo]-1,vo]+1);
   w2:=random *(ger[ax[a,vo]-1,ay[a,vo]-1,vo]+1);
   w3:=random *(ger[ax[a,vo]-1,ay[a,vo],vo]+1);
   if not ((feld[ax[a,vo],ay[a,vo]-1]=0)or(feld[ax[a,vo],ay[a,vo]-1]=3)) then w1 :=0;
   if not ((feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3)) then w2 :=0;
   if not ((feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=2;
   if 2*w2>w1+w3 then dir[a,vo]:=3;
   if 2*w3>w2+w1 then dir[a,vo]:=4;
   if w1+w2+w3=0then dir[a,vo]:=7;
   end;
4: begin
   w1:=random *(ger[ax[a,vo]-1,ay[a,vo]-1,vo]+1);
   w2:=random *(ger[ax[a,vo]-1,ay[a,vo],vo]+1);
   w3:=random *(ger[ax[a,vo]-1,ay[a,vo]+1,vo]+1);
   if not ((feld[ax[a,vo]-1,ay[a,vo]-1]=0)or(feld[ax[a,vo]-1,ay[a,vo]-1]=3)) then w1 :=0;
   if not ((feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3)) then w2 :=0;
   if not ((feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=3;
   if 2*w2>w1+w3 then dir[a,vo]:=4;
   if 2*w3>w2+w1 then dir[a,vo]:=5;
   if w1+w2+w3=0then dir[a,vo]:=0;
   end;
5: begin
   w1:=random *(ger[ax[a,vo]-1,ay[a,vo],vo]+1);
   w2:=random *(ger[ax[a,vo]-1,ay[a,vo]+1,vo]+1);
   w3:=random *(ger[ax[a,vo],ay[a,vo]+1,vo]+1);
   if not ((feld[ax[a,vo]-1,ay[a,vo]]=0)or(feld[ax[a,vo]-1,ay[a,vo]]=3)) then w1 :=0;
   if not ((feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3)) then w2 :=0;
   if not ((feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3))then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=4;
   if 2*w2>w1+w3 then dir[a,vo]:=5;
   if 2*w3>w2+w1 then dir[a,vo]:=6;
   if w1+w2+w3=0then dir[a,vo]:=1;
   end;
6: begin
   w1:=random *(ger[ax[a,vo]-1,ay[a,vo]+1,vo]+1);
   w2:=random *(ger[ax[a,vo],ay[a,vo]+1,vo]+1);
   w3:=random *(ger[ax[a,vo]+1,ay[a,vo]+1,vo]+1);
   if not ((feld[ax[a,vo]-1,ay[a,vo]+1]=0)or(feld[ax[a,vo]-1,ay[a,vo]+1]=3)) then w1 :=0;
   if not ((feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3)) then w2 :=0;
   if not ((feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=5;
   if 2*w2>w1+w3 then dir[a,vo]:=6;
   if 2*w3>w2+w1 then dir[a,vo]:=7;
   if w1+w2+w3=0then dir[a,vo]:=2;
   end;
7: begin
   w1:=random *(ger[ax[a,vo],ay[a,vo]+1,vo]+1);
   w2:=random *(ger[ax[a,vo]+1,ay[a,vo]+1,vo]+1);
   w3:=random *(ger[ax[a,vo]+1,ay[a,vo],vo]+1);
   if not ((feld[ax[a,vo],ay[a,vo]+1]=0)or(feld[ax[a,vo],ay[a,vo]+1]=3)) then w1 :=0;
   if not ((feld[ax[a,vo]+1,ay[a,vo]+1]=0)or(feld[ax[a,vo]+1,ay[a,vo]+1]=3)) then w2 :=0;
   if not ((feld[ax[a,vo]+1,ay[a,vo]]=0)or(feld[ax[a,vo]+1,ay[a,vo]]=3)) then w3 :=0;

   if 2*w1>w2+w3 then dir[a,vo]:=6;
   if 2*w2>w1+w3 then dir[a,vo]:=7;
   if 2*w3>w2+w1 then dir[a,vo]:=0;
   if w1+w2+w3=0then dir[a,vo]:=3;
   end;

 end;

 if tra[a,vo]=false then if farbl=3=false then begin
 if feld[ax[a,vo]-1,ay[a,vo]-1]=3 then dir[a,vo]:=3;
 if feld[ax[a,vo]-1,ay[a,vo]]=3 then dir[a,vo]:=4;
 if feld[ax[a,vo]-1,ay[a,vo]+1]=3 then dir[a,vo]:=5;
 if feld[ax[a,vo],ay[a,vo]-1]=3 then dir[a,vo]:=2;
 if feld[ax[a,vo],ay[a,vo]+1]=3 then dir[a,vo]:=6;
 if feld[ax[a,vo]+1,ay[a,vo]-1]=3 then dir[a,vo]:=1;
 if feld[ax[a,vo]+1,ay[a,vo]]=3 then dir[a,vo]:=0;
 if feld[ax[a,vo]+1,ay[a,vo]+1]=3 then dir[a,vo]:=7;
 end;
 if tra[a,vo]=false then begin
 if ((feld[ax[a,vo]-1,ay[a,vo]-1]>4) and (feld[ax[a,vo]-1,ay[a,vo]-1] <> vo+4)) or ((feld[ax[a,vo]-1,ay[a,vo]]>4) and (feld[ax[a,vo]-1,ay[a,vo]]<>vo+4)) or ((feld[ax[a,vo]-1,ay[a,vo]+1]>4) and (feld[ax[a,vo]-1,ay[a,vo]+1]<>4+vo)) or ((feld[ax[a,vo],ay[a,vo]-1]>4) and (feld[ax[a,vo],ay[a,vo]-1]<>vo+4)) or ((feld[ax[a,vo],ay[a,vo]+1]>4) and (feld[ax[a,vo],ay[a,vo]+1]<>vo+4)) or ((feld[ax[a,vo]+1,ay[a,vo]-1]>4) and (feld[ax[a,vo]+1,ay[a,vo]-1]<>vo+4)) or ((feld[ax[a,vo]+1,ay[a,vo]]>4) and (feld[ax[a,vo]+1,ay[a,vo]]<>vo+4)) or ((feld[ax[a,vo]+1,ay[a,vo]+1]>4) and (feld[ax[a,vo]+1,ay[a,vo]+1]<>vo+4)) then
 begin tra[a,vo]:=true;trag[a,vo]:=0; if anz[vo]>anz[feld[ax[a,vo]-1,ay[a,vo]-1]-4] then begin
 food[feld[ax[a,vo]-1,ay[a,vo]-1]-4]:=food[feld[ax[a,vo]-1,ay[a,vo]-1]-4]-round(random(anz[vo]*8));
 food[vo]:=food[vo]-round(random(anz[feld[ax[a,vo]-1,ay[a,vo]-1]-4]*5));
 end;
 end;
end;

if ax[a,vo]>196 then if ay[a,vo]>3 then if ay[a,vo]<197 then dir[a,vo]:=4;
if ax[a,vo]<4  then if ay[a,vo]>3 then if ay[a,vo]<197 then dir[a,vo]:=0;
if ay[a,vo]>196 then dir[a,vo]:=2;
if ay[a,vo]<4 then dir[a,vo]:=6;
bit.canvas.brush.color:=clsilver;
bit.canvas.pen.color:=clsilver;
bit.canvas.Rectangle(xl*7-3,yl*7-3,xl*7+4,yl*7+4);
if xl=bau[1,vo] then if yl=bau[2,vo] then begin
rect3:=rect(14,0,20,6);
rect4:=rect( bau[1,vo]*7-3,bau[2,vo]*7-3,bau[1,vo]*7+3,bau[2,vo]*7+3);
bit.canvas.copyrect(rect4,ifutter.canvas,rect3);
end;
case dir[a,vo] of
0: begin ax[a,vo]:=ax[a,vo]+1;  end;
1: begin ax[a,vo]:=ax[a,vo]+1; ay[a,vo]:=ay[a,vo]-1;  end;
2: begin ay[a,vo]:=ay[a,vo]-1;end;
3: begin ax[a,vo]:=ax[a,vo]-1; ay[a,vo]:=ay[a,vo]-1; end;
4: begin ax[a,vo]:=ax[a,vo]-1;  end;
5: begin ax[a,vo]:=ax[a,vo]-1; ay[a,vo]:=ay[a,vo]+1;  end;
6: begin ay[a,vo]:=ay[a,vo]+1; end;
7: begin ax[a,vo]:=ax[a,vo]+1; ay[a,vo]:=ay[a,vo]+1; end;end;
if (feld[ax[a,vo],ay[a,vo]]>0) and not (feld[ax[a,vo],ay[a,vo]]=3) then begin ax[a,vo]:=xl; ay[a,vo]:=yl;feld[ax[a,vo],ay[a,vo]]:=1; end;

farb[a,vo]:=feld[ax[a,vo],ay[a,vo]];
feld[ax[a,vo],ay[a,vo]]:=vo+4;

if tra[a,vo] then if feld[ax[a,vo],ay[a,vo]]=0 then
 ger[ax[a,vo],ay[a,vo],vo]:=ger[ax[a,vo],ay[a,vo],vo]+ ((200-ger[ax[a,vo],ay[a,vo],vo]) / 10);;


if ax[a,vo]*1000 + ay[a,vo]=bau[1,vo]*1000+bau[2,vo]=false then
case dir[a,vo] of
   0: if tra[a,vo] then rect1:=rect(vo*21-7,28,vo*21,35)  else rect1:=rect(vo*21-7,7,vo*21,14);
   1: if tra[a,vo] then rect1:=rect(vo*21-7,21,vo*21,27)  else rect1:=rect(vo*21-7,0,vo*21,7);
   2: if tra[a,vo] then rect1:=rect(vo*21-14,21,vo*21-7,28) else rect1:=rect(vo*21-14,0,vo*21-7,7);
   3: if tra[a,vo] then rect1:=rect(vo*21-21,21,vo*21-14,28)else rect1:=rect(vo*21-21,0,vo*21-14,7);
   4: if tra[a,vo] then rect1:=rect(vo*21-21,28,vo*21-14,35)else rect1:=rect(vo*21-21,7,vo*21-14,14);
   5: if tra[a,vo] then rect1:=rect(vo*21-21,35,vo*21-14,42)else rect1:=rect(vo*21-21,14,vo*21-14,21);
   6: if tra[a,vo] then rect1:=rect(vo*21-14,35,vo*21-7,42) else rect1:=rect(vo*21-14,14,vo*21-7,21);
   7: if tra[a,vo] then rect1:=rect(vo*21-7,35,vo*21,42)  else rect1:=rect(vo*21-7,14,vo*21,21);
   8: if tra[a,vo] then rect1:=rect(vo*21-14,28,vo*21-7,35) else rect1:=rect(vo*21-14,7,vo*21-7,14);
end;
rect2:=rect( ax[a,vo]*7-3,ay[a,vo]*7-3,ax[a,vo]*7+4,ay[a,vo]*7+4);
bit.canvas.copyrect(rect2,ia.canvas,rect1);

if liv[a,vo]=1000 then begin anz[vo]:=anz[vo]-1; food[vo]:=food[vo]+1000; aliv[a,vo]:=false; end;

end;



end;
 if anz[vo]<1000 then if food[vo] > 10000 then begin
 food[vo]:=food[vo]-1000;
 anz[vo]:=anz[vo]+1;
 for test2:=1 to 1000 do if aliv[test2,vo]=false then begin aliv[test2,vo]:=true; exit; end;
 end;
end;//volksschleife



//Neues Futter
if round(realtime/50)*50=realtime then begin
x:=random(190)+5;
y:=random(190)+5;
futter(x,y);
end;
 for fu:=1 to 13 do begin
x:=random(190)+5;
y:=random(190)+5;
if feld[x,y+1]=3 then futter(x,y);
if feld[x,y-1]=3 then futter(x,y);
if feld[x+1,y]=3 then futter(x,y);
if feld[x-1,y]=3 then futter(x,y);
if feld[x+1,y+1]=3 then futter(x,y);
if feld[x-1,y-1]=3 then futter(x,y);
if feld[x+1,y-1]=3 then futter(x,y);
if feld[x-1,y+1]=3 then futter(x,y);
end;
rect1:=rect(0,0,1399,1399);
rect2:=rect(0-HSB.position,0-VSB.position,1399-HSB.position,1399-VSB.position);
form1.canvas.copyrect(rect2,bit.canvas,rect1);
end;

//Startup(world edit)
procedure TForm1.ibDblClick(Sender: TObject);
     var r,vo,q,xj,yj,h,v :integer;rect1,rect2:trect;
begin randomize; time3:=0;
for h:=1 to 200 do
for v:=1 to 200 do feld[h,v]:=0;
bit:=tbitmap.create;
bit.height:=1400;
bit.width:=1400;
bit.canvas.pen.color:=clsilver;
bit.canvas.brush.color:=clsilver;
bit.canvas.rectangle(0,0,1400,1400);

bit2:=tbitmap.create;
bit2.height:=300;
bit2.width:=1500;
bit2.canvas.pen.color:=clsilver;
bit2.canvas.brush.color:=clsilver;
bit2.canvas.rectangle(0,0,1500,300);

for h:=1 to 4 do
begin bau[1,h]:=random(160)+20; bau[2,h]:=random(160)+20; anz[h]:=3;end;

if timer1.enabled = false then begin
form1.width:=1400;
form1.height:=1400;
form1.position:=poscreencenter;
{form2.width:=1500;
form2.height:=300;
form2.left:=0;}

for vo:=1 to 4 do
  for q := 1 to 1000 do begin ax[q,vo]:=bau[1,vo];ay[q,vo]:=bau[2,vo];dir[q,vo]:=0;tra[q,vo]:=false;
  farb[q,vo]:=clsilver; aliv[q,vo]:=true;
  tragh[q,vo]:=0;liv[q,vo]:=1;if q > 3 then aliv[q,vo]:=false;
  end;
timer3.enabled:=true;
timer1.enabled:=true;
realtime:=0;
ges[vo]:=0;
hap[vo]:=0;
anz[vo]:=3;
food[vo]:=0;
//food
for q := 1 to 1000 do begin
yj := random(190)+5;
xj := random(190)+5;  futter(xj,yj); feld[xj,yj]:=3; end;

//wood
{for q := 1 to 200 do begin
yj := random(89)+6;
xj := random(90)+5;  holz(xj,yj); feld[xj,yj]:=2; end;}

//weed
for q := 1 to random(400)+300 do begin
yj := random(184)+11;
xj := random(190)+5;
if feld[xj,yj]=0 then if feld[xj,yj-1]=0 then
if xj=bau[1,1]=false then if yj=bau[2,1]=false then
if xj=bau[1,2]=false then if yj=bau[2,2]=false then
if xj=bau[1,3]=false then if yj=bau[2,3]=false then
if xj=bau[1,4]=false then if yj=bau[2,4]=false then
begin
feld[xj,yj]:=1;
feld[xj,yj-1]:=1;
rect1:=rect(0,7,6,20);
rect2:=rect(xj*7-3,yj*7-10,xj*7+3,yj*7+3);
bit.canvas.copyrect(rect2,ifutter.canvas,rect1);
end;
end;
end
else close;
end;

procedure TForm1.VSBKeyPress(Sender: TObject; var Key: Char);
begin
if key in['a'] then HSB.position:= HSB.position-63;
if key in['d'] then HSB.position:= HSB.position+63;
if key in['s'] then VSB.position:= VSB.position+63;
if key in['w'] then VSB.position:= VSB.position-63;
sb1.top:=0;
sb1.left:=0;
end;

procedure TForm1.HSBKeyPress(Sender: TObject; var Key: Char);
begin
if key in['a'] then HSB.position:= HSB.position-63;
if key in['d'] then HSB.position:= HSB.position+63;
if key in['s'] then VSB.position:= VSB.position+63;
if key in['w'] then VSB.position:= VSB.position-63;
sb1.top:=0;
sb1.left:=0;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var xger,yger,zger:integer;time1:tdatetime;
begin
for zger:=1 to 4 do
for xger:=1 to 199 do
for yger:= 1 to 199 do
ger[xger,yger,zger]:=(ger[xger+1,yger,zger]/ 2)
+(ger[xger+1,yger+1,zger]/16)+(ger[xger,yger+1,zger]/16)
+(ger[xger-1,yger+1,zger]/16)+(ger[xger-1,yger,zger]/16)
+(ger[xger-1,yger-1,zger]/16)+(ger[xger,yger-1,zger]/16)
+(ger[xger+1,yger-1,zger]/16)+(ger[xger+1,yger,zger]/16);
time1:=time;
sb1.panels[8].text:=timetostr(time);
end;

procedure TForm1.BitBtn1KeyPress(Sender: TObject; var Key: Char);
begin
if key in['a'] then HSB.position:= HSB.position-63;
if key in['d'] then HSB.position:= HSB.position+63;
if key in['s'] then VSB.position:= VSB.position+63;
if key in['w'] then VSB.position:= VSB.position-63;
sb1.top:=0;
sb1.left:=0;
end;

procedure TForm1.ibClick(Sender: TObject);
begin
//form2.show;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
inc(time3);
bit2.canvas.pixels[time3,300-anz[1]]:=clred;
bit2.canvas.pixels[time3,300-anz[2]]:=clgreen;
bit2.canvas.pixels[time3,300-anz[3]]:=clmaroon;
bit2.canvas.pixels[time3,300-anz[4]]:=clyellow;
//form2.canvas.draw(0,0,bit2);
end;

end.

und zwar komplett, da eigentlich wie gesagt nichts besonders relevant ist, da die variable ja nicht geändert wird

es geht um bau[2,1]

[chaosben]

Ja, das ist möglich, wenn es einen Pointer auf die Variable gibt.
Das könnte auch ein Pointer sein, der "in die Nähe" der Variable zeigt und aus unerfindlichen Gründen auf die Variable "weitergerückt" wird.

[dino]

was ist ein pointer? habe ich einen pointer?

[SirThornberry]

schreibst du eventuell irgendwo über Arraygrenzen hinaus? Du könntest übrigens die Variablen zu Membervariablen machen und dann mit Properties arbeiten. Somit könntest du eine Set-Methode hinterlege und debuggen ob wirklich von nirgends die Variable aufgerufen wird.

[dino]

@sir thormberry: hä?

Delphi-Quellcode:

food[feld[ax[a,vo]-1,ay[a,vo]-1]-4]:=food[feld[ax[a,vo]-1,ay[a,vo]-1]-4]-round(random(anz[vo]*8));
food[vo]:=food[vo]-round(random(anz[feld[ax[a,vo]-1,ay[a,vo]-1]-4]*5));

das ist die einzige Stelle, die in Frage kommt, da der bau sich in etwa so verändert, wie sich das Futter vermindern sollte

[dino]

kann man variabken in delphi wie bei QBasic als konstanten deklarieren, sodass man sie einmal erschafft aber niemehr ändern kann?

[dino]

obwohl das nichts an meinem Grundsätzliches Problem ändert, dass Delphi sachen macht, die ich ihm nicht gesagt habe!!!

so kann ich nicht arbeiten->wozu soll das führen? :)

[chaosben]

Zitat:

Zitat von dino

dass Delphi sachen macht, die ich ihm nicht gesagt habe!!!
so kann ich nicht arbeiten->wozu soll das führen? :)

1. geht nicht -> unmöglich
2. deinen Code durchsehen, überdenken und eventuell neu und einfacher implementieren

[dino]

hier komplettes Programm: exe erzeugen und bau der roten ameisen beobachten

[Sascha L]

Der Code ist ja mal krass, da blickt ja kein Mensch durch. Haste da eigentlich noch selbst den Überblick? Die Variable kann sich auf jeden Fall nicht von alleine ändern. Bei so einem Code ist es klar, dass man nicht so leicht herausbekommt, wieso und wo der Wert der Variable geändert wird.

[dino]

ich blicke durch und weiss, dass er schlimm ist aber ich hab nach bau[ gesucht und mir jedes mal angesehen, was passiert und die einzige stelle, an der irgendwas mit bau[ geändert wird ist am Anfang per zufall

[hoika]

Hallo,

ich habe keine Lust, deinen Fehler zu finden,
hast du das Programm mit allen Warnungen und vor allem Bereichsüberprüfung
kompiliert und laufen lassen ?

Der Fehler tritt vermutlich auf infolge einer Bereichsüberschreitung.
Ändere jetzt bloss nicht die Variablen-Reihenfolge!
Immerhin ist der Fehler reproduzierbar.

Falls ja,
kannst du nur noch folgendes tun,

1. Prüfe über Watch (Ctrl+F5) deine Variable.
2. Falls das nicht klappt (wegen der Timer)
marke dir die Variable (K) in einer anderen (K_Org)
Prüfe nach jeder Berechnung, ob K=K_Org

z.B. mit Assert(K=K_Org)

Die Asserts müssen natürlich in den Compiler-Optionen eingeschaltet sein.


Heiko

[dino]

werd ich machen sobald ich wieder zuhause bin und delphi hab

[Mandi Nice]

Hallöchen

Habe den Code runtergeladen und mal gestartet.
( Aber vorher die Bereichsprüfung und Überlaufprüfung eingeschaltet )
Es dauert keine Sekunden bis der erste Fehler kommt.

Daher unter Projekt - Optionen - Compiler
die Bereichsprüfung und Überlaufprüfung eingeschalten und dann den Fehler selbst suchen.
Sollte dann aber kein Problem mehr sein der Compiler bleibt ja in der Zeile stehen wo der Fehler ist.


hmg
Mandi

[Sunlight7]

Hallo Dino,

brutaler Programmierstiel :mrgreen: gefällt mir, aber nicht mein Fall :zwinker:

Delphi-Quellcode:

procedure TForm1.ibDblClick(...);
   var vo:Integer;
begin
   For vo:=1 to 4 do begin
      ...
   end;

   ges[vo]:=0; <- Fehler !!!
end;

procedure TForm1.ibDblClick(...);
   var vo, vos:Integer;
begin
   For vo:=1 to 4 do begin
      ...
      vos:=vo;
   end;

   ges[vos]:=0; <- Kein Fehler
end;

PS: Real's sind Out, nimm dafür Single oder Extended

Edit: Anderswo machst Du den gleichen Fehler mit dem Bau.

[Sunlight7]

Ist Dir eigentlich der Crash nicht aufgefallen, wenn Du den A, B und Cmeisen eine Zeit lang zusiehst?

Edit: Hoppla, falscher Knopf Antworten statt Edit...

[dino]

ach stimmt wir haben schon vorher das Problem gehabt, dass Völker plötzlich unmengen an Futter haben

[dino]

ich kann aber nicht finden, wo ich den Fahler mit den Bau mache, aber ich geb noch nicht auf, meld mich dann, wenn ich wieder ein Problem habe

[Sunlight7]

Überprüfe mal, das alle Variablen die Du in einer For schleife verwendest nur inherhalb dieser verwendet werden.

PS: Und schalte die Hinweise & Warnungen ein!!! :zwinker:

[dino]

1. wo ist hinweis und Warnung?
2. ist alles innerhalb der volksschleife habs gescheckt

[jakobwenzel]

Welche Ver. haste denn?
Hinweise & Warnungen gibts IMHo erst ab D7.

[dino]

Delhi 5 Professionel

[dino]

also ich hab kein hinweis & Warnung also wäre jemand so freundlich es für mich zu übernehmen? ich danke schonmal im Vorraus

[Sunlight7]

Zitat:

Zitat von jakobwenzel

Hinweise & Warnungen gibts IMHo erst ab D7.

Die gabs schon bei Delphi 1.0 :zwinker:

Projekt -> Optionen -> Im Reiter Compiler.

Edit: Wenn Du das wider erwarten nicht findest:

Delphi-Quellcode:

{$HINTS ON}
{$WARNINGS ON}

ganz oben in der Unit schreiben

[dino]

sind beide bereits an

[Sunlight7]

Dann die Exe neu erzeugen...

Und wievele Meldungen siehste?

[Sunlight7]

Das hab ich erst jetzt gelesen

Zitat:

Zitat von dino

2. ist alles innerhalb der volksschleife habs gescheckt

Nö ist es nicht, ich habs auch gecheckt :zwinker:

[dino]

Delphi-Quellcode:

for vo:=1 to 4 do
begin
  for q := 1 to 1000 do begin ax[q,vo]:=bau[1,vo];ay[q,vo]:=bau[2,vo];dir[q,vo]:=0;tra[q,vo]:=false;
  farb[q,vo]:=clsilver; aliv[q,vo]:=true;
  tragh[q,vo]:=0;liv[q,vo]:=1;if q > 3 then aliv[q,vo]:=false;
  end;
ges[vo]:=0;
hap[vo]:=0;
anz[vo]:=3;
food[vo]:=0;
end;
timer3.enabled:=true;
timer1.enabled:=true;
realtime:=0;

das hab ich bereits geändert, bau ist aber nicht draussen
kann man das Programm an der Stelle anhalten, an der meine Variable seinen wert ändert?

denn nun ist auch das Braune Volk betroffen

Eine Ameisenseuche geht um

[Sunlight7]

Da will ich doch Deine Ameisen vom aussterben bewahren.

Mit F4 bis zur Quelltextzeile ausführen.
Mit F5 kannst Du einen Haltepubkt setzten.

Internen Debugger einschalten, falls noch nicht ist!

[dino]

ich weiss ja nicht, wo er halten soll!!!
er kommt auch erstmal etliche male an dem Punkt vorbei, bevor was geschieht, darum soll er genau dann anhalten, wenn sich der Wert meiner Variable ändert

und was ist der interne debugger?

[Sunlight7]

Tools Optionen -> Interner Debugger muß aktiv sein, sonst läuft das mit den Haltepunkten nicht.
Start neuer Haltepunkt -> Da kannst Du eine Bedingung eingeben.

Zitat:

Zitat von dino

ich weiss ja nicht, wo er halten soll!!!

Dort wo der Bau geändert wird.

Edit: Das Problem mit der Variable "farbl" behoben?
Und die "vo" Variable war falsch gesetzt, auch behoben?

[dino]

wo wird die vo variable falsch gesetzt?

hab alle warnngen und hinweise ausgemerzt

[Folgebeitrag]
und ich kann kein "Tools Optionen" finden

wäre ett, wenn du das was ich tun soll genau benennen könntest danke
[/Folgebeitrag]

[Folgebeitrag 2]
jedenfalls soll er nicht nur halten, sobald... sondern auch dort wo es passiert
er will aber wissen, wo er hallten soll
[/Folgebeitrag 2]

[edit=Christian Seehase]Auch Dir sollte der Edit-Button für Beiträge langsam bekannt sein... ;-) (Folgebeitrag gelöscht) Mfg, Christian Seehase[/edit]
[edit=Christian Seehase]2. Folgebeitrag gelöscht. Das hier ist kein Chat Mfg, Christian Seehase[/edit]

[Sunlight7]

Die "vo" war lokal in der Unit deklariert, wenn Du alle Meldungen behoben hast, wird diese jetzt im Kopf der procedure stehen...

Das heißt "Tools" im Menü, dort klickste dann auf "Optionen".
Dann suchste im Reiter "Vorgaben" nach "Debugger" und schaust, ob "Interner Debugger" gecheckt ist.

Mag sein, das es in Deiner Versionen vom Menü her etwas anders heißt, ich hab die D5 Standard.

Gerade gesehen:

Zitat:

Zitat von dino

jedenfalls soll er nicht nur halten, sobald... sondern auch dort wo es passiert
er will aber wissen, wo er hallten soll

Sorry, nix verstehen
1. Er bleibt überall dort stehen, wo Du einen Haltepunkt setzt,
2. außer Du gibst eine Bedingung an, dann bleibt er nur stehen, wenn die erfüllt ist.
Ergo mußt Du überall, wo eine Änderung sein kann nen Haltepunkt setzen.

[dino]

jo vo ist lokal deklariert

den internen debugger kann ich aber nicht finden

[Sunlight7]

Zitat:

Zitat von dino

jo vo ist lokal deklariert

Das ist ja mal sehr aussagekräftig :mrgreen:
Der Rest funktioniert?

Zitat:

Zitat von dino

den internen debugger kann ich aber nicht finden

Dazu empfiehlt sich die OH.
Wenn er bei Haltepunkten anhält ist der Debugger eingeschalten.

[dino]

ich war noch nicht fertig siehe oben

[dino]

Delphi-Quellcode:

dec(food[feld[ax[a,vo]-1,ay[a,vo]-1]-4],round(random(anz[vo]*8)));

wars schuld habs per showmessage gefunden

[Sunlight7]

Nanu? Warum ist meine letzte Antwort nicht da???
Hallo Antwort!!! Wo bist Du???

Also halt nochmal schreiben :?

Hast Du das mit dem Bau auch beheben können?

Tip: Mit STRG+F5 Kannst Du die Werte von Variablen anzeigen, wenn der Debugger anhält.

:idea: Bring das Programm als Screensaver raus.