Commentaires de WhiteHippo sur tout CodeS-SourceS

101 commentaire(s) de WhiteHippo sur des sources sur tout CodeS-SourceS

Le : 27/08/2008 19:34:59
Source : UNITE GRAPHIQUE IMOD, AVEC EXEMPLE

Pour le clamp, mis à part faire une procedure comme celle donnée ici (http://www.delphifr.com/infomsg_PERFORMANCES-POINTEURS_1143590.aspx) il n'y a pas beaucoup d'autres méthodes.
Pour le channel alpha, tu peux regarder du côté du format PNG par exemple(http://delphi.pjh2.de/articles/graphic/png.php)

Cordialement.

Le : 27/08/2008 19:25:05
Source : UNITE GRAPHIQUE IMOD, AVEC EXEMPLE

Le fait d'avoir passer tes bitmaps en pf32bits, il faudrait plutôt employé TRGBQuad !! (Pour pouvoir un jour exploiter le dernier byte en canal Alpha...)

Cordialement.

Le : 27/08/2008 19:16:41
Source : UNITE GRAPHIQUE IMOD, AVEC EXEMPLE

Tu ne peux pas dépasser les limites, puisque tu ne fais qu'échanger les composantes dans les fonctions que j'ai précédemment citées. Je n'ai pas parlé des fonctions qui nécessitaient des calculs.

Cordialement.

Le : 27/08/2008 18:49:28
Source : UNITE GRAPHIQUE IMOD, AVEC EXEMPLE

Bonjour

En regardant rapidement le code du composant, j'ai 2 petites remarques.

Premièrement, dans les fonctions d'"inversion" comme tu les appelles ( BGR, RBG, GBR, GRB ) le test du "clamp" peut être supprimé si tu déclares les variables R, G, B de type BYTE.

     B := P[Y].rgbtRed;
     G := P[Y].rgbtGreen; // On se contente de permuter
     R := P[Y].rgbtBlue;
     // début clamp inutile
     if R < 0 then R := 0;
     if R > 255 then R := 255;
     if G < 0 then G := 0;
     if G > 255 then G := 255;
     if B < 0 then B := 0;
     if B > 255 then B := 255;
     // Fin clamp inutile

     P[Y].rgbtRed := R;
     P[Y].rgbtGreen := G;
     P[Y].rgbtBlue := B;

Deuxièmement, ton composant change le format du bitmap (SetPixelFormat(pf24Bit, Bmp);) ce qui n'est pas toujours souhaitable. Si tu avait un bitmap 32bits, tu perds obligatoirement des informations. Le mieux est quand même de s'adapter au format initial du bitmap.

P.S. Quand j'aurais un peu plus de temps, je regarderais un peu plus précisemment le code (du composant et du projet)

Cordialement.

Le : 26/03/2008 10:50:08
Source : DFM READER

Matrix1
  "je c que tu m'aime pas"
  Aucun rapport, je ne juge pas les gens mais leur travail.
  "c pour ça que tu te fiche de tous les explications ainsi de voire la source"
  J'ai regardé ta source, c'est pour ça que j'ai mis un commentaire. Et, je persiste, ta source reprend une grosse portion du code situé à l'adresse donnée. Il suffit de regarder les similitudes quant aux noms des variables, au formattage du texte, etc....

Je te rappelerais donc le règlement :
"13 - On ne poste pas le travail d'autrui et on cite les auteurs pour les morceaux de code publics"

P.S. Rassures toi, désormais, je ne mettrais plus de commentaires sur tes sources.

Cordialement.

Le : 26/03/2008 00:16:07
Source : DÉCOUVRIR LE NOMBRE MYSTÈRE

Bonsoir

Quelques questions à méditer :
  Pourquoi déclarer "Nbaleatoire" en tant que fonction alors que celle ci n'est pas utilisée en tant que telle ?
  les variables globales "Essais" "NbMystere" "Flag" sont-elles vraiment nécessaires avec cette visibilité ? Ne pourrait-on pas plutôt les intégrer dans une des déclarations de la fiche ?
  La variable flag est-elle nécessaire ?
  On retrouve deux fois le même code dans ton source. Ne pourrait-on pas le regrouper au sein d'une même procédure ?
  Connais-tu les resourcestring ?

P.S. Quand à la fermeture des programmes par un "Application.terminate" ou bien un "close", je conseillerais à tous d'aller jeter un coup d'oeil ici (http://www.delphifr.com/codes/LOGISLEEP-PERMET-FERMER-SESSION-ETEINDRE-OU-REDEMARRER-VOTRE_39572.aspx)

Cordialement.

Le : 25/03/2008 23:02:10
Source : DFM READER

"j'ai fais cette source juste en break time pour un ami qui a bc chercher sur le net et rien trouvé alors je pense que ça sera utile pour bc de gens."

Soit, ton ami n'a pas su trouvé sur le net; apparemment toi si...

Il aurait été normal de précisé d'où est tirée la principale fonction "HexStr2Bmp" de "U_operator.pas" même si tu l'as modifiée, ou plutôt adaptée dirons nous.
Je pense d'ailleurs que le niveau expert viens du fait de l'origine de la source (http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20438223.html)

Toujours repiquer les sources des autres pour ne les modifier que très légèrement, et surtout sans rien leur apporter de plus, faut effectivement pas s'étonner de l'ennui que cela entraine... Qui plus est en ce qui concerne des sources de 2002...

Cordialement.

Le : 12/03/2008 13:17:02
Source : COMPOSANT QUI VÉRIFIE L'ORTHOGRAPHE ET DONNE DES SYNONYMES

Matrix1
  " c'est une trés trés remarquable remarque, mais t'es Super intelligent"
    Pas du tout, c'est juste une question de bon sens.

  "sérieusement "WhiteHippo" c tous ce que t'as trouvé a dire :p"
    Oui... malheureusement. Cette image est le reflet du code posté. Un manque certain de rigueur. Une indentation des blocs à moitié faite, des labels à moitié renommés, des commentaires qui n'ont rien à faire dans le code "{C'est dieu le Unique createur}",... Et cerise sur le gateau, du code classé sous la rubrique "initiés".

  "je vai dire mon pote"
    J'aime pas le ton employé, ça présume rien de bon...

  "l'image que tu vois est déférente de demo"
    Quand je disais manque de rigueur...

  "and close your month :D"
   voilà, forcément la suite ne pouvait être que celle là.
   N.B. Histoire d'enfoncer le clou de la rigueur : Mouth et non Month !!

Mon premier commentaire se voulait bon enfant, donc c'est bien dommage que tu l'ais pris si mal; et surtout ce n'était pas la peine d'y répondre par une agression verbale.

Cordialement.

Le : 11/03/2008 20:13:28
Source : COMPOSANT QUI VÉRIFIE L'ORTHOGRAPHE ET DONNE DES SYNONYMES

Juste en passant :
378 fois vus pour l'instant et personne n'a remarqué ;P
Parce que moi un logiciel qui verifie l'orthographe et qui s'appelle "Correceur" (voir image) ça m'interpelle quelques peu ;)

Cordialement.

Le : 29/01/2008 12:34:29
Source : TROUVER LES DIVISEURS D'UN NOMBRE ENTIER

@foxi

Pourrais tu faire des tests avec le code ci-dessous sur ta machine, car sur la mienne j'ai l'impression que cette méthode me donne des temps plus rapide par rapport à l'autre :

procedure GetDivisors(const Number: Longint; const pDivisors: pLongintArray;
          out DivisorsCount: Longint; out AsPrime: boolean);
var
  i,i2 : Integer;
  Divisor, Modulo : Longint;
begin
  DivisorsCount := 0 ;
  i := 1;
  repeat
    i2 := i*i ;
    if i2 > Number then break ;
    IDivMod(Number, i, Divisor, Modulo);
    if Modulo = 0 then
    begin
      pDivisors^[DivisorsCount] := i;
      DivisorsCount := DivisorsCount + 1;
      if Number<>i2 then
      begin
        pDivisors^[DivisorsCount] := Divisor;
        DivisorsCount := DivisorsCount + 1;
      end ;
    end;
    Inc(i);
  until false ;
  AsPrime := (DivisorsCount = 2) and ((pDivisors^[0] = 1) and (pDivisors^[1] = Number));
end;

Cordialement.