TList mit Record füllen und an weitere TList übergeben

[dGeek]

Das mit dem Zeiger wusste ich nicht. Ich dachte die ObjectList wird ganz normal übergeben und die Procedur hat dann davon eine Kopie.
Klingt jetzt verdächtig nach einem Array von ObjectListen wenn ich das richtig verstanden habe?



Ihr seid so genial
Es funktioniert nun. Ich packe nun alle Instanzen in ObjectLists, die bei Gebraucht erzeugt werden. Verwaltet werden sie in einem dynamischen Array of TObjectList.

[Aviator]

Zitat von dGeek:

Klingt jetzt verdächtig nach einem Array von ObjectListen wenn ich das richtig verstanden habe?

Das verstehe ich jetzt nicht.

Hier mal ein Beispiel wie ich es machen würde (ungetestet und nur hier runtergetippt):

Delphi-Quellcode:

 
try
  for i := 0 to aGlobalVars.iMaxCopyThreadCount - 1 do
   begin
    Application.ProcessMessages;  // <--- Das hier brauchst du normalerweise nicht, da die Aktion so schnell abläuft, dass du davon sehr wahrscheinlich nichts mitbekommst

    try
      if aProcessFileList_ObjectList.Count >= iFilesPerThread then
      begin
        aTmpFileList_ObjectList := TObjectList<TFileEntry>.Create(False);  // <--------------  ObjectList erst hier erzeugen. Somit kommen die sich nicht in die Quere.
        // aTmpFileList_ObjectList.OwnsObjects := False;  // Durch den False Parameter entfällt diese Zeile

        // Liste wird geleert, damit nicht die alten Daten drin sind / SEIN SOLLTEN
        // aTmpFileList_ObjectList.Clear;  // Das hier brauchst du normal auch nicht, da eine Liste beim Erstellen immer leer ist/sein sollte

        iCnt := iFilesPerThread;

        if aProcessFileList_ObjectList.Count - iCnt = 1 then
          Inc(iCnt);

      {*
        Erster  Durchgang: aTmpFileList_ObjectList bekommt "Datei0" bis "Datei4"
        Zweiter Durchgang: aTmpFileList_ObjectList bekommt "Datei5" bis "Datei9"
      *}
        for j := 0 to iCnt - 1 do
          aTmpFileList_ObjectList.Add(aProcessFileList_ObjectList.Items[j]);

        CreateWorkingThread(aTmpFileList);
      end;
    finally
      // Blubb
    end;
  end;
finally

end;

Delphi-Quellcode:

procedure TWorkingThread.Execute;
begin
  // Do something here
  FTmpFileList.Free;  // Hier die beim Erzeugen des Threads übergebene ObjectList freigeben
end;

Nicht hauen, wenn ich jetzt etwas vergessen oder mich irgendwo vertippt habe.

[stahli]

Die Prozedur erhält eine Referenz auf die Objektliste.
Sie benutzt also die gleiche Liste.

Eine Kopie der Liste könntest Du erzeugen, wenn Du eine neue Listeninstanz erzeugst und die Einträge kopierst.

Wenn die Einträge Objekte sind, kopierst Du aber auch nur wieder Referenzen auf die Listeneinträge.

Du kannst das analog Panel2 := Panel1 sehen.
Hier wird der Variablen Panel2 ja auch nur eine andere Referenz (ein anderer Pointer) zugewiesen.


PS: Sehe gerade, dass Du es gelöst hast.
Aber Dein "Array of ObjectList" kann ich nicht ganz nachvollziehen.
Egal, wenn es läuft, läuft es
Vielleicht kannst Du es ja später nochmal anders ordnen.

[DeddyH]

Ich kapier es auch nicht. IMO ist der Knackpunkt, dass da in derselben Methode Threads erzeugt werden, die eine Objektliste zugewiesen bekommen, und diese Objektlisten gleich danach wieder freigegeben werden. Das dürfte den Thread nicht erfreuen, wenn er mitten in der Arbeit auf einen Dangling Pointer stößt.

[Aviator]

Zitat von stahli:

Wenn die Einträge Objekte sind, kopierst Du aber auch nur wieder Referenzen auf die Listeneinträge.

Das stimmt. Eigentlich müsste er sich seine Daten von TPersistent ableiten und die Assign Methode überschreiben. Dann hätte er keine gleichen Referenzen mehr und ein löschen/freigeben der Liste würde ihm nicht plötzlich alles um die Ohren fliegen lassen.

[p80286]

Zitat von Aviator:

Zitat von stahli:

Wenn die Einträge Objekte sind, kopierst Du aber auch nur wieder Referenzen auf die Listeneinträge.

Das stimmt. Eigentlich müsste er sich seine Daten von TPersistent ableiten und die Assign Methode überschreiben. Dann hätte er keine gleichen Referenzen mehr und ein löschen/freigeben der Liste würde ihm nicht plötzlich alles um die Ohren fliegen lassen.

Wisst Ihr was das schöne an Pointern ist?
Da weiß man was man benutzt!

Gruß
K-H

[p80286]

Zitat von stahli:

Aber Dein "Array of ObjectList" kann ich nicht ganz nachvollziehen.

wenigstens das scheint mir einleuchtend

SQL-Code:

Anzhappen:=Wieviele_Teile_in_Liste(FNList);
set length(LA,Anzhappen);
for i:=0 to anzhappen-1 do begin
   LA[i]:=Tmpliste.create
   fülle(FNListe,LA[i]);
end;

For i:=0 to Anzhappen do 
  machThread;

So ungefähr sollte das Laufen.

Gruß
K-H

[Aviator]

Zitat von p80286:

Zitat von stahli:

Aber Dein "Array of ObjectList" kann ich nicht ganz nachvollziehen.

wenigstens das scheint mir einleuchtend

SQL-Code:

Anzhappen:=Wieviele_Teile_in_Liste(FNList);
set length(LA,Anzhappen);
for i:=0 to anzhappen-1 do begin
   LA[i]:=Tmpliste.create
   fülle(FNListe,LA[i]);
end;

For i:=0 to Anzhappen do 
  machThread;

So ungefähr sollte das Laufen.

Gruß
K-H

Wenn er die Instanz der ObjectList an den Thread weitergibt, dann brauch er sich diese nicht mehr zu merken. Die soll ja eh temporär sein. Dann kann der Thread beim Verlassen der Execute Methode auch gerade noch die ObjectList ins Nirvana wandern lassen.

Dann braucht er auch kein Array mehr mitzuschleppen in dem Dann u.U. die Instanzen noch hängen bleiben.