[anwas]

Помогите решить проблему:
var: t1,t2,t:TTime;
t:=t2-t1;
в результате в t остается Real значение (дробное кол-во дней)
как его перевести в hh:mm:ss?
Заранее спасибо!

[Decoding]

Както так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   t1, t2, t: TTime;   h1, h2, m1, m2, s1, s2, ms1, ms2: WORD; <b>begin</b>    h1 := <font color="royalblue">10</font>;    m1 := <font color="royalblue">10</font>;    s1 := <font color="royalblue">0</font>;    ms1 := <font color="royalblue">0</font>;    t1 := EncodeTime( h1, m1, s1, ms1 );    h2 := <font color="royalblue">0</font>;    m2 := <font color="royalblue">10</font>;    s2 := <font color="royalblue">0</font>;    ms2 := <font color="royalblue">0</font>;    t2 := EncodeTime( h2, m2, s2, ms2 );    t := t1 - t2;    ShowMessage( TimeToStr( t ) ); <b>end</b>;

[Elv]

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

Помогите решить проблему:
var: t1,t2,t:TTime;
t:=t2-t1;
в результате в t остается Real значение (дробное кол-во дней)
как его перевести в hh:mm:ss?
Заранее спасибо!

Не совсем понятна проблема.
TTime = TDateTime = Double
До запятой дни. После запятой время.
То есть в твоём коде ошибки нет.