Bonjour tout le monde!!!!  
Voila, je suis nouveau sur ce forum, j'ai 12 ans et demi, et je débute dans la programmation  
 
J'ai bien sur commencé avec le HTML, puis j'ai enchainé avec le VRML, mais la j'ai rien compris...   donc, j'ai poursuivi avec Delphi...  
 
Et voila, un probleme se pose: j'ai fait un petit programme appelé "TheBlueClock" qui ressemble à a ça =>
 
le probleme (comme on le voit sur l'image...) C'est que lorsque les heures/minutes/secondes sont en dessous de 10, il m'affiche 11:5 au lieu de 11:05...
 
J'ai essayé d'y remedier en changeant un peu mon code, mais je me retrouve encore avec le même resultat...
 
Mon code:
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Time : TDateTime;
  Heure, Min, Sec, Millisec : Word;
  sHeure, sMin, sSec, sMillisec : String;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Time:=Now;
 DecodeTime(Time, Heure, Min, Sec, Millisec);
 Str(Heure, sHeure);
 Str(Min, sMin);
 Str(Sec, sSec);
 Str(Millisec, sMillisec);
 Label1.Caption:=sHeure+':'+sMin;
 Label2.Caption:=sSec;
 if sMin<'10' then
 sMin:='0'+sMin;
 if sSec<'10' then
 sSec:='0'+sSec;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
 
end.
 
 
 
Pour les heures, c'est moins genant (c'est vrai, quelle horloge afficherait 06:30??? pas une des miennes! ^_^)
 
 
Voila, donnez moi vos solutions SVP!!! Merci d'avance!
 
 
EDIT:   zut! si on tourne pas sur XP, avec la couleur par defaut en bleu, ma BlueClock est plus Blue... Une idée peut-être?

Si tu modifies sMin après l'avoir mis dans label1 c'est normal que ça ne marche pas
Pour simplifier ton code :
Label1.Caption := Format(%.2d:%.2d, [Heure, Min]);

Je voudrais pas passer pour un gros noob (trop tard   ) mais... ton code, je le place ou??? et il me met "illegal character input in file: '%'"...

J'ai oublié les apostrophes tiens
 
Label1.Caption := Format('%.2d:%.2d', [Heure, Min]);
 
et ça remplace
Str(Heure, sHeure);
 Str(Min, sMin);
 Str(Sec, sSec);
 Str(Millisec, sMillisec);
 Label1.Caption:=sHeure+':'+sMin;
 Label2.Caption:=sSec;
 if sMin<'10' then
 sMin:='0'+sMin;
 if sSec<'10' then
 sSec:='0'+sSec;
 
Mais bon, c'est pas une formule magique à copier-coller, tu peux aussi voir dans l'aide ce que fait Format et en déduire ce qu'elle remplace

KAWAIIIIIII!!!!
Sa marche j'ai juste rajouter  

 
Pour les secondes... Mais sinon sa marche!!!
 
Merci, et à bientôt!  

"ça" marche plutôt

non, ça FONCTIONNE!