Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

Динамические массивы   Найти похожие ветки 

 
terra0 ©   (2005-06-08 20:44) [0]

Возможно ли в паскале, в теле программы присвоить динамическому массиву (целочисленного типа) сразу набор значений, что-то типа

var
a:array of Integer;

begin
SetLength(a,5);
a:=(1,2,3,4,5);
end;

или что-то подобное, может я не знаю синтаксиса, или это невозможно в принципе?
 С уважением, terra0


 
Alx2 ©   (2005-06-08 20:56) [1]

Не в курсе, есть ли стандартные функции, но собственное можно написать примерно так:

type TIntegerArray = array of integer;
 function SetArray(Data: array of integer): TIntegerArray;
 var k: integer;
 begin
   SetLength(Result, Length(Data));
   for k := Low(Data) to High(Data) do
     Result[k - Low(Data)] := Data[k]; // K-Low(Data) - параноическое "на всякий случай" :)
 end;
var A: TIntegerArray;
begin
 A := SetArray([1, 2, 3, 4, 5]);
end;


 
terra0 ©   (2005-06-08 20:59) [2]

Большое спасибо, хотя конечно по сравнению с Си это та еще проблемка :)



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

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

Наверх




Память: 0.47 MB
Время: 0.053 c
1-1117628075
webpauk
2005-06-01 16:14
2005.06.29
Расширение возможностей TmenuItem


11-1101068644
Shamansky
2004-11-21 23:24
2005.06.29
Как в Delphi открыть dwg или dxf файлы


1-1118310306
ris
2005-06-09 13:45
2005.06.29
Можно ли в RXDBGrid убрать


1-1118072378
Nimbus
2005-06-06 19:39
2005.06.29
Свойство "parent" для формы, размещённой в DLL?


14-1117136099
Константинов
2005-05-26 23:34
2005.06.29
Что подарить ребенку на день рождения?