Frage zu .free bei Klassen

[malo]

Zitat:

Zitat von Wuaegner

Verwende jetzt FreeAndNil() aber der Fehler kommt immernoch. Es muss also daran liegen

Zitat:

ein nicht instanziiertes Objekt?

Ich erzeuge die Listen mit liste:= TStringList.Create; , füge mit Add() neue Items hinzu und lösche wieder welche usw. , muss ich noch etwas beachten?

Naja, wenn eine AV kommt, wird wohl zwangsläufig irgendwo nach der Freigabe des Objekts noch auf das Objekt zugegriffen. Eventuell hilft Debuggen, um die Stelle zu finden ;)

[Wuaegner]

Delphi-Quellcode:

 type
  TStringManager = class              
  private                             
   FNummernListe : TStringlist;       
   FOrteListe: TStringList;
   FDatumsListe: TStringList;         
   FLaengenListe: TStringList;           
   FKostenListe: TStringList;         
   FStringList: TStringList;          
   FCopyList: TStringList;            
   FEinzelListe: TStringList;        
   procedure ClearToErsteZeile;       
   procedure ClearGarbage;            
   procedure FillFEinzelListe;        
   procedure SplitString(s:string);   
   procedure StrToListen;             
   function Kosten(nr: string):real;  
   function LoadFile(FileName:string): boolean;        
   function IsValid(s: string):boolean;

  public
   constructor Create;
   destructor Destroy; override;

  end;                                


var
  Form1: TForm1;
  StrMg: TStringManager;
  

implementation

{$R *.dfm}

{ TStringManager }

procedure TStringManager.ClearGarbage;
var i: integer;
    s: string;
    anzahl: integer;
begin
  ClearToErsteZeile;      // Unwichtiges davor wird gelöscht

 

 for i:= FStringList.Count-1 downto 0 do
 begin

  if (pos('*',FStringList.Strings[i])=0) then  

  FStringList.Delete(i);                    


 end;

     .
     .
     .

end;


constructor TStringManager.Create;
begin
  FNummernListe:= TStringList.Create;   
   FEinzelListe:= TStringList.Create;     
   FDatumsListe:= TStringList.Create;      
   FOrteListe:= TStringList.Create;    
   FLaengenListe:= TStringList.Create;     
   FKostenListe:= TStringList.Create;      
   FCopyList:= TStringList.Create;
   FStringList:= TStringList.Create; 
end;

destructor TStringManager.Destroy;
begin
   FreeAndNil(FNummernListe);   
   FreeAndNil(FEinzelListe);  [b]// <= HIER KOMMT EINE AV  
   FreeAndNil(FDatumsListe);     
   FreeAndNil(FOrteListe);    
   FreeAndNil(FLaengenListe);     
   FreeAndNil(FKostenListe);     
   FreeAndNil(FCopyList);
   FreeAndNil(FStringList);   [b]// UND HIER ( auskommentiert läuft es)
  inherited;
end;

procedure TStringManager.FillFEinzelListe;
var i, k: Integer;
begin

   FEinzelListe:= FNummernListe;
    For i := FEinzelListe.Count - 2 downto 0 do
      For k := FEinzelListe.Count - 1 downto i + 1 do
        If FEinzelListe.Strings[i] = FEinzelListe.Strings[k] Then
          FEinzelListe.Delete(k);


end;



function TStringManager.IsValid(s: string): boolean;
begin
 result:= false;
 if s[3]='.' then result:= true;  
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
 StrMg:= TStringManager.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  StrMg.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
var h,i: integer;
begin

 for h:= 1 to 9 do   
 begin
  if StrMg.LoadFile('telekom_'+IntToStr(h)+'.txt') then 
   begin
    StrMg.ClearGarbage;
    for i:= 0 to StrMg.FStringList.Count-1 do
     begin
      StrMg.FCopyList.Add(StrMg.FStringList.Strings[i]);
     end;
    StrMg.FStringList.Clear;
   end;
  end;

    StrMg.FStringList:= StrMg.FCopyList; 
    StrMg.StrToListen;  
    StrMg.FillFEinzelListe; 
    LBNummern.Items:= StrMg.FEinzelListe;
end;

end.

[Flocke]

Destroy ruft man nicht direkt auf sondern benutzt Free - oder in diesem Fall noch besser FreeAndNil

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(StrMg);
end;

Obs daran liegt weiß ich jetzt allerdings nicht.

[Nachtrag]

FreeAndNil macht übrigens genau das hier:

Delphi-Quellcode:

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

[Wuaegner]

ok aber daran liegts nicht.

[SirThornberry]

bei sowas

Delphi-Quellcode:

StrMg.FStringList:= StrMg.FCopyList;

ist das ganze kein Wunder. damit verwirfst du den InstanzPointer von StrMg.FStringlist und weiß einfach eine andere Instanz zu. Da wird nix kopiert außer der zeiger auf die Liste.
Desweiteren ist der Privatebereich dafür da das andere Objecte nicht auf die dinge Zugreifen, in deinem Fall greifst du aber von deinem TForm-Object auf den Privatebereich von deinem Manager zu, dann kannst du das mit dem Private auch lassen :roll:

Wennd u Button1 mehrmals klickst, kommt dann eignetlich ein Fehler?

[Flocke]

Stimmt :wall: ... habe ich auch übersehen.
Was du tun willst ist wahrscheinlich

Delphi-Quellcode:

StrMg.FStringList.Assign(StrMg.FCopyList);

[Wuaegner]

Zitat:

Wennd u Button1 mehrmals klickst, kommt dann eignetlich ein Fehler?

Nein dann kommt kein Fehler.

Zitat:

StrMg.FStringList.Assign(StrMg.FCopyList);

Trotzdem kommt immernoch die AV.

[BlackJack]

Delphi-Quellcode:

FreeAndNil(FEinzelListe);  [b]// <= HIER KOMMT EINE AV

da du die liste richtig erstellst und auch wieder richtig freigibst, kann der fehelr nur entstehen, weil du zwischendurch FEinzelListe freigibst oder überschreibst (wie SirThornberry beretis erklärt hat). da du jetzt die fehlerursache kennst, ist ein wenig eigeninitiative gefragt, also geh durch den gesatmen source nud schau nach wo du FEinzelListe überschreibst oder fregibst.

[Wuaegner]

JAWOHL!
Habe noch einmal im Code kein .Assign benutzt , daran lag's.
Danke an alle Helfenden! :thumb: