Probleme erreurRésolu

Question

salut , 

j'ai fait un programme qui doit crer des composant 
tout fonctionne bien sauf quand je quitte, la ya plein 
d'erreur qui apparaisse 
je comprend vraiment pas pq

voici mon code :


Procedure  TForm1.CommencerCaptures(Frequence : Integer) ;  
var
x : integer ;
begin
For x := 1 to Length(Panels) do
begin
Panels[x] := TPanel.Create(self);
With Panels[x] do
begin
  Parent := ScrollBox1 ;
  Width := ScrollBox1.Width - 30 ;
  Height := Width ;
  Left := 5 ;
  Top := ((x-1) * Width) + (x * 10) ;
end;
Images[x] := TImage.Create(self);
With Images[x] do
begin
  Parent := Panels[x] ;
  Width := Panels[x].Width - 20 ;
  Height := Width ;
  Left := 10 ;
  Top := 10 ;
  Stretch := True ;
  Tag := x ;
  OnClick := ImageClick ;
end;
Capturer(Images[x]) ;
Pause(Frequence);
Application.ProcessMessages ;
end;
Timer1.Enabled := False ;
end

procedure Capturer(Image : TImage);
begin
Image.Picture.Bitmap.Width := Screen.Width ;
Image.Picture.Bitmap.Height := Screen.Height ;
BitBlt(Image.Picture.Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, SrcCopy);
ReleaseDC(GetDesktopWindow, GetDC(GetDesktopWindow));
end;

WhiteHippo · Accepted Answer

Modif 1 : Garantir que la fenetre se reaffiche dans tous les cas et invalider le bouton pour eviter les clicks non désirés !! procedure TForm1.Button1Click(Sender: TObject); begin SetLength(Panels, 10) ; SetLength(Images, Length(Panels)) ; ShowWindow(Handle, SW_SHOWMINIMIZED) ; button1.Enabled := false ; try CommencerCaptures(500); finally ShowWindow(Handle, SW_NORMAL) ; button1.Enabled := true ; end ; end; Modif 2 : Attention les "array of" commence à partir de 0 et non 1 !!! (à modifier dans CommencerCaptures et DeSelection d'où l'erreur !! For x : = 0 to Length(Panels)-1 do Modif 3 : Désallouer les objets à la fin ce serait quand même mieux, non procedure TForm1.Button2Click(Sender: TObject); var i : integer ; begin For i := 0 to Length(Panels)-1 do begin if ( Images[i]<>NIL ) then TImage(Images[i]).Free ; if ( Panels[i]<>NIL ) then TPanel(Panels[i]).Free; end ; SetLength(Images, 0) ; SetLength(Panels, 0) ; close ; end; Cordialement.

cs_Delphiprog · Answer

On doit aussi deviner les erreurs ? 


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

cricri_b34 · Answer

arf ouais chu d&#233;sesp&#233;rer pq mon programme fonctionne bien durant l'ex&#233;cution 
mais quand je veux le quitter ...

tu peux telecharger les sources a cette adresse ; 

http://copsoft.dyndns.org:81/ecureuil/Source.zip

cricri_b34 · Answer

k kool merci

mais 1 : un tableau dynamique commence a 0 et se termine a length(tableaudinamique) ?

2 : pour lib&#233;rer le tableau on peut pas faire Tableau.free tout simplement ?
et c quand qu'il faut le lib&#233;rer et pourquoi ?

cricri_b34 · Answer

J'ai tout fait ce que tu ma dis mais ca bug encore quand je quitte?

cricri_b34 · Answer

a non...
ca marche J'avais juste pas mi length(panels)-1 ...?
length(tableau) renvoie la taille + 1 ??

cricri_b34 · Answer

Si je ne lib&#232;re pas le tableau le programme ne bug pas
Est ce que je suis oublig&#233; de le lib&#233;rer?

WhiteHippo · Answer

Non, Delphi s'en charge, MAIS c'est une question de principe; pour moi &#224; chaque allocation doit correspondre une desallocation.

Cordialement.

cricri_b34 · Answer

ok 
et pourquoi length(Tableau) renvoie la taille du tableau + 1?

WhiteHippo · Answer

NON, Length(Tableau) te renvoie le nombre d'&#233;l&#233;ments, c'est &#224; dire la taille exacte de ton tableau.
 
Quelques exemples :

Suppose que tu as 4 &#233;l&#233;ments commen&#231;ant &#224; partir de 0 :
0 1 2 3 =  4 &#233;l&#233;ments

 Length (Tableau) =4 mais la boucle for ira de 0 &#224; 3= (4-1)

suppose maintenant que tu as 8 &#233;l&#233;ments commen&#231;ant &#224; partir de 0 :
0 1 2 3 4 5 6 7 = 8 &#233;l&#233;ments

 Length (Tableau) =8 mais la boucle for ira de 0 &#224; 7=(8-1)

Cordialement.

cricri_b34 · Answer

ok merci

Probleme erreur

11 réponses

Votre réponse

Discussions similaires