Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
14-1129167538
pazitron_brain
2005-10-13 05:38
2005.11.13
Секрет увеличения производительности Windows.


14-1129904509
Tesla
2005-10-21 18:21
2005.11.13
Посоветуйте компонент


2-1130085694
_xroot
2005-10-23 20:41
2005.11.13
Drag&Drop из проводника в программу


2-1129620796
T10000
2005-10-18 11:33
2005.11.13
Работа с датой ?


1-1129647736
lehich
2005-10-18 19:02
2005.11.13
Find.Execute в WordDocument