Текущий архив: 2005.03.27;
Скачать: 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 вся ветка
Текущий архив: 2005.03.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
