zahl in Uhrzeit darstellen

[Cr3at0r]

Also ichhabe das "Truunc()" mal mit eingebauut nunr anderer fehler, ier der code mit dem fehler:

Delphi-Quellcode:

function SecToStr (sec: Int64): string;

var

  DT : TDateTime;

begin
  DT := sec / (60 * 60 * 24);

  Result := IntToStr(Trunc(DT)) + ' Tage';
end;


procedure TForm1.Button1Click(Sender: TObject);
var
prodiri, prodhol, prodo2, wk, hol, o2, iri, bbt: real;
iri2, hol2, o22, iri3, hol3, o23: real;
iritag, holtag, o2tag: real;
iristd, holstd, o2std: real;
iriv, irib, holv, holb, o2v, o2b: real;
irig: string;

begin
prodiri := strtofloat(edit1.Text);
prodhol := strtofloat(edit4.text);
prodo2 :=  strtofloat(edit5.text);
bbt := strtofloat(edit2.text);
wk := strtofloat(edit3.text);

iri := (10 * (1 + (Power(prodiri,1.9))));
hol := (10 * (1 + (Power(prodhol,1.8))));
o2 := (10 * (Power(prodo2,2)));

iri2 := iri * (Power(1 + 5/100, bbt));
hol2 := hol * (Power(1 + 5/100, bbt));
o22 := o2 * (Power(1 + 5/100,wk) * (20/70));


label1.Caption := floattostr(iri2);
label2.Caption := floattostr(hol2);
label4.Caption := floattostr(o22);

iritag := iri2 * 24;
holtag := hol2 * 24;
o2tag := o22 * 24;

label10.caption := floattostr(iritag);
label11.caption := floattostr(holtag);
label12.caption := floattostr(o2tag);

iristd := strtofloat(edit6.text) * iri2;
holstd := strtofloat(edit6.text) * hol2;
o2std := strtofloat(edit6.text) * o22;

label19.Caption := floattostr(iristd);
label20.Caption := floattostr(holstd);
label21.Caption := floattostr(o2std);

iriv := strtofloat(edit7.text);
irib := strtofloat(edit8.text);
holv := strtofloat(edit9.text);
holb := strtofloat(edit10.text);
o2v := strtofloat(edit11.text);
o2b := strtofloat(edit12.text);

irig := floattostr((irib - iriv) / iri2);

label51.caption := SectoStr(Trunc(irig));


end;

und in der zeile:
label51.caption := SectoStr(Trunc(irig)); Kommt folgender Fehler:
"[Fehler] ets_res_prod2.pas(174): E2008 Inkompatible Typen"