"Eine Komponente namens dlgPrinterSettings ist bereits vorhanden."

Question

Hin und wieder bekomme ich manchmal den folgenden Fehler "Eine Komponente namens dlgPrinterSettings ist bereits vorhanden." necesarry das „dlgprintersettings“ jedes Mal nicht, aber immer noch, würde Ich mag wissen, was in dem folgenden Code die Ursache dieses Fehlers sein könnte:

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; 

sollte ich „Null“ anstelle von „Selbst“ verwende in das schaffen?

Answer 1

Nur eine Beobachtung,

, wenn eine der SetUserData Methoden eine Ausnahme auslöst, wird nicht Ihre TdlgPrinterSettings Instanz frei bekommen. Das nächste Mal, wenn Sie actPrinterExecute anrufen, erhalten Sie den Fehler, den Sie erwähnen.

---

ps. Verwenden Sie nicht with. Deklarieren Sie eine lokale Variable und verwenden Sie diese. Sie können auf mit & Delphi suchen, um einige hitzige Debatten über seine Verwendung zu finden. Ich bin selbst nicht schuldfrei, aber ich würde es nicht in dieser Fall verwenden.

Answer 2

Ich nehme an, dass:

Dort ist eine Komponente auf dem Formular „dlgPrinterSettings“ genannt ist, es `s Klassenname wird„TdlgPrinterSettings“sein Wenn Sie durch diese Linie eine Komponente erstellen:

mit TdlgPrinterSettings.Create (self) do

Eine Komponente erstellt, dass abgeleitet von "TdlgPrinterSettings", und es ist Name gleich Ihre Standardkomponente, die Sie auf das Formular setzen, So erhalten Sie einen Fehler!

Warum möchten Sie es erstellen?

Wenn "TdlgPrinterSettings" ist ein "TPrinterSetupDialog" Sie tun, wie folgt:

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 nicht sicher, aber vielleicht ist es !!

Good Luck ...