objet avec string et plantage

Version imprimable

Bonjour,
voici mon bout de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
type
  MonObj = class(TObject)
  private
  public
  MaChaine : String;
  end;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  MonOccurence : MonObj
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
MonOccurence.MaChaine := 'coucou';
Edit1.text := MonOccurence.MaChaine;
end;

J'ai un plantage, au debug, sur la ligne
MonOccurence.MaChaine := 'coucou';

il faut surement que je crée MonOccurence, mais je ne vois pas comment créer une chaine dans un MonObj.create.

Merci pour votre aide.

Il est clair qu'il faut créer (et détruire après utilisation) MonOccurence.

Code:

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  MonOccurence := MonObj.Create;
  MonOccurence.MaChaine := 'coucou';
  Edit1.text := MonOccurence.MaChaine;
  MonOccurence.Free;
end;

tant qu'à faire...

Code:

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
  MonOccurence := MonObj.Create;
  TRY
   MonOccurence.MaChaine := 'coucou';
   Edit1.text := MonOccurence.MaChaine;
  FINALLY
   MonOccurence.Free;
  END ;
end;

21/08/2006, 09h53
Bloon
Si tu as besoin de MonOccurrence pendant toute la durée de vie de la fenêtre, il faut la créer dans le OnCreate de la fenêtre et la détruire dans le OnDestroy :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.FormCreate(Sender: TObject); begin MonOccurrence := MonObj.Create; end; procedure TForm1.FormDestroy(Sender: TObject); begin MonOccurrence.Free; end;
Bloon
21/08/2006, 10h57
delphidebutant

Merci pour votre aide
Je ne voyais pas comment écrire la fonction MonObj.create.
En fait, il suffit de l'appeler dans le code, ce qui n'était pas évident, à priori...