"dlgPrinterSettingsという名前のコンポーネントがすでに存在します。"

Question

毎度、次のエラーが表示されることがあります。「dlgPrinterSettingsという名前のコンポーネントが既に存在します。」 「dlgprintersettings」毎回necesarry、それでも、私は以下のコードでは、このエラーの原因が何であるか知っていると思いません：

procedure TfrmApplicationMain.actPrinterExecute(Sender: TObject); 
begin 
    with TdlgPrinterSettings.Create(self) do 
    try 
    ChkEncodeMag.IsChecked := GetUserDataBoolean('MAGNETIC_ENCODING'); 
    ChkEncodeFromDatabase.IsChecked := GetUserDataBoolean('MAGNETIC_DATABASE'); 

    ShowModal; 
    finally 
    SetUserData('MAGNETIC_ENCODING',BoolToStr(ChkEncodeMag.IsChecked)); 
    SetUserData('MAGNETIC_DATABASE',BoolToStr(ChkEncodeFromDatabase.IsChecked)); 
    free; 
    end; 
end; 

は私がに「ゼロ」ではなく「自己」を使用する必要があります作成する？

Answer 1

ただ、観察、

SetUserData方法の1つが例外をスローした場合、あなたのTdlgPrinterSettingsインスタンスが解放されません。次回にactPrinterExecuteに電話すると、あなたが言及しているエラーが発生します。

---

ps。 withは使用しないでください。ローカル変数を宣言し、それを使用します。 を& Delphiで検索すると、その使用に関する熱い議論が見つかります。私はここで自分で罪がないわけではありませんが、私はでこれを使用しません。ケース。

Answer 2

私があるとします。あなたはこの行部品を作成する場合、クラス名は「TdlgPrinterSettings」 だろう、それは `s、「dlgPrinterSettings」という名前のフォーム上のコンポーネントが

あり：

で012d9gfrintersettings.create（self）do

コンポーネントは、 "TdlgPrinterSettings"から派生したものを作成します。その名前はフォームに貼り付けたデフォルトコンポーネントと同じですので、エラーが発生します。

なぜそれを作成しますか？

「TdlgPrinterSettingsは」「TPrinterSetupDialog」である場合は、次のように実行します。

procedure TfrmApplicationMain.actPrinterExecute(Sender: TObject); 
begin 
with TPrinterSetupDialog.Create(self) do 
    try 
    ChkEncodeMag.IsChecked := GetUserDataBoolean('MAGNETIC_ENCODING'); 
    ChkEncodeFromDatabase.IsChecked := GetUserDataBoolean('MAGNETIC_DATABASE'); 

    ShowModal; 
    finally 
    SetUserData('MAGNETIC_ENCODING',BoolToStr(ChkEncodeMag.IsChecked)); 
    SetUserData('MAGNETIC_DATABASE',BoolToStr(ChkEncodeFromDatabase.IsChecked)); 
    free; 
    end; 
end; 

I`mわからないが、多分それはです！

幸運が...