Главная страница
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.036 c
1-1130081331
TStas
2005-10-23 19:28
2005.11.13
Интерфейсные объекты


3-1128259959
alpine
2005-10-02 17:32
2005.11.13
Вопрос по SQL запросу


14-1129805568
ZeroDivide
2005-10-20 14:52
2005.11.13
Новые драйверы для ATI, рядовое событие, если бы не одно НО


3-1128066893
kostet
2005-09-30 11:54
2005.11.13
Хранимая процедура


2-1129563459
Rasher
2005-10-17 19:37
2005.11.13
Вопрос о всплывающих окнах