il suffit d'apliquer une tolerance +/- sur l'echantillion.
for x := 0 to length(Table)-1 do
if InRange(Table[x],Echantillion-Tolerance,Echantillion+Tolerance) then
Listbox1.Add(format('%.6x,[Table[x]]));
La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.
|