Unerklärliche EAccessViolation -> Meldung Invalid Pointer Operation

[jaenicke]

Mache aus der globalen Variablen DlgChooseCommandTool einmal eine lokale Variable.

Delphi-Quellcode:

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
      DlgChooseCommandTool.AssignCommands(CmdLines); //Hier kommt die Exception
      if IsPositiveResult(DlgChooseCommandTool.ShowModal) then
      begin
        CurrentTool := DlgChooseCommandTool.ChoosedIndex;
        ShowMessage('Index Of Current Tool is: '+IntToStr(CurrentTool));
      end;
    finally
      DlgChooseCommandTool.Free;
    end;
  end
  else ShowMessage('Bitte registrieren Sie zuerst ein Tool im Menü [Tool registrieren...]!');
end;

Passiert es dann immer noch?

Genauso ist es sinnvoll globale Variablen wie CmdLines generell zu vermeiden.

[himitsu]

Zitat:

Delphi-Quellcode:

function RegisterCommandLineTool(Name, Command: String; Options:String=''; CfgFile:String=''; AOptionsFactory:TOptionsFactory=nil): TCmdTool;
var CmdTool: TCmdTool;
begin
  try
    CmdTool := TCmdTool.Create(Name, Command, Options, CfgFile);
    CmdTool.Factory := AOptionsFactory;
    CmdLines.AddCmdTool(CmdTool)
  finally
    Result := CmdTool;
    CmdTool.Free;   <<<<<<<<<< o_O
  end;
end;

[FragenderHerbert]

Hallo,

danke erst mal für eure schnelle Antwort.

@jaenicke: Nein, nach dieser Änderung kommt die Exception nicht mehr.

@himitsu: Ok, hab diese Zeile auskommentiert, habe dazu allerdings eine Verständnisfrage, die sich auf Zeiger-Alise bezieht. Ist nicht der Adresswert eh in der Liste Cmdlines, in die ich CmdTool eingefügt habe? (CmdLines.AddCmdTool)?
Warum muss ich dann noch diese lokale Variable behalten? Kann ich denn sicher sein, das nach Beenden der Funktion diese Variable korrekt frei gegeben wird?

[Sir Rufo]

Du zerstörst damit die Instanz, die du aber auch zurückgibst.

Das ist ungefähr so, als ob ich dir ein Auto verkaufe (Instanz) und dir den Brief (Referenz) aushändige.
Dann schiebe ich das Auto in die Presse (Instanz zerstören). Du hast zwar noch den Brief (Referenz), aber mit dem Auto kannst du nicht mehr fahren
Wenn du es trotzdem versuchst, fällst du auf die Nase (Access Violation)

[Union]

Sir Rufo, damit solltest Du öffentlich auftreten

[baumina]

Ich mag anschauliche Erklärungen. *schnell mal nachschauen, ob mein Auto noch draußen steht*

[FragenderHerbert]

Ok, dake soweit. Da liegt wohl mein Denkfehler darn, das ich, um bei der Analogie zu bleiben, mit
 CmdLine.AddCmd(CmdTool); mein Auto namens CmdTool schon in der Grage hatte. Ich hab geglaubt, die Lokale Variable CmdTool sei nur ein Platzhalter, der Autoransporter in der Analogie. Der könnte ja ein weiteres Auto holen und in die Garage stellen, wider mit hier CmdLine.AddCmd(Cmdtool);

Wie htte ich das dann anders schreiben müssen, damit meine lokale Variable wirklich nur dieser Autotransporter ist?

(Jetzt will ich das genau wissen, damit so ein Fehler nicht wieder passiert)