propriété)

Version imprimable

J'ai créé une unité contenant ce 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
33
34
35
36
37
38
39
40
41
42
unit Weathers;
 
interface
 
uses
  Classes;
 
type
  TLocalite = record    // Structure décrivant le lieu choisi
    Id, Name, Time, Latitude, Longitude, Sunrise, Sunset, Zone : string;
  end;
 
  TWeather = class(TComponent)
  private
    FLocalite : TLocalite;
  public
    property Localite : TLocalite read FLocalite;
    constructor Create(Owner : TComponent); override;
    destructor Destroy;
    function MettreAJour : boolean;
  end;
 
implementation
uses
  Forms;
 
constructor TWeather.Create(Owner: TComponent);
begin
  inherited;
end;
 
destructor TWeather.Destroy;
begin
  inherited;
end;
 
function TWeather.MettreAJour : boolean;
begin
   FLocalite.ID := 'test';
end;
 
end.

Sur une Form, j'ai posé un bouton dont l'evenement OnClick appelle la procedure MettreAJour :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Weathers;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  UnWeather : TWeather;  
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  UnWeather.MettreAJour;
end;
 
end.

Lorsque je clique sur le bouton, j'ai une violation d'acces memoire. Pourquoi?
Comment écrire des valeurs dans le record "Localite" ?

Merci d'avance et désolé pour cette question de Débutant.

01/12/2012, 15h31
Cl@udius

Salut

Ta variable UnWeather de Unit1 n'est pas initialisée. Il manque l'appel au constructeur de la classe. ;)

@+
01/12/2012, 15h31
BuzzLeclaire

Salut

Un petit SetLength t'aiderai ?

Code:

SetLength(Flocalite, x);

Où x est le nombre de record mettre en mémoire.
01/12/2012, 15h41
iznogoud_23

Citation:

Envoyé par Cl@udius

Salut

Ta variable UnWeather de Unit1 n'est pas initialisée. Il manque l'appel au constructeur de la classe. ;)

@+

Et Merde... quelle nouille....:aie:
C'est les conneries les plus grosses les plus invisibles
01/12/2012, 15h42
Cl@udius

Vi vi, je confirme. :mrgreen:

héhé

et n'oublis pas de mettre Weather dans la section publique de la TForm

de mettre

Weather := TWeather.Create;

dans le OnCreate de TForm

et

Weather.Free

dans le OnDestroy de TForm.

comme ceci donc :
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 33 Unit Main; interface uses ...; type TForm1 = class(TForm) procedure Form1Create(Sender:TObject); procedure Form1Destroy(Sender:TObject); private public Weather : TWeather; end; var Form1 : TForm1; implementation procedure TForm1.Form1Create(...); begin Weather := TWeather.Create; end; procedure TForm1.FormDestroy(...); begin Weather.Free; end; end.
Si tu déclare Weather dans les Var d'interface/implementation de l'unit il faut le créer et libérer comme cela (ou le metter dans une unité WeatherWidget.pas avec un objet déjà définit) :
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 Unit Main; interface uses ...; type TForm1 = class(TForm) private public end; var Form1 : TForm1; Weather: TWeather; implementation initialization Weather := TWeather.Create; finalization Weather.Free; end.

02/12/2012, 19h54
paulfr

Bonjour,

A premiere vue il me semblerait que la dcl record du type TLocalite ne soit pas correcte, String ne définissant pas la longueur des champs.
Sous D3 j'aurai défini les champs à String[x].
Les exemples trouvés dans D4 et D2006 indiquent un record avec un String uniquement dans le cas d'une dcl de variable.

D2006 / Reference.pdf

Citation:

Par exemple, la déclaration suivante crée un type enregistrement nommé TDateRec.

type
TDateRec = record
Year: Integer;
Month: (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
Day: 1..31;
end;

...

Au lieu de définir des types d'enregistrement, vous pouvez utiliser directement la construction record ... dans des déclarations de variable :

var S: record

Nom : string;
Age : Integer;
end;

PL