Dodawanie

0

Witam!
Mam pewien problem otóż:
Na formie mam 14 Editów. W 12 Editach jest czas w formacie ( : . ) np. 35:27.48 (35 godzin, 27 min., 48 sek.) i w tych Editach są różne te czasy (np. 123:56.07 lub 3:12.40), ale podkreślam, że w takim samym formacie. Moje pytanie brzmi: jak zsumować te czasy i przedstawić w piątym Edicie wynik, żeby wyszedł w takim samym formacie?
Nie chcę tych czasów zamieniac na sekundy bo musiałbym wszystkie te Edity do sekund sprowadzać takim kodem:

 var
ile1,SumaSekund1, SumaMinut1, SumaGodzin1  :integer;
i1:String;
begin
SumaGodzin1:= strtoint(edit14.Text) div 3600; // Ilość sekund
SumaMinut1 := strtoint(edit14.Text) mod 3600 div 60;
SumaSekund1:= strtoint(edit14.Text) mod 3600 mod 60;
ile1:=Trunc(timegettime() div 1000);
if(ile1<10)then i1:='0'+IntToStr(ile1) else i1:=IntToStr(ile1);
edit13.text:=inttostr(SumaGodzin1)+':'+inttostr(SumaMinut1)
+'.'+inttostr(SumaSekund1);
End;  

Potem zliczać sekundy z wszystkich Editów i przedstawic sumę w 13 Edicie (już normalnie jako godziny) a to wszystko by zajęło dużo kodu, czasu i nerwów. Czy ktoś wie jak te czasy zsumować od razu? Z góry wielkie dzięki.:)

0

Nie mozesz stosować formatu XXXX bez tej kropki w sekundach. Pierwszy raz widze taki zapis 8-|

Przykładowe sumowanie, na pewno jest więcej lepszych sposobów

Edit3.Text := TimeToStr(StrToTime(Edit1.Text) + StrToTime(Edit2.Text));
0

lol, powodzenia :d
Dla bezpieczeństwa zamień sobie na sekundy, a potem sumę na godziny :) Kod będzie dłuższy ale chyba stabilniejszy :]

1 użytkowników online, w tym zalogowanych: 0, gości: 1