Acces Violation

[tetriss]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..10,0..10] of integer;
b:array[0..10,0..10] of integer;
f:array[0..10] of integer;
p,l,i,j,n:integer;
begin
for i:=0 to 4 do
   for j:=0 to 5 do
      a[i,j]:=random(10);
      for i:=0 to 4 do
for j:=0 to 5 do
StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
      for p :=0 to 10 do
  begin
    if p<2 then f[p]:=1
    else f[p]:=f[p-1]+f[p-2];
    end;
    for p:=0 to 10 do
StringGrid3.Cells[p,1]:=IntToStr(f[p]);
      p:=0;
      i:=0;
      l:=0;
 while i<5 do
    begin
    j:=0;
    while j<=5 do
    begin
    if l<=f[p] then
    begin
    b[p,l]:=a[i,j];
    inc(j);
    inc(l);
    end
    else
    l:=0;
    inc(p);
    end;
    inc(i);
    end;
    n:=p;
    p:=0;
    for p:=0 to n do begin
    for l:=0 to f[p] do
    StringGrid1.Cells[l,p]:=IntToStr(b[p,l]);
    end;
 end;
 end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Utkin]

Acces Violation

Мы благодарим Вас за оперативный сигнал, пожалуйста оставайтесь на линии, каждый пост важен для нас...
А если серьезно - ну и? В чем вопрос-то? Для чего создана тема?
А если еще серьезней - где-то косяк с компонентами. Мы же не знаем какие там f[p] получаются. Вполне возможно, что ты обращаешься к несуществующей ячейке. Бей бреакпоинты, чтобы отследить подозрительные участки кода.

[evg_m]

при работе с массивами полезно

[tetriss]

Нужно было создать произвольный массив и переписать его так, чтобы в каждой строке количество элементов увеличивалось по закону Фибоначии (f[p] это я так ряд Фибоначчи создавала...)
Выдает ошибку на эту строку
StringGrid1.Cells[l,p]:=IntToStr(b[p,l]);

[Mad_Cat]

а в гриде есть 10 на 55 ячеек?
точнее даже 11 на 89
ибо при p=10 f[p]=89
и соответственно идет обращение к Cells[89,10]

[tetriss]

Большое спасибо! Ошибка доступа исчезла) Правда еще была куча ошибок Check Range...