Показать сообщение отдельно
  #1  
Старый 12.07.2010, 23:07
Fazotron Fazotron вне форума
Прохожий
 
Регистрация: 26.10.2009
Сообщения: 38
Репутация: 10
По умолчанию Двумерный массив

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
l1,l2:integer;
a:array of real;
b:array of real;
c:array of array of real;

begin
l1:=Memo1.Lines.Count;
l2:=Memo2.Lines.Count;
setlength(a,l1);
setlength(b,l2);
setlength(c,l1,l2);




For i:= 1 to l1 do
begin
a[i]:= strtofloat(Memo1.Lines[i-1]);
end;

For j:= 1 to l2 do
begin
b[j]:= strtofloat(Memo2.Lines[j-1]);
end;

For i:= 0 to (l1-1) do
begin
For j:= 0 to (l2-1) do
begin
c[i,j]:=a[i+1]*b[j+1];
end;
end;

Почему у меня вылетает ошибка Invalid pointer operation?
Ответить с цитированием