Verständnisfrage Objektfreigabe

[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;