[Delphi] Описать логическую функцию eq(f,q), проверяющую на равенство файлы f и g типа "Запись"

[SEXTANT]

type время = record час: 0..23;
мин, сек: 0..59
end;
ФВ= file of время
Описать логическую функцию eq(f,q), проверяющую на равенство файлы f и g типа ФВ.

кто может помочь?

[Alex11223]

Вы не перепутали "помочь" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[Serge_Bliznykov]

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

кто может помочь?

помочь, это написать функцию вместо Вас?

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

Описать логическую функцию eq(f,q), проверяющую на равенство файлы f и g типа ФВ.

т.к. функция простая как топор, то:

function eq_время(v1,v2 : время):boolean;
begin
  Result := v1.час = v2.час and v1.мин=v2.мин and  v1.сек=v2.сек
end;

function eq(f,q : ФВ):boolean;
var fv, qv : время;
begin
  Result := false;
  try
    Reset(f); Reset(q);
    if FileSize(f)<>FileSize(q) then Exit;

    while Not Eof(f) and Not Eof(q) do begin
      Read(f, fv); Read(q. qv);
      if Not eq_время(fv, qv) then Exit
    end;   
    Result := true;  
  finally
    Close(f); Close(q);
  end; 
end;

p.s. не проверял