Cleare et array !

prøv med:

FillChar(k, SizeOf(k), 0);

i stedet for det andet ? for hvis jeg gør det så siger den:

'(' expected but ',' found

og den henviser til det første komma !

Eller måske:

ZeroMemory(@k, SizeOf(k));

Hmm.. prøv det her:

procedure TForm1.FormCreate(Sender: TObject);
Type
  k = array[0..60,0..60] of integer;
var
  kk: k;
  m,n: Integer;
begin
  a:= 300;
  b:= 300;
  timer1.Enabled:= False;
  timer2.enabled:= False;
  timer3.enabled:= False;
  timer4.enabled:= False;

  ZeroMemory(@k, SizeOf(k));
end;

FillChar(kk,SizeOf(k),0) er helt fin...

hejhej >> du angav typen som 1st parameter ;-)

Ups... havde ik set det var en type :-)

nu godtager den da koden, men nu brokker den sig over:

function timershift(t1,t2,t3,t4: boolean) : boolean;
begin

  timer1.enabled:= t1;
  timer2.enabled:= t2;
  timer3.enabled:= t3;
  timer4.enabled:= t4;

end;

Den siger: Undeclared Identifier: 'Timer1' osv.

hvorfor dog det ?

Sikker på du ikke er kommet til at slette din timer?? :)

den brokker dig jo ikke når de er under en procedure... men i stedet for at have det stående så mange steder, så ville jeg lave en funktion, da der er mere overskueligt og nemmere at rette i... Men hvorfor brokker den sig ?

timerne er der endnu :p

Er funktionen i en anden unit, for hvis den gør skal du tilføje uniten med timeren til uses.

jeg bruger funktionen i dene procedure... men i min kode står funktionen før proceduren...


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin


if (key = VK_LEFT) then
begin

  timershift(True,False,False,False);

end;
if (key = VK_RIGHT) then
begin

  timershift(False,True,False,False);
  //timer1.Enabled:= False;
  //timer2.enabled:= True;
  //timer3.enabled:= False;
  //timer4.enabled:= False;
end;
if (key = VK_DOWN) then
begin

  timershift(False,False,True,False);
  //timer1.Enabled:= False;
  //timer2.enabled:= False;
  //timer3.enabled:= True;
  //timer4.enabled:= False;
end;
if (key = VK_UP) then
begin

  timershift(False,False,False,True);
  //timer1.Enabled:= False;
  //timer2.enabled:= False;
  //timer3.enabled:= False;
  //timer4.enabled:= True;
end;

end;

jeg har kun 1 unit (Unit1) ...

Prøv med:

function timershift(t1,t2,t3,t4: boolean) : boolean;
begin

  <Formens navn>timer1.enabled:= t1;
  <Formens navn>timer2.enabled:= t2;
  <Formens navn>timer3.enabled:= t3;
  <Formens navn>timer4.enabled:= t4;

end;

Ups lige et punktum mellem <Formens navn> og timeren :P

Yes, Takker ! nu virker det.. MEN ! :

kk[3,28] til kk[31,44] og
kk[33,31]til kk[33,60] og
kk[35,31] til kk[42,31] og
kk[49,59] til kk[50,60]
bliver sat til 0, men resten blive sat til alt lige fra -1 til 2.000.000.000

det fatter jeg ikke !

Hmm... lyder lidt underligt. Har du prøvet med ZeroMemory(@kk, SizeOf(kk));

procedure TForm1.Timer3Timer(Sender: TObject);
type
k = array[0..60,0..60] of integer;
var
  kk: k;
begin
if (b > 580) then
begin

  timershift(False,False,False,False);
  showmessage('Du er DØD!'+inttostr(a)+','+inttostr(b));
  canvas.brush.Color:= clwhite;
  canvas.Rectangle(0,0,600,600);
  a:= 300;
  b:= 300;

  ZeroMemory(@kk, SizeOf(kk));

end;

b:= b+10;
x:=a div(10);
y:=b div(10);
if (kk[x,y] = 1) then

  timershift(False,False,False,False);
  showmessage('Du er DØD1!'+inttostr(a)+','+inttostr(b));
  canvas.brush.Color:= clwhite;
  canvas.Rectangle(0,0,600,600);
  a:= 300;
  b:= 300;

  ZeroMemory(@kk, SizeOf(kk));

end;

kk[x,y]:=1;
canvas.Brush.color:= clblue;
canvas.pen.color:= clblack;
canvas.rectangle(a,b,a+10,b+10);
end;


Så siger den: Declaration expected but identifier 'kk' found
Det er 5 linie nedefra den brokker sig... hvorfor det ? den brokker sig ikke i de andre 3 timere !

er selvfølgelig kommet til at slette 'begin' .... hehe...

http://www.gummicelle.dk/project1.exe

Den sætter nogle underlige tal ind i arrayet stadig ! Du kan se det i Filer i programmet... Tryk på piltasterne og se igen på array værdierne... Så har de ændret sig...

Ser lidt underlidt ud...

Det her virker ved mig:

procedure TForm1.Button1Click(Sender: TObject);
type
k = array[0..60,0..60] of integer;
var
kk: k;
I, J: Integer;
begin
ZeroMemory(@kk, SizeOf(kk));
for I := 0 to High(kk) do
for J := 0 to High(kk[I]) do
begin
  ListBox1.Items.Add(IntToStr(I)+':'+IntToStr(J)+ ' ' + IntToStr(kk[I,J]))
end;
end;

gør det også hos mig... tror det ligger i at array'et bliver defineret under hver procedure og derved går noget galt ! Det virker sådan... Kan man ikke definere et array globalt for hele programmet ?

tænkte på at sætte der her ind øverst i hver timer:

  if (a = 300 AND b = 300) then
    begin
      ZeroMemory(@kk, SizeOf(kk));
    end;

Men så siger den: Incompatible Types
a og b er defineret som Integer !

definer array'et under Private i din form
...
if (a = 300) AND (b= 300) then ..

hvordan:

  private
    { Private declarations }
    Type
      k = array[0..60,0..60] of integer;
    var
      kk: k;

?

okay, kan godt se det andet nu.. dummefejl...

Hvis det skal defineres i array'et kan det se sådan ud:

type
  k = array[0..60,0..60] of integer;
  TForm1 = class(TForm)
  ...
  private
    { Private declarations }
    kk: k;
  ...

jeg takker mange gange for hjælpen :D