Delphi Can

Orjinalini görmek için tıklayınız: Saat seconds
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Merhaba,

iki farklı Labelda 01:00:00.250 - 02:00:00:250 gibi sayılarım var. Copy ile iki saat arasındaki kalan süreyi hesaplıyorum. 
Fakat seconds çıkarma işlemine dahil etmek istediğimde saat formatı olmadığı için kalan süreyi alamıyorum. 
Bu işlemi nasıl çözebilirim? 


var
  SimdikiSure, Sure: TTime;
begin
  SimdikiSure := StrToTime(Copy(LabelVideoTotal.Caption, 1, 8)); // Video süresi
  Sure := StrToTime(Copy(LabelVideoNextTime.Caption, 1, 8)); // Video şimdiki süre

  LabelKalanSure.Caption :=TimeToStr(SimdikiSure - Sure); // Kalan süre
end;
DateUtils içindeki EncodeTime fonksiyonunu kullanabilirsin.

uses DateUtils;


var
  zaman1,zaman2,fark:double;
begin
  zaman1 := EncodeTime(2,0,0,650);
  zaman2 := EncodeTime(1,0,0,100);
  fark := zaman1 - zaman2;

  caption := FormatDateTime('hh:nn:ss.zzz',fark);
Teşekkür ederim.