Why are Delphi objects assigned even after calling .Free?

by

If you use sl.Free, the object is freed but the variable sl still points to the now invalid memory.

Use FreeAndNil(sl) to both free the object and clear the pointer.

By the way, if you do:

var
  sl1, sl2: TStringList;
begin
  sl1 := TStringList.Create;
  sl2 := sl1;
  FreeAndNil(sl1);
  // sl2 is still assigned and must be cleared separately (not with FreeAndNil because it points to the already freed object.)
end;




procedure TObject.Free;
asm
    TEST    EAX,EAX
    JE      @@exit              // Jump to exit if pointer is nil.
    MOV     ECX,[EAX]           
    MOV     DL,1
    CALL    dword ptr [ECX].vmtDestroy  // Call cleanup code (and destructor).
@@exit:
end;

More Related Contents:

  1. Why should I not use “if Assigned()” before accessing objects?
  2. Why cannot take address to a nested local function in 64 bit Delphi?
  3. Debugging Access Violation errors?
  4. How to dynamically create controls aligned to the top but after other aligned controls?
  5. Which variables are initialized when in Delphi?
  6. System Error. Code: 8. Not enough storage is available to process this command
  7. Delphi 2010: How to save a whole record to a file?
  8. Registration-free COM/DLL?
  9. What’s the simplest way to call Http GET url using Delphi?
  10. I do not understand what Application.ProcessMessages in Delphi is doing [closed]
  11. How do I let Delphi know I’ve already handled an exception?
  12. How do I translate a C union into Delphi?
  13. How to send a HTTP POST Request in Delphi using WinInet api
  14. How do I make a PNG resource?
  15. Delphi Conversion Unicode Issues
  16. Why can Delphi DLLs use WideString without using ShareMem?
  17. How do I run a command-line program in Delphi?
  18. Should the compiler hint/warn when passing object instances directly as const interface parameters?
  19. WWW server reports error after POST Request by Internet Direct components in Delphi
  20. How to add manifest info into delphi project
  21. How to retrieve cpu usage per process
  22. Component Creation – Joining Components Together?
  23. How to detect “dangling pointers” if “Assigned()” can’t do it?
  24. Modifying or deleting a line from a text file the low-level way?
  25. How do I make Beyond Compare ignore certain differences while comparing versions of Delphi Form Files
  26. Delphi 7: ADO, need basic coding example
  27. How to translate (internationalize, localize) application?
  28. Firemonkey Grid Control – Styling a Cell based on a value (via the OnGetValue function call)
  29. Accidentally created a virus?
  30. Free Encryption library for Delphi [closed]

Leave a Comment