[Fazotron]

да не, там числа передаются
с границами чет не так, только не пойму что

вот так сделал например

Код:

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;
    d: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-1) do
    begin
    a[i]:= strtofloat(Memo1.Lines[i-1]);
    end;


  For i:= 1 to l1 do
    begin
    Memo3.Lines.Add(floattostr(a[i]));
    end;


end;

ввел числа 1 2 1 но массив странный получился, последнее число непонятное

Код:

1
2
2,05567408571617E-307