我在一个过程中创建了一个备忘录，使用以下代码：
Global_MemoIni := TMemo.Create(Conf);
Global_MemoIni.Parent := Conf;
Global_MemoIni.Visible := False;
Global_MemoIni.Align := alClient;
Global_MemoIni.WordWrap := False;
当我再次调用该过程时，它会再次创建 global_memoini。
如何知道组件是否已创建，因此我不需要再次调用它？
更新：我可以使用创建代码上方的Global_MemoIni.Free，以便下次创建
Global_memoini 一次...但我想知道这是否被创建...
谢谢
【问题讨论】：
标签： delphi components delphi-7
如果不知道对象使用的创建状态：
if not Assigned(Global_MemoIni) then
begin
Global_MemoIni := TMemo.Create(Conf);
...
end
并且在销毁对象时不要忘记使用FreeAndNil(Global_MemoIni)。
【讨论】：
老实说，我不明白使用备忘录代替更轻量级的 TStringList 的意义。做吧
unit UnitName;
interface
uses SysUtils, Windows, Classes, ...;
var Global_INI: TStringList; // <-- it's defined in the interface section, therefore
// it can be accessed by any unit which uses this unit
implementation
initialization
Global_INI := TStringList.Create;
Global_INI.LoadFromFile( 'C:\config.ini' ); // <-- replace the file name with the
// one you want
finalization
FreeAndNil( Global_INI );
end;
【讨论】：
不这样做是一个任意函数。要么在FormCreate 中创建组件，甚至是表单的构造函数，或者使其成为表单的只读属性，并使用惰性实例化，即
if not Assigned(Global_MemoIni) then
begin
Global_MemoIni := TMemo.Create(Self);
// rest of your code
end;
Result := Global_MemoIni;
但为什么它是全球性的？如果将其设置为表单的字段和对应的只读属性，则可以轻松访问它，并且可以按照上面所示的方式对其进行保护。
FWIW，不是释放组件，而是让所有者（表单）这样做。这样，只要表单存在，它就可以使用，并且不会发生令人讨厌的无效指针问题。
【讨论】：
您可以检查 Global_MemoIni 是否为 Nil，如果是则创建 TMemo。否则它已经存在，然后您可以使用Free 或FreeAndNil 释放它。如果您使用免费，请注意将Nil 分配给Global_MemoIni。如果不这样做，则不能使用Global_MemoIni <> Nil 支票。
【讨论】：
if Assigned(GlobalMemoIni) then。在更大的源库中找到这些检查会容易得多，并且具有“阳性”测试而不是“非 xxx”测试的额外好处。
Assigned，Marjan），如果没有创建它。否则，我会在构造函数或表单的FormCreate 中执行此操作。
TStrings持有者，TStringList确实好很多。