Массив

[WhoThenNow]

В общем вырезал ненужное, вот аналог код, который не хочет работать.. Локальных массивов вроде не обьявлял. Проблема все та же...
----------------------
type
TDynaArray=array of integer;
var
Form1: TForm1;
B:tdynaarray;

procedure Zapolnenie(A:TDynaArray);
var I:integer;
begin
i:=5;
setlength(A,i);
randomize;
for i:=0 to 4 do
begin
A[i]:=random(100);
end;
end;

procedure Vivod(A:TDynaArray);
var i:integer;
begin
ShowMessage(FloatToStr(Length(A)));
for i:=0 to 4 do
begin
ShowMessage(FloatToStr(A[i]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Zapolnenie(B);
Vivod(B);
end;
-----------------------

[mutabor]

поменяй FloatToStr на IntToStr

P.S. а теперь подумай сам какие могут быть значения, если длина нулевая? на первой же итерации цикла была бы ошибка доступа к несуществующему элементу

[WhoThenNow]

Вот это я не могу понять, почему длина нулевая?
Я ведь присвоил длину через setlength массиву "B" в первой процедуре...
Я же присвоил глобальному массиву длину и забил значениями.

[mutabor]

хотя, я совсем забыл, еще надо объявлять так
procedure Zapolnenie(var A:TDynaArray);
процедуру вывода оставь как есть

[WhoThenNow]

Во! Спасибо..

[mutabor]

еще так можно (это так для общего развития)

function Zapolnenie: TDynaArray;
var 
I:integer;
A:TDynaArray
begin
i:=5;
setlength(A,i);
randomize;
for i:=0 to 4 do
  begin
  A[i]:=random(100);
  end;
Result:=A;
end;

B:=Zapolnenie;