TrackBar Position und Div?

[dominikkv]

ich wür mir dazu einfach ne function erstellen:

Delphi-Quellcode:

function SecToStr(sec: Word): String;
begin
  result := '';
  if (sec mod 60 < 10) then
    result := '0';
  result := result + IntToStr(sec mod 60);
  result := IntToStr(sec div 60)+':' + result;
end;

und dann mit

label1.caption := SecToStr(61); // würde 1:01 rauskommen aufrufen