Описание логической функции earlier(t1,t2)

[Mitzzz]

Доброй ночи! Помогите, пожалуйста, исправить ошибку, связанную с несоответствием типов Time и TDateTime...

Дано время, описанное следующим образом:
type time = record
h:0..23;
m,s: 0..59
end;
Описать логическую функцию erlier(t1,t2) для проверки, предшествует ли время t1 времени t2 (в рамках суток) и проиллюстрировать её работу в программе.

Код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

type
   Time =
   record
      h : 0 .. 23;
      m, s : 0 .. 59
   end;

var
  t_1 : Time;
  t_2 : Time;

  function Earlier(T1, T2 : Time) : Boolean;
begin
 result := ((T1.s * 60 + T1.m) * 60 + T1.h) < ((T2.s * 60 + T2.m) * 60 + T2.h);
end;

  begin
 t_1:=strtotime(Edit1.Text);
 t_2:=strtotime(Edit2.Text);
   ShowMessage( 't_1 earlier than t_2 : ' + BoolToStr(Earlier(t_1, t_2), True) );
end;

end.

[Delphi_ProGer]

А на какой именно строке ошибка? Не знаю, толк ли я говорю, но мне кажеться, что нужно рекорд Тайм изменить на что-нибудь другое, т.к. может быть конфликт с глобальной переменной Time, которая возвращает текущую дату.

[=master=]

Интересно, а что вычисляется тут - ((T1.s * 60 + T1.m) * 60 + T1.h) ?

[Человек_Борща]

Delphi_ProGer, верно говорит.
Ваша запись конфликтует с той, что обьявлена в system модуле.
Замените свой Time на TmyTime.

[Mitzzz]

Сообщение от Delphi_ProGer

А на какой именно строке ошибка? Не знаю, толк ли я говорю, но мне кажеться, что нужно рекорд Тайм изменить на что-нибудь другое, т.к. может быть конфликт с глобальной переменной Time, которая возвращает текущую дату.

Ошибка возникает в строке:

t_1:=strtotime(Edit1.Text);
t_2:=strtotime(Edit2.Text);

Никак не могу ничего придумать, чем можно заменить...

Сообщение от =master=

Интересно, а что вычисляется тут - ((T1.s * 60 + T1.m) * 60 + T1.h) ?

Вычисляется определение часа, минут и секунд и выполняется действие, что T1 должно быть < T2.

Сообщение от Человек_Борща

Delphi_ProGer, верно говорит.
Ваша запись конфликтует с той, что обьявлена в system модуле.
Замените свой Time на TmyTime.

Понятно.
Спасибо, заменил... Но опять выскакивает:
[Error] Unit1.pas(47): Incompatible types: 'TmyTime' and 'TDateTime'
[Error] Unit1.pas(48): Incompatible types: 'TmyTime' and 'TDateTime'

Видимо, я что-то не так догоняю?

[=master=]

Спасибо, заменил

Эта замена не спасет. Надо просто правильно инициализировать T1 и T2.

Вычисляется определение часа, минут и секунд и выполняется действие, что T1 должно быть < T2.

Давайте подставим реальные данные, например T1 = 06:20:20, T2 = 07:15:05
явно видно что T1 < T2
вычислим
t1 = ((20*60 + 20)*60 + 6 = 73206
t2 = ((05*60 + 15)*60 + 7 = 18907
получилось T1 > T2
Так чтож вы вычисляете то?

[Mitzzz]

Сообщение от =master=

Эта замена не спасет. Надо просто правильно инициализировать T1 и T2.

Т.е. T1 и T2 нужно присвоить отдельный тип переменных?

Сообщение от =master=

Давайте подставим реальные данные, например T1 = 06:20:20, T2 = 07:15:05
явно видно что T1 < T2
вычислим
t1 = ((20*60 + 20)*60 + 6 = 73206
t2 = ((05*60 + 15)*60 + 7 = 18907
получилось T1 > T2
Так чтож вы вычисляете то?

Точнее, должно быть так: если Т1 будет раньше, чем Т2, то будет выводиться сообщение, что "Т1 раньше, чем Т2: True", в противном случае будет выводиться, что "Т1 раньше, чем Т2: False".

Можно, в принципе, этот расчёт заменить на:

if T1.h<>T2.h then Result := T1.h<T2.h 
else
if T1.m<>T2.m then Result := T1.m<T2.m 
else
if T1.s<>T2.s then Result := T1.s<T2.s

[=master=]

Т.е. T1 и T2 нужно присвоить отдельный тип переменных?

Надо определить локальную переменную
var
myTime : TDateTime;

далее распарсить вводимые данные
myTime:=StrToTime(Edit1.Text);
и инициализировать ваши
t_1.h:=...
t_1.m:=...
t_1.s:=...
тоже и для t_2
myTime:=StrToTime(Edit2.Text);
t_2.h:=...
t_2.m:=...
t_2.s:=...
а вот сейчас уже можно и проверки делать.

[Mitzzz]

Сообщение от =master=

а вот сейчас уже можно и проверки делать.

Всё, я разобрался! Большое спасибо за оказанную помощь!
Вот итоговый код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

type
   Time =
   record
      h : 0 .. 23;
      m, s : 0 .. 59
   end;

var
  t_1 : Time;
  t_2 : Time;

  function Earlier(T1, T2 : Time) : Boolean;
begin
if T1.h<>T2.h then Result := T1.h<T2.h 
else
if T1.m<>T2.m then Result := T1.m<T2.m 
else
if T1.s<>T2.s then Result := T1.s<T2.s
end;

  begin
 t_1.h:=StrToInt(Edit1.Text);
 t_1.m:=StrToInt(Edit2.Text);
 t_1.s:=StrToInt(Edit3.Text);
 t_2.h:=StrToInt(Edit4.Text);
 t_2.m:=StrToInt(Edit5.Text);
 t_2.s:=StrToInt(Edit6.Text);
   ShowMessage( 't_1 раньше, чем t_2 : ' + BoolToStr(Earlier(t_1, t_2), True) );
end;

end.

В качестве дополнения выложил исходник программы.