Prozedure nur einmal ausführbar

[LoW_FloW]

Ich hab mit eine eigene Prozedure zum entpacken gecoded. Wenn man sie nur einmal ausführt geht alles gut. Wenn man sie aber unmittelbar danach ein 2tes Mal ausführt kommt ein Stack-Overflow(oder so... :roll:). Hat jemand Ahnung woran das liegt?

Delphi-Quellcode:

procedure UnZipFile(QuellDatei, Zielordner:String);
begin
  ZipMaster1 := TZipMaster.Create(ZipMaster1);
  with Zipmaster1 do
  begin
    DLLDirectory:=ExtractFilePath(ParamStr(0));
    ZipFilename:=QuellDatei;
    ExtrBaseDir:=Zielordner;
    Extract;
  end;
//Zipmaster1.Free;    kA ob Free oder Destroy
  Zipmaster1.Destroy;
end;

Wie immer bin ich für jede Art von Antwort dankbar :zwinker:

[mytar]

Vermutlich liegt hier, der Fehler:

Delphi-Quellcode:

ZipMaster1 := TZipMaster.Create(ZipMaster1);

Du übergibst hier den Instanznamen von TZipMaster als Konstruktor-Parameter.

greetz
mytar :)

[LoW_FloW]

Zitat:

Zitat von mytar

Vermutlich liegt hier, der Fehler:

Delphi-Quellcode:

ZipMaster1 := TZipMaster.Create(ZipMaster1);

Du übergibst hier den Instanznamen von TZipMaster als Konstruktor-Parameter.

Wie kann ich das anders machen ? :gruebel:

Die Prozedure ist nämlich in einer speziellen Unit...

[cfmx]

Zitat:

Zitat von LoW_FloW

Zitat:

Zitat von mytar

Vermutlich liegt hier, der Fehler:

Delphi-Quellcode:

ZipMaster1 := TZipMaster.Create(ZipMaster1);

Du übergibst hier den Instanznamen von TZipMaster als Konstruktor-Parameter.

Wie kann ich das anders machen ? :gruebel:

Die Prozedure ist nämlich in einer speziellen Unit...

Ich würde es so machen:

Delphi-Quellcode:

ZipMaster1 := TZipMaster.Create(nil);

[LoW_FloW]

Zitat:

Zitat von cfmx

Ich würde es so machen:

Delphi-Quellcode:

ZipMaster1 := TZipMaster.Create(nil);

Danke jetzt gehts :thumb: