EDIT : se sera surement plus parlant comme cela :
nbobj:=0;
while nbobj<numdiff do
begin
while posobjx<=200 do
begin
randomize;
posobjx:=random(620);
end;
randomize;
posobjy:=random(450);
setfillstyle(solidfill,yellow);
bar(posobjx,posobjy,(posobjx+20),(posobjy+15));
nbobj:=nbobj+1;
end;
le problème est que pour un seul objet cela fonctionne mais a partir de 2 cela ne va plus car posobjx a déja la valeur donnée à l'objet 1 ce qui est normal vu que c'est la meme variable
en fait j'aimerais des variables du style variable_$numero (je ne sais pas si ca existe en pascal mais je pense a cela car on le trouve en ..... php ? )
Voila je pense que g été plus clair cette fois.
[jfdsdjhfuetppo]--Message édité par bartus--[/jfdsdjhfuetppo]