Как заменить цифры дня недели на наименования дня недели

Вверх ↑

Форумы Между деломКак заменить цифры дня недели на наименования дня недели ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 1305

Рейтинг: 29

#16: 2006-09-04 08:19:12 ЛС | профиль | цитата

Galkov писал(а):

v258, ну ты пальцем-то покажи, в каком виде нижнюю точку видеть желаешь

Да я ее и так вижу - храню тот компонент крепко, а для остальных это должно выглядеть примерно вот так
Time.ini

*DayOfWeek=Выдает в поток день недели|3|int[/code]
[b]hiTime.pas[/b]
procedure THITime._var_DayOfWeek;
var
  SystemTime: TSystemTime;
begin
   _Data.data_type := data_int;
   GetLocalTime(SystemTime);
   _Data.idata := SystemTime.wDayOfWeek;
end;
Коды взял непосредственно из компонента.

карма: 0

Ответов: 16884

Рейтинг: 1239

#17: 2006-09-04 09:14:59 ЛС | профиль | цитата

unit DatePicker
..................
..................
{ Public declarations }
destructor Destroy; virtual
................
................
destructor TPicker.Destroy;
begin
fFormat := ';
fControl.Free;
inherited;
end;

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 9906

Рейтинг: 351

#18: 2006-09-04 10:51:42 ЛС | профиль | цитата

Tad, повторюсь:
1) я это видел
2) это не спасет отца русской демократии
3) это коды с сайта KOL (скорее всего), и их надежность значительно выше нашего Upload
4) это факт, проверяемый экспериментально - после этого хоть зацитируйся

[size=-2]------ Добавлено в 10:51
v258, ну все логично вроде....
Вот только не очень понятно, как это твой первый пример сокращает
у меня короче не получилось: code_232

Короче вышло бы, если бы мы добавили два типа StrList в св-ва элементу: WeekDays и MonthDays...
Ну типа: если значение выше high - то на выход сама цифирька, иначе - используется как индекс...

карма: 9

файлы: 1

code_232.txt [1.3KB] [579]

Ответов: 1305

Рейтинг: 29

#19: 2006-09-04 12:58:02 ЛС | профиль | цитата

Я имел в виду вот так
code_233
Зачем лепить два компонента, когда можно обойтись одним

карма: 0

файлы: 1

code_233.txt [1.3KB] [567]

Ответов: 9906

Рейтинг: 351

#20: 2006-09-04 13:11:50 ЛС | профиль | цитата

Ага, действительно можно

карма: 9

Ответов: 857

Рейтинг: 1

#21: 2006-09-04 18:47:32 ЛС | профиль | цитата

Ну и чего вы натворили? непроще ли два массива использовать для сравнения даты и уже выдавать день недели и так далее?

карма: 1

Ответов: 1305

Рейтинг: 29

#22: 2006-09-04 19:17:53 ЛС | профиль | цитата

MarGoo, как говорит Galkov, ты пальцем покажи

карма: 0

Ответов: 689

Рейтинг: 20

#23: 2006-09-04 19:27:15 ЛС | профиль | цитата

v258, исправить hiTime.pas, Time.ini и все?
вылажи все необходимые файлы, если не трудно

карма: 0

Ответов: 1305

Рейтинг: 29

#24: 2006-09-04 22:14:04 ЛС | профиль | цитата

oldTV, см. выше - все, что нужно изменить, я дал несколькими постами выше.

карма: 0

Ответов: 9906

Рейтинг: 351

#25: 2006-09-04 23:04:19 ЛС | профиль | цитата

кроме строки в определении класса:

    procedure _var_DayOfWeek(var _Data:TData; Index:word);

очевидной, правда...

карма: 9

Ответов: 1305

Рейтинг: 29

#26: 2006-09-05 18:42:40 ЛС | профиль | цитата

Ну не зря же у oldTV звание советника - догадается чай

карма: 0

Ответов: 689

Рейтинг: 20

#27: 2006-09-05 19:04:29 ЛС | профиль | цитата

v258, очень спасибо,

, особенно мне понравилось твое чувство юмора

карма: 0

файлы: 1

ModTime.rar [1.2KB] [412]

Ответов: 16884

Рейтинг: 1239

#28: 2006-09-05 21:30:32 ЛС | профиль | цитата

В 158 версии code_232 и code_233 при закрытии формы - сообщение RunTime Error если компилировать FPC

(Delphi нормально). Виновник - компонент Timer. Проверьте, кому не лень.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 9906

Рейтинг: 351

#29: 2006-09-05 21:49:00 ЛС | профиль | цитата

Чего-то не очень верится в то, что версия среды или FPC виноваты....
Tad, проверь с моей версией таймера...

карма: 9

файлы: 1

hiTimer.rar [710B] [408]

Ответов: 16884

Рейтинг: 1239

#30: 2006-09-05 22:03:59 ЛС | профиль | цитата

Проверил - под Delphi нормально, под FPC RunTime Error

[size=-2]------ Добавлено в 22:03
кино

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Между деломКак заменить цифры дня недели на наименования дня недели ← Ctrl123Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)