Скачать: CL | DM;

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

← →
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);

---

← →
evvcom ©   (2005-03-17 17:12) [3]

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c