Заполнить двумерный массив числами из stringgrid и вывести его в listbox

@Ilya_98 · Регистрация: 30.07.2018

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста найти причину ошибки вот в этом коде

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,x,z:integer;
n:byte;
A,B: array [1..30,1..30]of integer;
begin
For i:=1 to StringGrid1.ColCount do
  For j:=1 to StringGrid1.RowCount do
begin
A[x,z]:=strtoint(Stringgrid1.Cells[i+1,j+1]);
begin
for x := 1 to n do
  for z := 1 to n do
begin
ListBox1.Items.Add(IntToStr(A[x,z]));
end;
end;
end;
end;

Всё компилится, но при нажатии на кнопку пишет ошибку Acess violation... и т.д.
На массив B не обращайте внимания.

@qwertehok · 21.12.2018, 15:25

Delphi

var
i,j,x,z:integer;
n:byte;
A,B: array [1..30,1..30]of integer;
begin
For i:=1 to StringGrid1.ColCount do
For j:=1 to StringGrid1.RowCount do
    begin
      A[x,z]:=strtoint(Stringgrid1.Cells[i+1,j+1]);
      begin
        for x := 1 to n do
        for z := 1 to n do
        begin
          ListBox1.Items.Add(IntToStr(A[x,z]));
        end;
      end;
    end;
end;

а вот тут

Delphi

A[x,z]:=

чему равно x и y?

@Ilya_98 · 21.12.2018, 17:05 **[ТС]**

X и Z присвоил значения всех столбцов и строк stringgrid

Добавлено через 1 час 34 минуты
А, все допер...

@Ilya_98 0 / 0 / 0 Регистрация: 30.07.2018 Сообщений: 33
	21.12.2018, 17:05 [ТС]	3
	X и Z присвоил значения всех столбцов и строк stringgrid Добавлено через 1 час 34 минуты А, все допер... 0

Опции темы