Stockage de points ds un tableau

matikate -  
 matikate -
Bonjour,
j'aimerais svp que vs m'aidiez. voici mon probleme : j'ai un programme en delphi, ds ce programme, j'ai besoin de stocker un certain nombre de points dans un tableau, ces points sont les points de courbures d'une forme qui sont detectes au fur et a mesure ds le programme, c'est a dire, a chak fois que je rencontre l'un de ces points, je le stocke ds un tableau.

merci de donner suite a ce msg et si vs avez besoin de plus d'nfos, je suis a votre disposition.

encore merci
A voir également:

1 réponse

Réponse 1 / 1
matikate
 
je vais eclaircir ma demande en esperant que qq1 m'aidera
j'ai cette procedure ds un programme, j'ai aussi la procedure ColorPointz (X,Y) (qui colorie un pixel en violet); grace a cette procedure, j'ai pu detecter les points dnt j'ai besoin et je dois ts les stocker ds un tableau. cad : a chak fois que je rencontre un "colorpoint(x,y)" je stocke les coordonnes (x,y)du point dans un tableau, et a la fin j'ai besoin de tt les points colories en violet stockés ds un mm tableau.

merci de m'aider svp.


procedure TXLWDOSForm1.Button4Click(Sender: TObject);
var i1,i2,i3,i4,j1,j2,j3,j4,k1,k2,k3,k4,l1,l2,l3,l4,pp,ppp,cptdeb,cptfin,vlj,t6,d,gh1,gh2,g100:integer;
n,n1,n2,n3,n4,n5,n10,m1,m2,m3,m4,m5,m6,f2,f3,f4,jl,djl,vldj,t1,t2,t3,t4,t5,gh3,gh4,k100:integer;
u,ip:integer;
v,control,vv:Boolean;
// tabl:array[1..300]of cord1;
//cntg:array[0..500]of cord;
//cntd:array[0..500]of cord;
jond:array[1..300]of cord1;
jong:array[1..300]of cord1;
dijd:array[1..300]of cord1;
dijg:array[1..300]of cord1;
// jond1:array[1..300]of cord1;
// jong1:array[1..300]of cord1;
// dijd1:array[1..300]of cord1;
// dijg1:array[1..300]of cord1;
str1,str2,str3,str4,str5,str6,str7,str8,str9,strm,jh1,jh2,jh3,jh4:string;
label etiq,etiq1,etiq2,etiq3,etiq4,etiq5,etiq6,etiq7,etiq8,etiq9,etiq10,etiq11,etiq12,etiq13,etiq14;

begin
combobox1.Clear;
XLWDOSform5.memo1.Lines.Clear;
LireImage(1);
setlength(mat4,0,0);
setlength(mat4,bmpimg2.Width,500);
setlength(mat5,0,0);
setlength(mat5,bmpimg2.Width,500);
setlength(mat6,0,0);
setlength(mat6,bmpimg2.Width,500);

for i1:=1 to 300 do
begin
lj[i1].xx:=0;
lj[i1].yy:=0;
lj[i1].zz:=0;
ldj[i1].xx:=0;
ldj[i1].yy:=0;
ldj[i1].zz:=0;
tabb[i1].xx:=0;
tabb[i1].yy:=0;
tabb[i1].zz:=0;
tabl[i1].cc:='';
tabl[i1].hh:='';
jong[i1].cc:='';
jong[i1].hh:='';
jond[i1].cc:='';
jond[i1].hh:='';
dijg[i1].cc:='';
dijg[i1].hh:='';
dijd[i1].cc:='';
dijd[i1].hh:='';
jong1[i1].cc:='';
jong1[i1].hh:='';
jond1[i1].cc:='';
jond1[i1].hh:='';
dijg1[i1].cc:='';
dijg1[i1].hh:='';
dijd1[i1].cc:='';
dijd1[i1].hh:='';
epsl[i1]:=0;
epsl2[i1]:=0;
end;


j1:=0; ///initialisation a la 1ére ligne
pp:=0;ppp:=0;pp1:=0;
while ppp=0 do
begin
i1:=0;
while (i1<bmpImg2.width+2)do
begin
if mat3[j1,i1]=1then begin
//memo1.Lines[i1]:=inttostr(j1);
cptdeb:=i1;
i1:=i1+1;n5:=j1;
while (i1<bmpImg2.width+2)and(mat3[j1,i1]=1)do i1:=i1+1;
cptfin:=i1-1;pp:=pp+1;ppp:=1;pp1:=pp1+1;tabl[pp1].cc:='true';tabl[pp1].hh:='false';
mat4[(pp-1),0].xx:=j1;mat4[(pp-1),1].xx:=cptdeb;
mat4[(pp-1),0].yy:=1;mat4[(pp-1),1].yy:=cptfin;
mat4[(pp-1),0].zz:=pp1;colorpoint(cptdeb,j1);
combobox1.Items.Add('P'+inttostr(pp1));
end
else i1:=i1+1;
end;
j1:=j1+1;
end;

n2:=0;jng:=0;djg:=0;jnd:=0;djd:=0;jl:=0;djl:=0;m6:=0;vlj:=0;vldj:=0;control:=false;ep:=0;ed:=0;
for j1:=n5+1 to bmpimg2.Height-1 do
begin //1
i1:=0;

//v:=false; ///pour controller la fin de l'image
//for n:=0 to bmpImg2.width+1 do if mat3[j1,n]=1 then v:=true;
//if v=false then goto etiq3;

while (i1<bmpImg2.width+2)do
begin //2
if mat3[j1,i1]=1then begin //3
cptdeb:=i1;
i1:=i1+1;
while (i1<bmpImg2.width+2)and(mat3[j1,i1]=1)do i1:=i1+1;
cptfin:=i1-1;
n2:=n2+1;
for k1:=0 to pp-1 do
begin //4
k2:=mat4[k1,0].yy;
i2:=mat4[k1,k2].xx;
j2:=mat4[k1,k2].yy;
if cptfin<i2 then begin //5
decalage(k1,pp);
mat4[k1,0].xx:=j1;mat4[k1,1].xx:=cptdeb;
mat4[k1,0].yy:=1;mat4[k1,1].yy:=cptfin;
mat4[k1,0].zz:=pp1+1;pp1:=pp1+1;pp:=pp+1;
combobox1.Items.Add('P'+inttostr(pp1));
tabl[pp1].cc:='true';tabl[pp1].hh:='false';
colorpoint(cptdeb,j1);
goto etiq;
end; //5
if cptdeb>j2 then begin //6
if k1=pp-1 then begin //7
mat4[k1+1,0].xx:=j1;mat4[k1+1,1].xx:=cptdeb;
mat4[k1+1,0].yy:=1;mat4[k1+1,1].yy:=cptfin;
mat4[k1+1,0].zz:=pp1+1;pp1:=pp1+1;pp:=pp+1;
combobox1.Items.Add('P'+inttostr(pp1));
tabl[pp1].cc:='true';tabl[pp1].hh:='false';
colorpoint(cptdeb,j1);
goto etiq;
end //7
else goto etiq1;
end; //6
if k1=pp-1 then begin //8
if cptfin<j2 then begin //18
m1:=i1;
////////////////
v:=false;
for n:=m1 to bmpImg2.width+1 do if mat3[j1,n]=1 then v:=true;
if v=false then goto etiq13;
///////////////
while (m1<bmpImg2.width+2)do
begin //19
if mat3[j1,m1]=1then begin //25
m2:=m1;
m1:=m1+1;
while (m1<bmpImg2.width+2)and(mat3[j1,m1]=1)do m1:=m1+1;
m3:=m1-1;
if m2<=j2 then begin //21
tabb[1].xx:=cptdeb;
tabb[1].yy:=cptfin;
tabb[2].xx:=m2;
tabb[2].yy:=m3;
m4:=2;
etiq5:
v:=false;
for n:=m1 to bmpImg2.width+1 do if mat3[j1,n]=1 then v:=true;
if v=false then goto etiq6;
while (m1<bmpimg2.Width+2)do
begin //22
if mat3[j1,m1]=1then begin //23
m2:=m1;
m1:=m1+1;
while (m1<bmpImg2.width+2)and(mat3[j1,m1]=1)do m1:=m1+1;
m3:=m1-1;
if m2<=j2 then begin //24
m4:=m4+1;
tabb[m4].xx:=m2;
tabb[m4].yy:=m3;
goto etiq5;
end //24
else goto etiq6;
end //23
else m1:=m1+1;
end; //22

etiq6:
i1:=m1;
///////////////
m5:=mat4[k1,0].zz-1;
m3:=mat4[k1,0].yy;
djg:=djg+1;djl:=djl+1;
mldj[djl,0].yy:=m4;
mldj[djl,0].zz:=m3;
mldj[djl,0].xx:=m5+1;
combobox1.Items.Add('DJL'+inttostr(djl));
ldj[djl].xx:=j1-1;
ldj[djl].yy:=i2;
ldj[djl].zz:=j2;
str2:='<CP> P'+inttostr(m5+1)+' DJL'+inttostr(djl);
dijg[djg].cc:='P'+inttostr(m5+1);
colorpointz(mat4[k1,m3].yy,j1-2);
colorpointz(mat4[k1,m3].xx,j1-2);
if m3=1 then m3:=2;
for m2:=1 to m3-1 do
begin //26
mat5[m5,m2].xx:=mat4[k1,m2].xx;
mat5[m5,m2].yy:=mat4[k1,m2].yy;
mat4[k1,m2].xx:=0;
mat4[k1,m2].yy:=0;
end; //26
mat5[m5,0].xx:=mat4[k1,0].xx;
mat5[m5,0].yy:=j1-2;
mat5[m5,0].zz:=m5+1;
mat4[k1,0].xx:=0;
mat4[k1,0].yy:=0;
mat4[k1,0].zz:=0;
///////////////
pp:=pp-1;
for m2:=0 to m4-1 do
begin //27
djd:=djd+1;
pp1:=pp1+1;pp:=pp+1;
mldj[djl,m2+1].xx:=pp1;
combobox1.Items.Add('P'+inttostr(pp1));
mat4[k1+m2,0].xx:=j1;
mat4[k1+m2,0].yy:=1;
mat4[k1+m2,0].zz:=pp1;
mat4[k1+m2,1].xx:=tabb[m2+1].xx;
mat4[k1+m2,1].yy:=tabb[m2+1].yy;i1:=tabb[m2+1].yy+1;
if disjonct(tabb[m2+1].xx,tabb[m2+1].yy,j1)='adel'then begin
ed:=ed+1;
epsl2[ed]:=pp1;
end;
str2:=str2+' P'+inttostr(pp1);
dijd[djd].cc:='P'+inttostr(pp1);
dijd[djd].hh:=inttostr(djg);
colorpoint(tabb[m2+1].xx,j1);
colorpoint(tabb[m2+1].yy,j1);
end; //27
str2:=str2+' </CP>';
dijg[djg].hh:=str2;
m6:=m6+1;u:=0;
////////////////
for m2:=0 to m4-1 do
begin
v:=false;
for n10:=mat4[k1+m2-u,1].xx to mat4[k1+m2-u,1].yy do if mat3[j1+1,n10]=1 then v:=true;
if v=false then begin //40
f2:=0;
f3:=mat4[k1+m2-u,0].yy;
f4:=mat4[k1+m2-u,0].zz-1;
colorpointz(mat4[k1,f3].yy,j1);
while f2<=f3 do
begin //41
mat5[f4,f2].xx:=mat4[k1+m2-u,f2].xx;
mat5[f4,f2].yy:=mat4[k1+m2-u,f2].yy;
mat4[k1+m2-u,f2].xx:=0;
mat4[k1+m2-u,f2].yy:=0;
f2:=f2+1;
end; //41
mat5[f4,0].yy:=j1;
mat5[f4,0].zz:=mat4[k1+m2-u,0].zz;
if tabl[mat4[k1+m2-u,0].zz].cc='true' then tabl[mat4[k1+m2-u,0].zz].hh:='true'
else begin tabl[mat4[k1+m2-u,0].zz].cc:='false';tabl[mat4[k1+m2-u,0].zz].hh:='true';end;
mat4[k1+m2-u,0].zz:=0;
if k1+m2-u=pp-1 then goto etiq10;
f3:=k1+m2-u+1;
for f2:=0 to (pp-(k1+m2-u+1))-1 do
begin //42
f4:=1;
while f4<=mat4[f3+f2,0].yy do
begin//43
mat4[k1+m2-u+f2,f4].xx:=mat4[f3+f2,f4].xx;
mat4[k1+m2-u+f2,f4].yy:=mat4[f3+f2,f4].yy;
mat4[f3+f2,f4].xx:=0;
mat4[f3+f2,f4].yy:=0;
f4:=f4+1;
end; //43
mat4[k1+m2-u+f2,0].xx:=mat4[f3+f2,0].xx;
mat4[k1+m2-u+f2,0].yy:=mat4[f3+f2,0].yy;
mat4[k1+m2-u+f2,0].zz:=mat4[f3+f2,0].zz;
mat4[f3+f2,0].xx:=0;
mat4[f3+f2,0].yy:=0;
mat4[f3+f2,0].zz:=0;
end; //42
etiq10:
u:=u+1;
pp:=pp-1;
end; //40
end;
///////////////
goto etiq;
end //21
else begin //20
mat4[k1,k2+1].xx:=cptdeb;
mat4[k1,k2+1].yy:=cptfin;
mat4[k1,0].yy:=k2+1;
//////////////
v:=false;
for n:=cptdeb to cptfin do if mat3[j1+1,n]=1 then v:=true;
if v=false then begin //40
f2:=0;
f3:=mat4[k1,0].yy;
f4:=mat4[k1,0].zz-1;
colorpointz(mat4[k1,f3].yy,j1);
while f2<=f3 do
begin //41
mat5[f4,f2].xx:=mat4[k1,f2].xx;
mat5[f4,f2].yy:=mat4[k1,f2].yy;
mat4[k1,f2].xx:=0;
mat4[k1,f2].yy:=0;
f2:=f2+1;
end; //41
mat5[f4,0].yy:=j1;
mat5[f4,0].zz:=mat4[k1,0].zz;
if tabl[mat4[k1,0].zz].cc='true' then tabl[mat4[k1,0].zz].hh:='true'
else begin tabl[mat4[k1,0].zz].cc:='false';tabl[mat4[k1,0].zz].hh:='true';end;
mat4[k1,0].zz:=0;
pp:=pp-1;
end; //40
goto etiq;
end; //20
end //25
else m1:=m1+1;
end; //19

end //18
else begin //20
etiq13:
if (k2=1)and(control=true)and(d=mat4[k1,0].zz)then begin control:=false;k2:=0;colorpoint(cptdeb,j1);colorpoint(cptfin,j1);end;
mat4[k1,k2+1].xx:=cptdeb;
mat4[k1,k2+1].yy:=cptfin;
mat4[k1,0].yy:=k2+1;
v:=false;
for n:=cptdeb to cptfin do if mat3[j1+1,n]=1 then v:=true;
if v=false then begin //40
f2:=0;
f3:=mat4[k1,0].yy;
f4:=mat4[k1,0].zz-1;
colorpointz(mat4[k1,f3].yy,j1);
while f2<=f3 do
begin //41
mat5[f4,f2].xx:=mat4[k1,f2].xx;
mat5[f4,f2].yy:=mat4[k1,f2].yy;
mat4[k1,f2].xx:=0;
mat4[k1,f2].yy:=0;
f2:=f2+1;
end; //41

mat5[f4,0].yy:=j1;
mat5[f4,0].zz:=mat4[k1,0].zz;
if tabl[mat4[k1,0].zz].cc='true' then tabl[mat4[k1,0].zz].hh:='true'
else begin tabl[mat4[k1,0].zz].cc:='false';tabl[mat4[k1,0].zz].hh:='true';end;
mat4[k1,0].zz:=0;
pp:=pp-1;
end; //40
goto etiq;
end; //20
end; //8

if cptfin>j2 then begin //9
k3:=k1+1;j3:=1;
etiq2:
k4:=mat4[k3,0].yy;
i3:=mat4[k3,k4].xx;
if cptfin>=i3 then begin //10
j3:=j3+1;
if k3<pp-1 then
begin k3:=k3+1;
goto etiq2; end;
end; //10
if j3>1 then begin //11
jl:=jl+1;mlj[jl,0].yy:=j3;
combobox1.Items.Add('JL'+inttostr(jl));
lj[jl].xx:=j1;
lj[jl].yy:=cptdeb;
lj[jl].zz:=cptfin;
k3:=k1;str1:='<CP>';jnd:=jnd+1;
for i4:=1 to j3 do
begin //12
jng:=jng+1;
l1:=mat4[k3,0].zz-1;
str1:=str1+' P'+inttostr(l1+1);
jong[jng].cc:='P'+inttostr(l1+1);
jong[jng].hh:=inttostr(jnd);
mlj[jl,i4].xx:=l1+1;
mlj[jl,i4].yy:=mat4[k3,0].yy;
j4:=mat4[k3,0].yy;
colorpointz(mat4[k3,j4].yy,j1-1);
colorpointz(mat4[k3,j4].xx,j1-1);
j4:=1;
while j4<=mat4[k3,0].yy do
begin //13
mat5[l1,j4].xx:=mat4[k3,j4].xx;
mat5[l1,j4].yy:=mat4[k3,j4].yy;
mat4[k3,j4].xx:=0;
mat4[k3,j4].yy:=0;
j4:=j4+1;
end; //13
mat5[l1,0].xx:=mat4[k3,0].xx;
mat5[l1,0].yy:=j1-1;
mat5[l1,0].zz:=mat4[k3,0].zz;
mat4[k3,0].xx:=0;
mat4[k3,0].yy:=0;
mat4[k3,0].zz:=0;
k3:=k3+1;
end; //12
if jonction(cptdeb,cptfin,j1)='nabil'then begin
mat4[k1,0].xx:=j1+1;mat4[k1,1].xx:=cptdeb;
mat4[k1,0].yy:=1;mat4[k1,1].yy:=cptfin;
d:=pp1+1;control:=true;
end
else begin
mat4[k1,0].xx:=j1+1;mat4[k1,1].xx:=cptdeb;
mat4[k1,0].yy:=1;mat4[k1,1].yy:=cptfin;
ep:=ep+1;epsl[ep]:=pp1+1;
end;


if k3=pp then begin //14
mat4[k1,0].zz:=pp1+1;
mlj[jl,0].xx:=pp1+1;
pp1:=pp1+1;
if epsl[ep]=pp1 then combobox1.Font.Color:=clred;
combobox1.Items.Add('P'+inttostr(pp1));
combobox1.Font.Color:=clWindowText;
str1:=str1+' JL'+inttostr(jl)+' P'+inttostr(pp1)+' </CP>';
jond[jnd].cc:='P'+inttostr(pp1);
jond[jnd].hh:=str1;
m6:=m6+1;
pp:=(pp-j3)+1;
end //14
else begin //15
mat4[k1,0].zz:=pp1+1;
mlj[jl,0].xx:=pp1+1;
pp1:=pp1+1;
if epsl[ep]=pp1 then combobox1.Font.Color:=clred;
combobox1.Items.Add('P'+inttostr(pp1));
combobox1.Font.Color:=clWindowText;
str1:=str1+' JL'+inttostr(jl)+' P'+inttostr(pp1)+' </CP>';
jond[jnd].cc:='P'+inttostr(pp1);
jond[jnd].hh:=str1;
m6:=m6+1;
l3:=k1+j3;
for l2:=1 to(pp-k1)-j3 do
begin //16
l4:=1;
while l4<=mat4[l3,0].yy do
begin//17
mat4[k1+l2,l4].xx:=mat4[l3,l4].xx;
mat4[k1+l2,l4].yy:=mat4[l3,l4].yy;
mat4[l3,l4].xx:=0;
mat4[l3,l4].yy:=0;
l4:=l4+1;
end; //17
mat4[k1+l2,0].xx:=mat4[l3,0].xx;
mat4[k1+l2,0].yy:=mat4[l3,0].yy;
mat4[k1+l2,0].zz:=mat4[l3,0].zz;
mat4[l3,0].xx:=0;
mat4[l3,0].yy:=0;
mat4[l3,0].zz:=0;
l3:=l3+1;
end; //16
pp:=(pp-j3)+1;
end; //15
// edit3.Text:=edit3.Text+str1;
goto etiq;
end //11
else goto etiq4;
end;//9
///////////////////
if cptfin<j2 then begin //28
m1:=i1;
v:=false;
for n:=m1 to bmpImg2.width+1 do if mat3[j1,n]=1 then v:=true;
if v=false then goto etiq4;
///////////////
while (m1<bmpImg2.width+2)do
begin //29
if mat3[j1,m1]=1then begin //35
m2:=m1;
m1:=m1+1;
while (m1<bmpImg2.width+21)and(mat3[j1,m1]=1)do m1:=m1+1;
m3:=m1-1;
if m2<=j2 then begin //31
tabb[1].xx:=cptdeb;
tabb[1].yy:=cptfin;
tabb[2].xx:=m2;
tabb[2].yy:=m3;
m4:=2;
etiq7:
v:=false;
for n:=m1 to bmpImg2.width+1 do if mat3[j1,n]=1 then v:=true;
if v=false then goto etiq8;
while (m1<bmpImg2.width+2)do
begin //32
if mat3[j1,m1]=1then begin //33
m2:=m1;
m1:=m1+1;
while (m1<bmpImg2.width+2)and(mat3[j1,m1]=1)do m1:=m1+1;
m3:=m1-1;
if m2<=j2 then begin //34
m4:=m4+1;
tabb[m4].xx:=m2;
tabb[m4].yy:=m3;
goto etiq7;
end //34
else goto etiq8;
end //33
else m1:=m1+1;
end; //32

etiq8:
//edit5.Text:= edit5.Text+'ligne de disjonction'+inttostr(j1-1);
djl:=djl+1;mldj[djl,0].yy:=m4;
combobox1.Items.Add('DJL'+inttostr(djl));
ldj[djl].xx:=j1-1;
ldj[djl].yy:=i2;
ldj[djl].zz:=j2;
i1:=m1;
///////////////
m3:=pp-(k1+1);
for m2:=1 to m3 do
begin //38
n:=mat4[k1+m2,0].yy;
for m5:=0 to n do
begin //39
mat6[m2-1,m5].xx:=mat4[k1+m2,m5].xx;
mat6[m2-1,m5].yy:=mat4[k1+m2,m5].yy;
mat6[m2-1,m5].zz:=mat4[k1+m2,m5].zz;
mat4[k1+m2,m5].xx:=0;
mat4[k1+m2,m5].yy:=0;
mat4[k1+m2,m5].zz:=0;
end; //39
end; //38
for m2:=1 to m3 do
begin //40
n:=mat6[m2-1,0].yy;
for m5:=0 to n do
begin //41
mat4[k1+m2+m4-1,m5].xx:=mat6[m2-1,m5].xx;
mat4[k1+m2+m4-1,m5].yy:=mat6[m2-1,m5].yy;
mat4[k1+m2+m4-1,m5].zz:=mat6[m2-1,m5].zz;
mat6[m2-1,m5].xx:=0;
mat6[m2-1,m5].yy:=0;
mat6[m2-1,m5].zz:=0;
end; //41
end; //40
///////////////
m5:=mat4[k1,0].zz-1;
m3:=mat4[k1,0].yy;
mldj[djl,0].xx:=m5+1;
mldj[djl,0].zz:=m3;
djg:=djg+1;
str2:='<CP> P'+inttostr(m5+1)+' DJl';
dijg[djg].cc:='P'+inttostr(m5+1);
colorpointz(mat4[k1,m3].yy,j1-2);
colorpointz(mat4[k1,m3].xx,j1-2);
if m3=1 then m3:=2;
for m2:=1 to m3-1 do
begin //36
mat5[m5,m2].xx:=mat4[k1,m2].xx;
mat5[m5,m2].yy:=mat4[k1,m2].yy;
mat4[k1,m2].xx:=0;
mat4[k1,m2].yy:=0;
end; //36
mat5[m5,0].xx:=mat4[k1,0].xx;
mat5[m5,0].yy:=j1-2;
mat5[m5,0].zz:=m5+1;
mat4[k1,0].xx:=0;
mat4[k1,0].yy:=0;
mat4[k1,0].zz:=0;
///////////////
pp:=pp-1;
for m2:=0 to m4-1 do
begin //37
djd:=djd+1;
pp1:=pp1+1;pp:=pp+1;mldj[djl,m2+1].xx:=pp1;
combobox1.Items.Add('P'+inttostr(pp1));
mat4[k1+m2,0].xx:=j1;
mat4[k1+m2,0].yy:=1;
mat4[k1+m2,0].zz:=pp1;
mat4[k1+m2,1].xx:=tabb[m2+1].xx;
mat4[k1+m2,1].yy:=tabb[m2+1].yy;i1:=tabb[m2+1].yy+1;
if disjonct(tabb[m2+1].xx,tabb[m2+1].yy,j1)='adel'then begin
ed:=ed+1;
epsl2[ed]:=pp1;
end;
str2:=str2+' P'+inttostr(pp1);
dijd[djd].cc:='P'+inttostr(pp1);
dijd[djd].hh:=inttostr(djg);
colorpoint(tabb[m2+1].xx,j1);
colorpoint(tabb[m2+1].yy,j1);
end; //37
str2:=str2+' </CP>';
dijg[djg].hh:=str2;
m6:=m6+1;u:=0;
///////////////
for m2:=0 to m4-1 do
begin
v:=false;
for n10:=mat4[k1+m2-u,1].xx to mat4[k1+m2-u,1].yy do if mat3[j1+1,n10]=1 then v:=true;
if v=false then begin //40
f2:=0;
f3:=mat4[k1+m2-u,0].yy;
f4:=mat4[k1+m2-u,0].zz-1;
colorpointz(mat4[k1,f3].yy,j1);
while f2<=f3 do
begin //41
mat5[f4,f2].xx:=mat4[k1+m2-u,f2].xx;
mat5[f4,f2].yy:=mat4[k1+m2-u,f2].yy;
mat4[k1+m2-u,f2].xx:=0;
mat4[k1+m2-u,f2].yy:=0;
f2:=f2+1;
end; //41
mat5[f4,0].yy:=j1;
mat5[f4,0].zz:=mat4[k1+m2-u,0].zz;
if tabl[mat4[k1+m2-u,0].zz].cc='true' then tabl[mat4[k1+m2-u,0].zz].hh:='true'
else begin tabl[mat4[k1+m2-u,0].zz].cc:='false';tabl[mat4[k1+m2-u,0].zz].hh:='true';end;
mat4[k1+m2-u,0].zz:=0;
if k1+m2-u=pp-1 then goto etiq11;
f3:=k1+m2-u+1;
for f2:=0 to (pp-(k1+m2-u+1))-1 do
begin //42
f4:=1;
while f4&
0
matikate
 
<gras>SVP aidez moi je suis vraimment perdue et c tres urgent. je suis a votre disposition pr plus de details.merci d''avance.</gras>
0

Discussions similaires

Score qui augmente de 20 à 30 points d'un coup
Titebreizh35 -
theo.ngr17 -

2 réponses
Belote à 6 joueurs
Bererom -
Raymond PENTIER -

10 réponses