Прога некорректно работает Delphi

[Morraks91]

Прога по созданию классу.Некорректно работает складывание двух экземпляров класов не правильно считает.Если ввести значение 4 часа 45 минут 4 секунды и к этому прибавить 4 часа 15 минут 4 секунды прога выдаст неправильный результат.При некоторых значения считает правильно при некоторых нет.Плз исправьте что нетак.

constructor TTime.Create(a1,b1,c1:word);
begin
Fchas:=a1;
Fmin:=b1;
Fsec:=c1;
end;
function Ttime.Pechat:string;
begin
result:=inttostr(fchas)+':'+inttostr(fmin)+':'+inttostr(fsec);
end;
procedure Ttime.slogvremandsec(k1:word);
begin
Fsec:=Fsec+k1;
if (Fsec>=60) and (Fsec<3600) then
begin
Fmin:=Fmin+Fsec div 60;
Fsec:=Fsec mod 60;
if Fmin>=60 then
begin
Fchas:=Fchas+(Fmin div 60);
Fmin:=Fmin mod 60;
end;
end;
if Fsec>=3600 then
begin
Fchas:=Fchas+Fsec div 3600;
if Fsec mod 3600>=60 then
begin
 Fmin:=Fmin+((Fsec mod 3600) div 60);
 Fsec:=(Fsec mod 3600) mod 60;
 end
 else Fsec:=Fsec mod 3600;
 if fsec>=60  then
 begin
  Fmin:=Fmin + (Fsec div 60);
  Fsec:=Fsec mod 60;
  end;
if Fmin>=60 then
begin
Fchas:=Fchas+ (Fmin div 60);
Fmin:=Fmin mod 60;
end;
if  Fchas>=24 then Fchas:=Fchas mod 24;
  end;
 end;


procedure Ttime.vichvrandsec(d1:word);
var f:word;
begin
if d1<=fsec then Fsec:=Fsec-d1
else
begin
f:=Fmin*60+Fsec+Fchas*3600-d1;
if f<3600  then
begin
Fsec:=(Fmin*60+Fsec+Fchas*3600-d1) mod 60;
Fmin:=(Fmin*60+Fsec+Fchas*3600-d1) div 60;
Fchas:=0;
end;
if f>=3600 then
        begin
Fchas:=(Fmin*60+Fsec+Fchas*3600-d1) div 3600;
Fmin:=(Fmin*60+Fsec+Fchas*3600-d1) mod 3600;
if Fmin>=60 then
begin
Fsec:=Fmin mod 60;
Fmin:=Fmin div 60;
end;
         end;
end;
end;
procedure Ttime.slog2(h1:Ttime);
begin
Fchas:=Fchas+h1.Fchas;
Fmin:=Fmin+h1.Fmin;
Fsec:=Fsec+h1.Fsec;
end;
procedure Ttime.vichit2(l1:Ttime);
begin
end;

[alexBlack]

Внутри класса храните время в секундах. Все будет гораздо проще.

[Morraks91]

Пожалуйста напишите подробнее что Вы имеете ввиду, я слаб в программировании, и не уловил Вашу мысль

[alexBlack]

Оставьте в приватной части только одно поле - время в секундах:

type 
    Ttime=class
    private 
       Fsec:word;
    public      
       constructor Create(a1,b1,c1:word);

Все методы сложения/вычитания сразу станут проще и сведутся к простому сложению/вычитанию секунд. Останется только два метода - приведение времени в секунды в констракторе и секунд в формат hh:mm:ss при выводе.

[Morraks91]

Сорри за моё нубство но я не понимаю как складывать 2 класса если у меня будет только поле для секунды.Мне то нужно сложить и часы и минуты и секунды

 procedure Ttime.slog2(h1:Ttime);
begin
Fchas:=Fchas+h1.Fchas;
Fmin:=Fmin+h1.Fmin;
Fsec:=Fsec+h1.Fsec;
end;

[sabbathist]

Morraks91, мне кажется, что код в первом посте не ваш.

[Morraks91]

sabbathist,Вобще то мой у меня не работает складывание двух классов
а почему не мой ?

[Morraks91]

спасибо но помощь уже не требуется я разобрался Прога неправильно считала потому что я не правильно создал второй класс и потому что неправильно вызвал процедуру сложения классов

[sabbathist]

Извините, ошибся.