Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3501 connectés 

  FORUM HardWare.fr
  Programmation

  [Delphi] [dernière ligne droite] Détruire une form proprement...

 
 


Dernière réponse
Sujet : [Delphi] [dernière ligne droite] Détruire une form proprement...
Tetedeiench Ouh ma foi C zouli ...
 
Je le note :jap:

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Tetedeiench Ouh ma foi C zouli ...
 
Je le note :jap:
antp c'est pas un compo visuel.
ex :

Code :
  1. with TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
  2.   try
  3.     unentier := ReadInteger('Section', 'Clé', Valeur par defaut);
  4.     unechaine := ReadString('Section', 'Clé2', Valeur par defaut );
  5.     WriteBool('Section', 'Clé3', valeur);
  6.   finally
  7.     Free;
  8.   end;


 
etc...

 

[edtdd]--Message édité par antp--[/edtdd]
Tetedeiench Tinifile :(
antp

Tetedeiench a écrit a écrit :

Merde, il est ou ce composant ?
 
je le vois pas :(  




 
quel compo ?

Tetedeiench Merde, il est ou ce composant ?
 
je le vois pas :(
antp haaa j'arrive trop tard, c pcq y a un super topic de 8 pages sur un boolay et ses 1 millions de mail sur software & reseau
 
Release;
Freeandnil(ModifierBateau);
 
normal que ca plante
 
Release -> libère la form quand elle a traité tous ses évenements
FreeAndNil -> libère la form tt de suite et la met a nil
 
tu dois faire:
 
Release;
ModifierBateau := nil;
 
la form sera bien libérée par le release (normalement).
 
 
edit: apparemment la solution de Poire avec le caFree est bonne aussi, ça doit faire la même chose.

 

[edtdd]--Message édité par antp--[/edtdd]
[SDF]Poire

Tetedeiench a écrit a écrit :

ouaip, tu dois avoir raison ;)  




Oui oui je te jure :D  
 :hello:

Tetedeiench ouaip, tu dois avoir raison ;)
[SDF]Poire euh... T fada ? utilise TIniFile pour sauver des options... va pas te galéré avec 1 TFileStream
Tetedeiench Oui mais bon, ca reste un projet ...
 
Donc on veut montrer qu'on sait en faire des choses ;)
 
Si on y arrive pas pour le flux, on fera via le Tinifile, sois en persuadé !
 
On aura pas créé de composant par contre, mais on aura programmé un menu de la maurkitue a gauche ;)
[SDF]Poire

Tetedeiench a écrit a écrit :

 
Plus que 3 jours, et pas mal de choses a faire ( un flux au démarrage pour lire un fichier texte contenant des données "basiques" qu'on doit mémoriser



Pour ça utilise un TIniFile C trés pratique  ;)

Tetedeiench

[SDF]Poire a écrit a écrit :

c simple : caFree demande a libéré la form à la fermeture au lieu de la cacher.  
G eu le même pb y a pas longtemps ;)
Merci Buitoni  :jap:  




Ouh que oui bourdail :love:
 
Plus que 3 jours, et pas mal de choses a faire ( un flux au démarrage pour lire un fichier texte contenant des données "basiques" qu'on doit mémoriser, pas mal de Tform d'ajout, modification et suppression d'enregistrement (chiant) et quelques autres trucs...
 
MAIS HEUREUX BOURDAIL on a plus d'obstacle a priori...
 
Meme OLE s'est plié a notre volonté ;)

[SDF]Poire c simple : caFree demande a libéré la form à la fermeture au lieu de la cacher.  
G eu le même pb y a pas longtemps ;)
Merci Buitoni  :jap:
Tetedeiench MAGNIFIQUE SDF POIRE !
 
Décidément, tu es mon dieu :)
 
Tu peux m'expliquer cependant ?
[SDF]Poire On a à chaque fois qq secondes de décalage et C relou ;)
[SDF]Poire procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;
 
+ de free ou autre et roulez :)
Tetedeiench

[SDF]Poire a écrit a écrit :

il faut faire d'abord le close puis le free en vérifiant que C pas à nil....  




 
Je peux pas faire de close, ca équivaut a diminuer la form (elle est en TformStyle = MDIchild )
 
Donc des que l'utilisateur veut la fermer ben je la détruit, tout simplement.

 

[edtdd]--Message édité par Tetedeiench--[/edtdd]
Tetedeiench Ce qui est bizarre, C que sur pas mal de forms de mon projet, ca passe ...
 
Sur d'autres, ca passe pas .
 
Capte pas :(
[SDF]Poire il faut faire d'abord le close puis le free en vérifiant que C pas à nil....
Tetedeiench nop, parce que la fonction au dessus s'execute avant le close ...
 
Les lignes freeandnil sont dans le "Onclose" de la Tform ...
[SDF]Poire

Tetedeiench a écrit a écrit :

 
Ce qui est étrange, C que si j'apelle  ModifierBateau.close apres la fonction ci dessus, ca merde.
 
Si je ne l'apelle pas, et que je clique sur la croix de la fenetre apres la modif, ca marche...
 
Donc franchement, je sais pas :(  




Et t'as pas le droit d'appeler ModifierBateau.close si tu a détruit ModifierBateau C pour ça que t'as une erreur mémoire

Tetedeiench

rufo a écrit a écrit :

et avec la méthode destroy de l'objet TForm? ça marche, non?  




 
Exactement pareil :(

Tetedeiench Pareil poire, cher poire ;)
 
Ouip, on a testé, sans succes... Idem avec Sender as Tobject :(
 
Ce qui est étrange, C que si j'apelle  ModifierBateau.close apres la fonction ci dessus, ca merde.
 
Si je ne l'apelle pas, et que je clique sur la croix de la fenetre apres la modif, ca marche...
 
Donc franchement, je sais pas :(
rufo et avec la méthode destroy de l'objet TForm? ça marche, non?
[SDF]Poire T'as essayé  
ModifierBateau.Free;
ModifierBateau := nil;
 
sinon tu fais
if ModifierBateau <> nil then
begin
  ModifierBateau.Free;
  ModifierBateau := nil;
end;
Tetedeiench Vous auriez une méthode pour détruire, mais vraiment détruire une form ?
 
Parce que la, quand je fais ca :
 

Code :
  1. procedure TModifierBateau.BitBtn1Click(Sender: TObject);
  2. begin
  3. if WarningConfirm.ShowModal = mrok then begin
  4. //ShowWindow(RechercheModifBateau.Handle, SW_SHOW);
  5. requetemodifbateau.Active := FALSE;
  6. requetemodifbateau.SQL.Clear;
  7. requetemodifbateau.SQL.Add('UPDATE bateaux SET nom = :nom, immatriculation = :imm , nbpers = :nbperss WHERE N°Bateau = :Numbateau');
  8. requetemodifbateau.Params[0].AsString := nom.Text;
  9. requetemodifbateau.Params[1].AsString := Immatriculation.Text;
  10. requetemodifbateau.Params[2].AsInteger := StrToInt(nbpers.Text);
  11. requetemodifbateau.Params[3].AsInteger := RechercheModifBateau.DBrechercheBateau.Fields[0].A
  12. sInteger;;
  13. requetemodifbateau.ExecSQL;
  15. ModifierBateau.Close;
  16. end;
  17. end;
  19. procedure TModifierBateau.FormClose(Sender: TObject;
  20.   var Action: TCloseAction);
  21. begin
  23. Release;
  24. Freeandnil(ModifierBateau);
  26. end;


 
Ca me renvoie un access violation, qui disparait des que j'enleve la dernière ligne...
 
j'ai essayé de détruire cette form avec freeandnil depuis une autre Tform, mais ca a pas marché :(
 
Il y a un moyen d'éviter cette erreur ?


Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)