Дата

← →
sandrina (2003-06-24 07:51) [0]

Привет всем!Может подскажете по какой причине в Delphi7 могут не работать функции Date и Now? Delphi на них самих не ругается,но ничего не выдает.

← →
Palladin (2003-06-24 07:59) [1]

код давай

← →
sandrina (2003-06-24 08:11) [2]

А код-то простой
присваиваю переменной Tdatetime Date или Now
dt:=Date;

← →
Palladin (2003-06-24 08:12) [3]

и что ты хочешь что бы этот код тебе выдавал? простое приравнивание никаких эффектов на экран не выводит

← →
sandrina (2003-06-24 08:22) [4]

Да мне на экран и не надо. Я эту дату потом еще обрабатываю.А на экран ее выдаю в TEdit(свойство text).Я не новичок в Delphi.На данный момент пишу базу.

← →
Palladin (2003-06-24 08:27) [5]

слушай! я пытаюсь от тебя добится кода, под кодом имеется весь процесс на основании которого ты считаешь что эти функции не работают, дык вот, твой код присванивания это совсем не основание считать так!!
Весь процесс обработки давай сюда! неужели трудно помочь тем кто пытается тебе помочь!

← →
sandrina (2003-06-24 08:35) [6]

Вот кусочек кода(все лишнее я убрала):
var strok,s:string;

procedure TPD4.DTimerTimer(Sender: TObject);
begin
strok:=datetostr(date);
end;

procedure TPD4.obrabotka;
begin
s:=copy(strok,1,2);
Dday:=trim(s);
end;

← →
Palladin (2003-06-24 08:42) [7]

еще очень и очень новичек
во первых

var
CurDate:TDateTime;

procedure TPD4.DTimerTimer(Sender: TObject);
begin
CurDate:=Date;
end;

procedure TPD4.obrabotka;
var
y,m,d:word;
begin
DecodeDate(CurDate,y,m,d);
Dday:=inttostr(d);
end;

во вторых на всякий случай убедись что у тебя нет никакого, тобой заведенного, идентификатора с именем date

← →
sandrina (2003-06-24 08:49) [8]

Date-ом у меня ничего не обозначено.Один раз столкнувшись с этой проблемой(обозначение элементов наименованиями функций), больше таких ошибок не делаю.
Через TDateTime,DecodeDate я уже пробовала.
Я сразу через него делала, но ничего не вышло.Потом решила попробовать через string.
Все равно ничего не работает.

← →
Song (2003-06-24 08:54) [9]

DDay=DayOf(Date), не надо никаких Copy

← →
Palladin (2003-06-24 08:55) [10]

может гдето в подключаемом модуле date перекрывается?
просто не может такого быть

попробуй
CurDate:=SysUtils.Date;

← →
Palladin (2003-06-24 08:57) [11]

если и это не сработает
занчит приведи более полный код вплоть до присваивания TEdit

← →
sandrina (2003-06-24 09:01) [12]

Спасибо, я про DayOf знаю.Просто у меня была string-говая переменная вот я и взяла copy.

← →
sandrina (2003-06-24 09:07) [13]

С CurDate:=SysUtils.Date таже ерунда - полная тишина.

← →
Verg (2003-06-24 09:08) [14]

> Delphi на них самих не ругается,но ничего не выдает.

Кто не выдает? Делфи не выдает, код не генерит call now? Или функции не выдают?
Молчат функции как партизаны...

← →
Verg (2003-06-24 09:12) [15]

> С CurDate:=SysUtils.Date таже ерунда - полная тишина.

Не новичек, говорите....
А что, в CurDate образуется значение "полная тишина" типа TDateTime?

← →
Palladin (2003-06-24 09:18) [16]

да человека с самого начала просят полный код привести, нет уперлась и все...
в какой строке тишина, что там не так...
ну не хочет человек что бы ему помогали...

> Человек

после присвоения CurDate вставь
Applicaiont.MessageBox(pchar(datetostr(CurDate)),"Ok!");

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

← →
makdi (2003-06-24 09:23) [17]

А если попробовать вот так:

procedure RetDate;
var s : String;
begin
s := DateToStr(Date());
ShowMessage(s);
end;

← →
NikB (2003-06-24 11:10) [18]

>>>> procedure TPD4.DTimerTimer(Sender: TObject);

A events timera idut?
Mojet bit gde-to nado stavit Application.ProcessMessages?

>> To sandrina: Potrebitelskii interfeis est li u etoi progi? Rabotaet li interfeis, kogda pol"zuesh Date?

← →
autootvetchik (2003-06-24 11:55) [19]

А что выдаст это:

Application.MessageBox(
PChar("Date="+FormatDateTime("dd.mm.yyyy",Date)), "???");

← →
squire (2003-06-24 12:08) [20]

Попробуй так

S:=FormatDateTime("DD.MM.YYYY",now);

← →
Smashich (2003-06-24 12:30) [21]

не может ли дело быть в глобальности переменных? и какая то процедура меняет их значение? потому что не думаю что в D7 программисты дяди Борланда критически рассмотрели
этот страшно запутанный код
function Date: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
with SystemTime do Result := EncodeDate(wYear, wMonth, wDay);
end;
переписали его да еще и с багами?

← →
Новичёк (2003-06-25 22:34) [22]

> Palladin © (24.06.03 09:18)
> и убедись что она пустая, прежде чем делать подобные заявления, ошибка естественно в другом участке...
ИМХО, правильное замечание:

Поставь брейкпоинт на "это самое присвоение" (Ctrl+F8) - и тогда станет ясно, в чём именно ощибка. Впечатление, будто

1) присвоение не вызывается вообще
2) вызывается, да не вовремя

Вариант замещения имени ИМХО маловероятен, ибо вариант с Now как я понимаю, тоже не прошёл...

Не забудь добаить в "Watches" (Ctrl+F5) переменную, которой присваиваешь значение (dt). Как тока прога остановится (если остановится) на этом месте, F8 - и смотришь, что с "dt" произошло ...

Дата Найти похожие ветки