s:=apf.calcul_surface;
        ss:=basepf.calcul_surface;
        sss:=s+ss;
        if somme_surface<>0 then
          begin //Les coordonnés du millieu pondéré.
          apoint.x:=(kx*s+kxx*ss) div somme_surface;
          apoint.y:=(ky*s+kyy*ss) div somme_surface;
          end //Les coordonnés du millieu pondéré.
        else
          utile.millieu_2pt(kx,ky,kxx,kyy,apoint);

Une fuite de mémoire Que ce que c'est ? Si ce Malloc ou Getmem n'est pas équivalent aux libérations comme ceci :

// Une fuite de mémoire Que ce que c'est ?
	taille:=nb_core*sizeof(trect);
	getmem(un_array_rectangle,taille);

	freemem(un_array_rectangle,taille);

	if une condition then un bloc ou une instruction else un Bloc ou une instruction et un Bloc est représenté par {} ou le Couple Begin et End

	avec SQL select * from table where icondition en Francçais chosir une suite de nom de champs depuis une table avec une ou plusieurs conditions


// Avant une recherche de l'encadrement d'une suite de segments et de de polygones était la suivante :

procedure tcol_dessin_main.cherche_le_cadre;
var i:integer;
    first:boolean;
    index:tindex;
    maximum:integer;

procedure for_union(a:u_object.Tindex);
var aforme:Tforme;
	begin
	aforme:=formindex(a);
	if aforme=nil then exit;
	if first then
		begin
		first:=false;
		rect_select.rect:=aforme.rect;
		end
	else
		begin
		rect_select.rect.left:=math.min(rect_select.rect.left,aforme.rect.left);
		rect_select.rect.top:=math.min(rect_select.rect.top,aforme.rect.top);
		rect_select.rect.right:=math.max(rect_select.rect.right,aforme.rect.right);
		rect_select.rect.bottom:=math.max(rect_select.rect.bottom,aforme.rect.bottom);
		end
	end;

// Après une optimisation de cette recherche il n'est pas dans ce cas nécessaire d'utiliser Min et Max c'est Plus rapide
var un_pointer,dos_pointer,base_pointer:pinteger; // Un rectangle composé de 4 entiers

un:=formindex(0);
if un<>nil then
  begin
  self.rect_select.rect:=un.rect;
  base_pointer:=@self.rect_select.rect.left;
  for i:=1 to m do
        begin
        un_pointer:=base_pointer;
        dos_pointer:=@tforme(formindex(i)).rect.left;
        if un_pointer^>dos_pointer^ then // left
          un_pointer^:=dos_pointer^;
        inc(dos_pointer);
        inc(un_pointer);
      	if un_pointer^>dos_pointer^ then // top
          un_pointer^:=dos_pointer^;
        inc(dos_pointer);
        inc(un_pointer);
      	if un_pointer^<dos_pointer^ then // right
          un_pointer^:=dos_pointer^;
        inc(dos_pointer);
        inc(un_pointer);
      	if un_pointer^<dos_pointer^ then // bottom
          un_pointer^:=dos_pointer^;
      	end //for_union()
      end;

// Union de la liste des rectangles soit un rect par coeur plutot que d'utiliser Min ou Max
// J'ai ajouté ce code vous avez les images pixlisées du Cpu avec ces registre en assembleur
    un_pointer_rectangle:=prect(un_array_rectangle);
    self.rect_select.rect:=un_pointer_rectangle^
    for i:=2 to nb_core do
      	with self.rect_select.rect do
          begin
          if left<un_pointer_rectangle^.left then left:=un_pointer_rectangle^.left;
          if top<un_pointer_rectangle^.top then top:=un_pointer_rectangle^.top;
          if right>un_pointer_rectangle^.right then right:=un_pointer_rectangle^.right;
          if bottom>un_pointer_rectangle^.bottom then bottom:=un_pointer_rectangle^.bottom;
          end;
      inc(un_pointer_rectangle);
      end;

function Convertir_ce_numerique_en_string_separer_par_des_points(a_value:integer):string;
  var i,j:integer;
      s,ss:string;
  begin
  ss:='';
  s:=inttostr(a_value);
  j:=length(s);
  for i:=1 to length(s) do
    begin
    ss:=ss+char(s[i]);
    dec(j);
    if (j mod 3=0) and (j<>0) then
      ss:=ss+'.';
    end;
  Convertir_ce_numerique_en_string_separer_par_des_points:=ss;
  end; {Convertir_ce_numerique_en_string_separer_par_des_points}

//Le séparateur des milliers est un point en Français, une virgule an Américain.
function Convertir_ce_flottant_en_string(a_value:real; nombre_de_decimal:integer):string;
  var s,ss:string;
      i:integer;
  begin
  result:=Convertir_ce_numerique_en_string_separer_par_des_points(trunc(a_value))+
    ','+inttostr(round(power(10,nombre_de_decimal)*frac(a_value)));
  end;