TBitmap 변수를 해제 할 때 액세스 위반 - 해제 후 비트 맵 변수가 여전히 할당 되었습니까?

Question

은 내가 VCL이 코드는 응용 프로그램 양식이 있습니다

implementation 

{$R *.dfm} 

var 
    MyBitmap: TBitmap; 

procedure TFormMain.FormCreate(Sender: TObject); 
begin 
    MyBitmap := TBitmap.Create; 
end; 

procedure TFormMain.FormDestroy(Sender: TObject); 
begin 
    if Assigned(MyBitmap) then 
    MyBitmap.Free; 
end; 

procedure TFormMain.Button1Click(Sender: TObject); 
begin 
    if Assigned(MyBitmap) then 
    MyBitmap.Free; 
end; 

내가 버튼을 내가 버튼의 클릭 핸들러에서 MyBitmap.Free;에서 액세스 위반을 얻을 두 번째 시간을 클릭합니다. 그러나 MyBitmap은 첫 번째 버튼 클릭 이후에 더 이상 할당되어서는 안됩니다. 그렇다면 왜 if Assigned(MyBitmap) then 상태가 첫 번째 버튼 클릭에서 분명히 작동했을 때 두 번째 버튼 클릭에서 작동하지 않는 이유는 무엇입니까? 포인터가 Nil을 할

델파이 10.1 베를린 업데이트 2

Answer 1

Assigned 기능은 확인합니다. 기존 개체를 가리키는 지 여부를 확인하지 않습니다. Assigned 기능을 원하는대로 작동 시키려면 해제 한 후 Nil으로 설정해야합니다. FreeAndNil은 두 명령을 모두 수행합니다.