Forum: Object-Pascal / Delphi-Language
Delphi
by felxi,
11. Apr 2007
ahh, danke, war wohl schon ein wenig zu spät :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by felxi,
11. Apr 2007
Hier nochmal die ganze Prozedur:
procedure p_Nachbarn(x,y:integer);
var i,j,k:integer;
begin
k := 0;
{ das funktioniert
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);
Forum: Object-Pascal / Delphi-Language
Delphi
by felxi,
11. Apr 2007
Hallo,
ich programmiere zur Zeit ein "game of life", welches auch fehlerfrei läuft. Mit einer Prozedur ermittle ich alle benachbarten Felder eins Feldes Feld, wobei 'k' die Anzahl der bisherigen Nachbarn ist:
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);
If Feld = 1 then inc(k,1);