Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Вниз
Помогите народ плиззз!!!! Найти похожие ветки
← →
АЛЕКСЕЙ СЕРГЕЕВИЧ (2002-11-03 12:18) [0]Привет мастера помогите решить прогблему!!!
Короче проблема такая : Мне надо чтоб время шло назад 2:04:02
2:04:01 2:03:59 2:03:58 и.т.п
Прошу кто может напишите кусок кода плиззззззззззз
← →
sask (2002-11-03 12:48) [1]
procedure TForm1.Button1Click(Sender: TObject);
var t1: TTime;
begin
t1 := Time();
while True do
begin
Label1.Caption := TimeToStr(t1 - (Time() - t1));
Application.ProcessMessages;
Sleep(1000);
end;
end;
← →
Hirara (2002-11-03 18:24) [2]sask
мне вот интересно, зачем скобки после Time указываеш? т без них все пашет
← →
Юрий Зотов (2002-11-03 18:34) [3]Я бы тоже хотел запустить время назад. Помолодеть лет так на 20-25. Никто не поможет? Можно даже и со скобками...
← →
Anatoly Podgoretsky (2002-11-03 18:41) [4]Hirara © (03.11.02 18:24)
А мне интересно зачем это
Label1.Caption := TimeToStr( t1 - (Time() - t1));
← →
Paul 'Spawn' Rysevets (2002-11-03 20:12) [5]to Anatoly Podgoretsky:
если из математики, то получается, что от начального времени t1 отнимается прошешее (Time() - t1).
Математика!!!!
← →
Anatoly Podgoretsky (2002-11-03 20:19) [6]плохо ты в школе учился t1-t1=0 остается -Time
← →
Сатир (2002-11-03 20:29) [7]если раскрыть скобки, то получится t1 - time + t1 = 2*t1 -time, но таков ли верный ответ?
← →
Геннадий (2002-11-03 20:38) [8]А может разместить на форме таймер и в его событии OnTimer (при интервале 1 сек [Interval = 1000]) написать Dec(DateTimePicker1.Time). Ну или DateTimePicker1.Time:= DateTimePicker1.Time - 1. Или минус StrToTime("00:00:01")
← →
TTCustomDelphiMaster (2002-11-03 20:39) [9]Все правильно товарищи! Что вы кипятитесь?
← →
Ihor Osov'yak (2002-11-03 20:40) [10]2 Hirara © (03.11.02 18:24)
Дык человек вчера может со си только спрыгнул, или мечется туда-сюда (ну почти как я, красивый). На уровне рефлекса у сишников скобки после вызова функии/процедуры ставить ...
← →
Anatoly Podgoretsky (2002-11-03 20:55) [11]Сатир © (03.11.02 20:29)
Если раскрыть скобки то time-time+time, так как t1:=Time
Недостаточно начальных данных, но допустим, что от 2:04:02
T1 := Time + StrToTime("2:04:02");
в обработчик OnTimer
begin
Label1.Caption := TimeToStr(T1 - Time);
end;
← →
sask (2002-11-04 06:42) [12]>>2 Ihor Osov"yak © (03.11.02 20:40)
>>2 Hirara © (03.11.02 18:24)
скобки я ставлю, чтобы отличать функцию от
переменной - вот и все (а может и действительно Си сказывается)
>>2 ALL
я всего лишь предложил человеку алгоритм решения (который работает) - как его использовать - дело хозяйское...
← →
Сатир (2002-11-04 14:35) [13]>так как t1:=Time
очень в этом сомниваюсь, поскольку
t1 := Time();
while True do
begin
Label1.Caption := TimeToStr(t1 - (Time() - t1));
между первым и вторым вызовом ф-ции происходит несколько милисек, которые и вносят различия между t1 и time
то есть, если t1 = time- dt, то
t1-(time-t1) = time-dt-time+time-dt = time - 2*dt
в итоге время пойдёт назад со скоростью выполнения операций, которые находятся между первым и вторым вызовом ф-ции time
← →
Anatoly Podgoretsky (2002-11-04 14:42) [14]Пускай так, но это не решает его задачи, при том тут какой то рандом получается, если запускать в час, в два часа, в 10 часов
1*2-Time
2*2-Time
10*2-Time
Особенно интересен вариант в 0 часов
← →
sask (2002-11-04 14:46) [15]
> в итоге время пойдёт назад со скоростью выполнения операций,
> которые находятся между первым и вторым вызовом ф-ции time
Может прежде, чем что-то критиковать, стоит попробовать у себя запустить сей кусочек кода и посмотреть как это будет выглядеть?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c
