Konverter sec til min !

Nedenstående gør hvad du har brug for til lablen Label

if sekunder < 10 then
      Label.Caption := IntToStr(Sekunder div 60) + \':0\' +IntToStr(sec)
    else
      TimeLabel.Caption := IntToStr(Sekunder div 60) + \':\' +IntToStr(sec);

Lidt rettelse

if sekunder < 10 then
  Label.Caption := IntToStr(Sekunder div 60) + \':0\' +IntToStr(sekunder)
else
  TimeLabel.Caption := IntToStr(Sekunder div 60) + \':\' +IntToStr(sekunder);

Mere rettelse ;) nu til Label1

if sekunder < 10 then
  Label1.Caption := IntToStr(Sekunder div 60) + \':0\' +IntToStr(sekunder)
else
  Label1.Caption := IntToStr(Sekunder div 60) + \':\' +IntToStr(sekunder

Det virker ikke!

Hvad er det som ikke virker ?

den skriver det ikke rigtigt ud! !!

For det virker i mit program, for du compilerfejl eller hvad, du skal selvfølgelig oprette en label1

den skriver ud på formen hvis sekunder = 100 -> 1:40

hvis du vil have min! bagefter skal du bruge nedenstående

if sekunder < 10 then
  Label1.Caption := IntToStr(Sekunder div 60) + \':0\' +IntToStr(sekunder) +\'min!\'
else
  Label1.Caption := IntToStr(Sekunder div 60) + \':\' +IntToStr(sekunder) +\'min!\';

jeg har en label og den kan compile det men den skriver 230 sec som 3:230!!

det skal lige siges at mine sekunder kommer fra en integer verdi!

der mangler et mod se nedenstående

if sekunder < 10 then
  Label1.Caption := IntToStr(Sekunder div 60) + \':0\' +IntToStr(sekunder mod 60) +\'min!\'
else
  Label1.Caption := IntToStr(Sekunder div 60) + \':\' +IntToStr(sekunder mod 60) +\'min!\';

et mod mere
if (sekunder mod 60) < 10 then
  Label1.Caption := IntToStr(Sekunder div 60) + \':0\' +IntToStr(sekunder mod 60) +\'min!\'
else
  Label1.Caption := IntToStr(Sekunder div 60) + \':\' +IntToStr(sekunder mod 60) +\'min!\';

hva gør \"mod\" ?

div giver heltalsdivision, mod giver resten efter en heltalsdivision

Ok tak nu virker det !

http://www.eksperten.dk/spm/93997 <- se lige det her!