Динамический массив

← →
Marat © (2005-03-17 14:40) [0]

Здравстуйте, мастера. Вопрос такой. Можно ли заполнить динамический массив данными из статического массива.
Нашел в Интернете:
procedure HolidaysOnMonthCalendarExample;
begin
OutHolidaysOnMonthCalendar(Form1.MonthCalendar1,
[StrToDate("01.10.2004"),
StrToDate("04.10.2004"),
StrToDate("12.10.2004"),
StrToDate("29.10.2004"),
StrToDate("07.11.2004"),
StrToDate("08.11.2004"),
StrToDate("16.11.2004"),
StrToDate("31.12.2004")
]);
end;
А у меня есть таблица выходных дней на SQL-сервере, из которой я получаю Query1. Потом полученные данные мне надо вставить в вышеуказанную процедуру, а как не знаю.

← →
Юрий Зотов © (2005-03-17 15:00) [1]

Это не динамический, а так называемый открытый массив. Формируется непосредственным перечислением значений.

OutHolidaysOnMonthCalendar(Form1.MonthCalendar1,
[Query1.Field1.AsDateTime, Query1.Field2.AsDateTime...]);

← →
Stanislav © (2005-03-17 16:13) [2]

var A:Array of TDateTime;
begin
SetLength (A,AdoQuery1.Recordcount);
AdoQuery1.First;
While not AdoQuery1.eof do
begin
A[i]:=AdoQuery1.FieldByName ("MyField").asDateTime;
AdoQuery1.next;
end;
OutHolidaysOnMonthCalendar(Form1.MonthCalendar1,A);

И правильно, и неправильно...
Все зависит от того КАК объявлен OutHolidaysOnMonthCalendar.

Автор, Ваше слово...

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