Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Как передать ф-ию в качестве параметра дин. массив?   Найти похожие ветки 

← →
alless ©   (2005-10-26 12:03) [0]

Здраствуйте,
Пробовал так:

procedure TForm1.Button1Click(Sender: TObject);
    function A(Arr:array of String) :String;                
              begin
                   
               end;
var Arr1:array of String;
begin
SetLength(Arr1,2);
Arr1[0]:="a";
Arr1[1]:="b";
A(Arr1);
end;


подскажите как сделать как передать в Arr (из ф-ий A) все что есть в Arr1?
Спасибо

---

← →
ShiFT   (2005-10-26 12:12) [1]

type
 AofS = Array of String;

procedure TForm1.Button1Click(Sender: TObject);
 function A(Arr:AofS) :String;                
 begin
 end;
var
 Arr1:AofS;
begin
 SetLength(Arr1,2);
 Arr1[0]:="a";
 Arr1[1]:="b";
 A(Arr1);
end;

---

← →
Lamer@fools.ua ©   (2005-10-26 12:12) [2]

>>alless ©   (26.10.05 12:03)

type
  TStringDynArray = array of String;

function A(Arr: TStringDynArray): String;

---

← →
alless ©   (2005-10-26 12:51) [3]

Спасибо сем!

---

Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.056 c