Пишу свою компоненту как сделать чтоб я мог зрагжать дат (с... по... ) и потом в дальнешем рабоатть
Вижу пока это так
MyComp.Periods.AddDate(DateFrom,DateTo:TDateTime);
Periods - думаю лучше будет обозначить как TListSting;
Надо будет
1)Добвить даты
2)Очистить определныей период
3)Очистить все
4)Считать данные
Массив дат
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
Создал класс
type
TPeriod=class
public
procedure AddPeriod(DF,DT:TDateTime);
procedure ClearPeriod;
procedure DeletePeriod(Period:integer);
procedure GetPeriod(Period:integer);
end;
Объявляю его
Period:TPeriod;
Все показывает
Как теперь или куда лучше добавлять эти периоды
type
TPeriod=class
public
procedure AddPeriod(DF,DT:TDateTime);
procedure ClearPeriod;
procedure DeletePeriod(Period:integer);
procedure GetPeriod(Period:integer);
end;
Объявляю его
Period:TPeriod;
Все показывает
Как теперь или куда лучше добавлять эти периоды
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
-
- Сообщения: 273
- Зарегистрирован: 30 июн 2005, 14:53
палавина букав прапущена, ниразабрался что написана
- Чем юзер похож на обезьяну?
- Он жмет на все, что жмется, дергает все, что дергается и крутит все, что крутится.
- Чем юзер отличается от обезьяны?
- У обезьяны хватает ума не воспроизводить ту последовательность, которая приводит к краху системы.
- Он жмет на все, что жмется, дергает все, что дергается и крутит все, что крутится.
- Чем юзер отличается от обезьяны?
- У обезьяны хватает ума не воспроизводить ту последовательность, которая приводит к краху системы.