Bonjour

Ce bout de code n'aurait pas plutôt sa place sur codyx.org ?

Cordialement.

Bonsoir

Une petite remarque en passant :
  Dans UTable tu déclares un type "table = array[0..N] of Liste" hors ta fonction "hachage" renvoie forcément un nombre supérieur à 0 du fait du +1 "result := clef(c) mod N + 1"; donc tu n'utiliseras jamais la cellule indexée par 0.

N.B. Il n'est pas nécessaire de laisser dans ton zip les fichiers inutiles (comme les .dcu).

Cordialement.

As tu coché dans les options du projet les options "Erreurs à l'execution", c'est-à-dire la vérification des limites, des E/S, des débordements ?

N.B. Chanceux va :P, Moi je ne l'ai executé qu'une seule fois pour voir l'exception.

Cordialement.

Bonsoir

J'ai une exception ERangeError "Erreur de vérification d'étendue" ligne 241 de l'unité Lab1.

J'ai corrigé le code comme suit pour que l'erreur disparaisse :
   ptec := tbpr[nbpr]; // Et non  ptec := tbpr[nbpr-1];

N.B. Je n'ai pas vérifier si cela était ce qu'il fallait effectivement faire, je voulais juste voir le résultat ;)

Cordialement.

Bonsoir

J'ai pas testé ton application, juste regardé brievement le code, mais vu que l'on parle d'optimisation, ne serait-il pas plus rapide de changer la fonction root comme suit :

function Root(N: Longword): Longword;
var
  Temp : LongWord ;
begin
  Result := 1;
  Temp   := 3;
  while ( N > Temp ) do
  begin
    Dec(N, Temp);
    Inc(Result);
    Inc(Temp,2);
  end;
  Inc(Result);
end;

Ceci afin d'éviter la répétition du calcul Result*2 + 1.

N.B. La fonction proposée, si ça se trouve, est elle aussi améliorable ;)

Cordialement.

Conclusion:  
  Voilà : et ???? ;P
  améliorations : Voir commentaires de Cirec
  bugs : En si peu de lignes, ça m'étonnerait quand même ;)
  conseils : Fournit au moins un programme qui l'utilise ton composant.
  optimisations : Pas la peine de perdre du temps dans ce cas précis.
  remarques : Nécéssité d'un tel composant ???

Cordialement.

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 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.

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.

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.