Verständnisfrage Objektfreigabe

[WIng2005]

Hallo Gemeinde,

ich habe ein Problem mit folgendem Code (grob gekürzt):

Delphi-Quellcode:

procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var geraet:TGeraet;   
begin
try
  if (key=vk_return) or (key=vk_tab) then Begin
  try
    geraet:=Tgeraet.create(edit.Text);
  except
    //mach was
    exit;
  end;
//mach was 
end;//if key
finally
freeandnil(geraet); //<- Zugriffsverletzung
end;
end;

Deklariere ich "geraet" global funktioniert es.

Delphi-Quellcode:

unit test;

interface

uses
  //

type
  TForm1 = class(TForm)
    //
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation
uses //
{$R *.dfm}

var geraet:TGeraet;  //<- So funktioniert es


procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Begin
//
end;

Hat irgendwer ne Idee, warum ich das lokal deklarierte geraet nicht freigeben kann?

[DeddyH]

Wenn die If-Abfrage false liefert, wird das Objekt gar nicht erst erzeugt. Besser wäre es IMHO so:

Delphi-Quellcode:

procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var geraet:TGeraet;   
begin
  if (key=vk_return) or (key=vk_tab) then Begin
  try
    geraet:=Tgeraet.create(edit.Text);
    try
      //machwas mit geraet
    finally
      freeandnil(geraet); 
    end;
  except
    //mach was
    exit;
  end;
  //mach was
  end;//if key
end;

[Muetze1]

Zitat von DeddyH:

Wenn die If-Abfrage false liefert, wird das Objekt gar nicht erst erzeugt.

Und das Problem selbst wegen der AV kommt aber eigentlich eher daher, dass es eine lokale Variable ist und diese nicht intialisiert wird und dadurch ist die sehr sehr gross, dass die Variable nicht gerade nil ist.

[DeddyH]

Stimmt, das vergaß ich noch zu erwähnen.

[WIng2005]

Mmmh, ich ging davon aus, dass freeandnil prüft, ob es überhaupt etwas zum freigeben gibt und in dem Fall, dass die If-Abfrage false liefert eben nichts freigegeben wird.

[DeddyH]

Ja, aber das setzt natürlich voraus, dass das Objekt mit nil initialisiert wird, was bei lokalen Variablen nicht der Fall ist (siehe Muetzes Post).

[WIng2005]

Alles klar, das hilft mir weiter. Habt vielen Dank!!!