| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамический массив [D5, MSSQL]

Marat ©   (2005-03-17 14:40:00) 

Здравстуйте, мастера. Вопрос такой. Можно ли заполнить динамический массив данными из статического массива.
Нашел в Интернете:
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. Потом полученные данные мне надо вставить в вышеуказанную процедуру, а как не знаю.

---

evvcom   (2005-03-17 17:12:00) [1]

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

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

---

Stanislav   (2005-03-17 16:13:00) [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);

---

Юрий Зотов   (2005-03-17 15:00:00) [3]

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

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

---

Наверх