Alles in der selben
Unit
Delphi-Quellcode:
procedure TForm1.ShowData;
var x,y:integer;
begin
for x:=0 to (feldmase-1) do begin
for y:=0 to (feldmase-1) do begin
ColCor:=x;
RowCor:=y;
Tabelle.repaint;
end;
end;
end;
und die wird bei einem Timer aufgerufen
Tabelle ist das StringGrid feldmase ist das max