Forum: Programmieren allgemein
by jaenicke,
17. Feb 2014
Da du das Objekt danach noch benötigst, kannst du es an der Stelle gar nicht zerstören. Am einfachsten kannst du daher gleich das schreiben:function RegisterCommandLineTool(const AName, ACommand: String; const AOptions: String = ''; const ACfgFile: String = '';
AOptionsFactory: TOptionsFactory = nil): TCmdTool;
begin
Result := TCmdTool.Create(AName, ACommand, AOptions, ACfgFile);
...
Forum: Programmieren allgemein
by jaenicke,
16. Feb 2014
Mache aus der globalen Variablen DlgChooseCommandTool einmal eine lokale Variable.procedure TMainForm.menuActiveToolClick(Sender: TObject);
var
CurrentTool: Integer;
DlgChooseCommandTool: TDlgChooseCommandTool;
begin
if Assigned(CmdLines) and (CmdLines.Count > 0) then
begin
DlgChooseCommandTool := TDlgChooseCommandTool.Create(nil);
try
...