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