Воскресенье, 05 Май 2024, 14:54
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635

Онлайн всего: 10
Гостей: 10
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей

Главная » Статьи » Студентам » Алгоритмы
Разница во времени
...я не знаю, когда вы выполняете TimeTaken.. Вы делали какую-нибудь паузу
перед запуском TimeTaken после выполнения SetTimeStart? Если не делали, то
удивительно, что tt=Now.. Я пробовал ваш код с несколькими незначительными
изменениями... и я всегда получал разницу между Now и TimeStart. Но я объявляю
tt как TDateTime, а не как Double, и использую событие OnTimer для запуска
процедуры TimeTaken. Вы можете проверить это, запустив пример, приведенный ниже.

{*******************************************************************

ФАЙЛ : TIMEEX.PAS
ПРИМЕЧАНИЕ : Создайте форму, содержащую 1 TTimer и 6 TLabel.
Установите событие OnTimer у TTimer на TForm.Timer1.Timer
********************************************************************}unit
Time;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
Controls,
Forms, Dialogs, ExtCtrls, StdCtrls;
type

TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel; {Caption : 'Старт
:'}
Label2: TLabel;
Label3: TLabel; {Caption : 'Время :
'}
Label4: TLabel;
Label5: TLabel; {Caption : 'Истекшее
время:'}
Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
TimeStart : TDateTime;
public
{ Public declarations }
end;
var

Form1: TForm1;
implementation

{$R *.DFM}

procedure
TForm1.FormCreate(Sender: TObject);
begin

TimeStart := Now;
Label2.Caption :=
TimeToStr(Now);end;

procedure
TForm1.Timer1Timer(Sender: TObject);
var

tt : TDateTime;begin

Label4.Caption := TimeToStr(Now);
tt:= Now - TimeStart;
Label6.Caption:=
TimeToStr(tt);end;

end.
Категория: Алгоритмы | Добавил: Lerka (21 Ноя 2012)
Просмотров: 340 | Рейтинг: 1.0/ 4 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Воскресенье
05 Май 2024
14:54

Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz