Franchement très étoné des compliments.
Absence total de sécurité. Absence total d'explication et de commentaires. Le programme plante dès le démarrage avec "débordement d'entier" dans la fonction "noise2Di" sur b := (u shl 10) + sx * (v - u);

Explications, description et commentaires seraient les bien-venu.

Cela fait longtemps que j'ai trouvé un petit truc infaillible pour cacher les adresses E-Mail des robots publicitaires. Une petite image sur laquelle est dessinée le texte de l'adresse. En plus, un formulaire pour envoyer un message. Comme cela, tous ceux qui n'ont pas ootlook puvent m'écrire directement.

Franchement, vous manquez de tact et de cmpréhension.
Vos remarques, commentaires et vos propos sont plus que désobligeants.
OK, ce n'est pas du JavaScript, mais ça marche.

J'avais une page avec un texte défilant écrit en javascript (qui n'était pas de moi -je connais peu le javascript-). Puis j'ai ajouté un menu (javascript) écrit avec MatishaSublime 3. Conséquence, le texte ne défilait plus. Je n'ai jammais compris pourquoi malgré mes recherches sur les forums.
Et je découvre grace à un petit code à deux balles, que finalement on n'a pas besoin de javascript pour faire défiler un texte. J'ai modifié mon code avec la balise <MARQUEE>, et miracle, ça marche.
Ceci montre que c'est le petit code à deux balles qui a gagné.
Merci beaucoup DANTE36 et ne te laisse pas décourager par quelques prétencieux qui oublient que le role d'un expert (si ils le sont) sur un forum c'est d'enseigner avec tact.

A+

Bande de rigolos. Moi, j'ai trouvé.
Il faut lire Navigateur Inter pas net.
Mais alors, pas net du tout. Car cela n'a aucun
rapport avec "Internet", "InterNerf", "Astronef",
ni "Patinette".

Tu fais comme ça, pour avoir les milisecondes.

Function MilisecondesToTime(D : Integer) : String;
Var
   T : TDateTime;
   F : Double;
Begin
     F := (Frac(D / 1000)) * 1000;
     T := D / 86400000;
     Result := TimeToStr(T) + ':' + IntTostr(Round(F));
End;


Au fait :  http://philippe.gormand.free.fr/

Salut.  Que penses tu de ce code ?

Function MilisecondesToTime( M : Integer) : String;
Var
   T  : TDateTime;

Begin
   T:=D /86400000;
   Result := TimeToStr(T);
End;


// Exemple
procedure TForm1.Button1lick(Sender : TObject);
Var
   T : Integer;
begin
   T:=GetTickCount;
   Caption:= MilisecondesToTime(T);
end;