Discussion :

[retwas]

Bonjour,

J'ai un petit problème avec mon programme.
Quand je clic sur un TButton je dessine sur un TCanvas.

Au premier clic j'ai une violation d'accès, et après tout marche correctement.

Le problème c'est que en pas à pas je passe dans chacune de mes procédures sans aucun problème et à la fin de mon onClick du bouton sur le end; j'ai la violation d'accès...

Comment je peut faire pour savoir d'ou vient réellement le probleme?

Merci

EDIT : Quand je met ce code en commentaire j'ai plus le message, mais je vois pas trop le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  ptTmp : array of TPoint;
  i : integer;
begin
  SetLength(ptTmp, Length(ptPlan));
  if Length(ptPlan) > 0 then
    for i := 0 to Length(ptPlan) do
    begin
      ptTmp[i].X := untDecalage + ((ptPlan[i].X - untDecalage) div oldMarkTop)  * untMaitreTop;
      ptTmp[i].Y := untDecalage + ((ptPlan[i].Y - untDecalage) div oldMarkLeft) * untMaitreLeft;
 
      ptPlan[i].X := ptTmp[i].X;
      ptPlan[i].Y := ptTmp[i].Y;
    end;
 
  FreeAndNil(ptTmp);

[retwas]

Finalement j'ai modifié mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  x, y : integer;
  i : integer;
begin
  if Length(ptPlan) > 0 then
    for i := 0 to Length(ptPlan) do
    begin
      x := untDecalage + ((ptPlan[i].X - untDecalage) div oldMarkTop)  * untMaitreTop;
      y := untDecalage + ((ptPlan[i].Y - untDecalage) div oldMarkLeft) * untMaitreLeft;
 
      ptPlan[i].X := x;
      ptPlan[i].Y := y;
    end;

Mais si quelqu'un a une solution je suis preneur

[Archimède]

Length(ptPlan) comprend l'indice 0 donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i:=0 to length(ptPlan)-1

ou high(ptPlan)

@+

[Archimède]

De plus le FreeAndNil(ptTmp); doit te génerer une erreur.
Si ton tableau était un tableau d'objets à libérer, dans une boucle, tu ferais :
tableau[i].free; mais la destruction de ton tableau ici ne s'impose pas...
Tu peux toujours faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  setlength(ptTmp,0);

pour le vider

[retwas]

Effectivement, merci beaucoup Archimède