Zitat von
Cyberbob:
Ich hab den Fehler wegbekommen.
Wenn bei Timer1.OnTimer in der letzten Zeile das High(Block) durch High(level) ersetzt wird, funktioniert es.
bringt aber irgendwie nichts, dann werden halt nur 14 blöcke angezeigt
anstatt high(level) anzugeben kann man eine zahl bis 19 einsetzen und es funktioniert.
beim 20. Block ist dann aber irgendwas faul
Zitat von
mkinzler:
Müßte es in Zeile 86 ff nicht block[i,k] heißen?
ok, das hab ich geändert, ein fehler ist gefunden.
Delphi-Quellcode:
setlength(block,high(level)*length(level[1]));
for k:=0 to high(level) do
for i:=0 to length(level[k]) do begin
block[i*k]:=tblock.Create;
block[i*k].bx:=i*20;
block[i*k].by:=k*20;
if level[k][i]='x' then block[i*k].da:=true else block[i*k].da:=false;
block[i*k].show;
end;
richtig funktionieren tuts allerdings immer noch nicht.
Wie bitte kommt bx an den wert 65100? muss ich da am anfang irgendetwas initialisieren?