Главная страница
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.057 c
14-1130090282
Хацкеренок
2005-10-23 21:58
2005.11.13
Совершенное число


14-1129720995
Digitman
2005-10-19 15:23
2005.11.13
doc/xls/rtf <-> xml/xsl


4-1124876130
Scordion
2005-08-24 13:35
2005.11.13
Как сделать форму поверх всех приложений?


5-1109098399
olookin
2005-02-22 21:53
2005.11.13
Свойства self-made компонента - ничего не понимаю!


6-1122452065
SergeyDon
2005-07-27 12:14
2005.11.13
процедура OnAccept в компоненте TTcpServer