Einzelnen Beitrag anzeigen

Alex_ITA01

Registriert seit: 22. Sep 2003
1.115 Beiträge
 
Delphi 12 Athens
 
#1

Objekte / Freigaben / Free / Nil

  Alt 9. Okt 2013, 15:25
Hallo zusammen,
ich habe folgendes Beispiel und eigentlich zwei Fragen dazu:

Delphi-Quellcode:
unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

Type
  TFreeObjList = Class (TStringList)
    destructor Destroy; override;
  end;

  TMyOwnObject = class
  protected
  private
    Myfrm : TForm;
    function CheckA : boolean;
  public
    a : SmallInt;
    b : Double;
    c : TDateTime;
    d : AnsiString;
    e : String[40];
    ObjInternList : TFreeObjList;

    function CheckB : Boolean;

    constructor Create;
    destructor Destroy; override;
  end;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    tmpObject : TMyOwnObject;
    MyObjList : TFreeObjList;
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

{---------------------------------------------------------------------------}
{------------ TFreeObjList- Stringliste mit Freigabe aller Objekte ---------}
{---------------------------------------------------------------------------}
destructor TFreeObjList.Destroy;
Var
  i : Integer;
  TmpObj : TObject;
begin
  for i:=0 to Count-1 do
  begin
    TmpObj := Objects[i];
    if Assigned(TmpObj) then
      FreeAndNil(TmpObj);
  end;
  Inherited Destroy;
end;
{---------------------------------------------------------------------------}
{ TMyOwnObject }
{---------------------------------------------------------------------------}
function TMyOwnObject.CheckA: boolean;
begin
  Result := A <> 0;
end;
{---------------------------------------------------------------------------}
function TMyOwnObject.CheckB: Boolean;
begin
  Result := B <> 0.0;
end;
{---------------------------------------------------------------------------}
constructor TMyOwnObject.Create;
begin
  Myfrm := TForm.Create(Application);
  ObjInternList := TFreeObjList.Create;

  a := 1;
  b := 2;
  c := Now;
  d := 'Hello';
  e := 'World';
end;
{---------------------------------------------------------------------------}
destructor TMyOwnObject.Destroy;
begin
  ObjInternList.Free;

  if Assigned(ObjInternList) then
    Sleep(0);

  inherited;
end;
{---------------------------------------------------------------------------}
procedure TForm4.FormCreate(Sender: TObject);
begin
  MyObjList := TFreeObjList.Create;
end;
{---------------------------------------------------------------------------}
procedure TForm4.FormDestroy(Sender: TObject);
var
  i : Integer;
  aObj : TMyOwnObject;
begin
  MyObjList.Free;

  if Assigned(tmpObject) then
  begin
    if tmpObject.CheckA then
      Sleep(0);
    if Assigned(tmpObject.ObjInternList) then
      Sleep(0);
  end;

  if Assigned(MyObjList) then
  begin
    for i := 0 to MyObjList.Count - 1 do
    begin
      aObj := MyObjList.Objects[i] as TMyOwnObject;
      if Assigned(aObj) then
      begin
        if aObj.CheckA then
          Sleep(0);
        if aObj.CheckB then
          Sleep(0);
      end;
    end;
  end;
end;
{---------------------------------------------------------------------------}
procedure TForm4.Button1Click(Sender: TObject);
var
  aObj : TMyOwnObject;
begin
  if Assigned(MyObjList) then
  begin
    aObj := TMyOwnObject.Create;
    MyObjList.AddObject(TimeToStr(aObj.c), aObj);
  end;
end;
{---------------------------------------------------------------------------}
procedure TForm4.Button2Click(Sender: TObject);
begin
  if Assigned(MyObjList) and (MyObjList.Count > 0) then
  begin
    tmpObject := MyObjList.Objects[0] as TMyOwnObject;
    if Assigned(tmpObject) then
      Sleep(0);
  end;
end;
{---------------------------------------------------------------------------}
end.
Die Reihenfolge ist erst den Button1 zu betätigen, dann den Button2.
Da wird sich auf eine gloable Variable der Inhalt des ersten Objektes geholt.

Wenn ich dann die Anwendung beende, passieren eigentlich zwei Dinge:
1) Das Objekt ist immernoch vorhanden und es kann drauf zugegriffen werden obwohl die Liste alle ihre Objekte durchgegangen ist und FreeAndNil gesagt hat
if Assigned(tmpObject) then
2) Vor dem Aufruf von "MyObjList.Free;" enthält das gloable Objekt noch den vollständigen Inhalt (inkl. des AnsiStrings "Hello"). Nach dem Aufruf von "MyObjList.Free;" ist bei dem globalen Objekt bis auf dem AnsiString noch alle vorhanden. Der AnsiString ist auf einmal nicht mehr "Hello" sondern ein Leerstring. Ich hätte doch dann jetzt erwartet, dass entweder alles weg ist (=Nil) oder noch alles da ist.

Könnt ihr mich hier mal bitte aufklären?
Umgebung = XE4

Gruß
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat