Unit StringList create and destroy [SOLVED]

[Pe3s]

Hello forum members, how can I create an object in a separate unit module so as not to create and delete it in Form Create and Destroy.
I want it to be created and destroyed in the unit module.

Code: Pascal  [Select][+][-]

1. FImages := TStringList.Create;

[ackarwow]

Hi @Pe3s

For example in this way:

Code: Pascal  [Select][+][-]

1. unit TestUnit;
2.  
3. {$mode ObjFPC}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils;
9.  
10. var
11.   FImages: TStrings;
12.  
13. implementation
14.  
15. initialization
16.  
17. FImages:=TStringList.Create;
18.  
19. finalization
20.  
21. if Assigned(FImages) then
22.   FreeAndNil(FImages);
23.  
24. end.
25.  

[Pe3s]

@ackarwow
Hello, I wonder if using constructor and destructor will also be good ?

[cdbc]

Hi
Another example:

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode ObjFPC}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils;
9.  
10. function GetImageList: TStringList;
11.  
12. implementation
13. var
14.   FImages: TStringList = nil;
15.  
16. function GetImageList: TStringList;
17. begin
18.   if not Assigned(FImages) then FImages:= TStringList.Create;;
19.   Result:= FImages;
20. end;
21.  
22. finalization
23.   FImages.Free;
24.  
25. end.  

Regards Benny

[ackarwow]

@ackarwow
Hello, I wonder if using constructor and destructor will also be good ?

Yes, you can use constuctor and destructor directly, although in case of destructor I prefer use it indirectly (via MyStrings.Free or FreeAndNil(MyStrings)).

[Pe3s]

Thank you