[Fazotron]

Сообщение от AleD

да, только в pchar (String) текст идёт от 1, но 0 всё же используется

у меня массивы действительных чисел

сделал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,f,k: integer;
    e:real;
    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:= Low(a) to High(a) do
    begin
    a[i]:= strtofloat(Memo1.Lines[i-1]);
    end;

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

  For i:= Low(a) to High(a) do
    begin
      For j:= Low(b) to High(b) do
        begin
          c[i,j]:=a[i]*b[j];
        end;
    end;

  For i:= Low(a) to High(a) do
    begin
      For j:= Low(b) to Low(b) do
        begin
        stringGrid1.Cells[i,j]:=floatToStr(c[i,j]);
        end;
    end;
end;

но вылетает на end; с ошибкой "Project1.exe raised exception class EConvertError with message "" is not a valid floating point value'. Process stopped. Use Run or Step to continue."