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

[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:

Zitat von stahli (Beitrag 1345856)

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:

Zitat von stahli (Beitrag 1345856)

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

[p80286]

Zitat:

Zitat von Aviator (Beitrag 1345858)

Zitat:

Zitat von stahli (Beitrag 1345856)

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

[Aviator]

Zitat:

Zitat von p80286 (Beitrag 1345859)

Zitat:

Zitat von stahli (Beitrag 1345856)

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.

[Mavarik]

Zitat:

Zitat von dGeek (Beitrag 1345835)

Ihr werdet mich für den Code HASSEN :lol:

Hassen - nein - nur viel zu umständlich - aber da Du in Deinem Profil nicht angegeben hast, welche Delphi Version Du nutzt, gehe ich davon aus, diese ist kleine XE6, oder?

[dGeek]

Das Geld reicht nur für XE2.
Umständlich ist mein zweiter Vorname.

Ich habe erst letztens noch eine Funktion komplett neugeschrieben. Sie wurde insgesamt sehr viel schneller.
Bei 1.000.000 Aufrufen spare ich 200ms.

Ich brauche diese Funktion exakt ein einziges mal in meinem Code. Hat sich demnach also gelohnt :thumb:

[Mavarik]

Zitat:

Zitat von dGeek (Beitrag 1345866)

Das Geld reicht nur für XE2.

Free Starter 10.1? :stupid: Egal...

OK Dann fällt alles mit der Parallel Library weg...

Ich würde für sowas eine parallel-multithreding-pipeline nehmen, denn während Du die Files ermittelst, könnte
der 1. Task schon los legen und die Daten verarbeiten...

Also eine Threadsave Queue verwenden in die Du die einzelnen File-Record-Classen rein pumpst...
Am besten die Klasse als

Delphi-Quellcode:

TFileData = Class(TInterfacedObject,ICanHandeFileData)

aufbauen und nur die Interfaces in die Queue packen...

Dann können sich N-Thread daraus bedienen und brauchen einfach nur das Interface los zu lassen...
Da die Klasse referenzcounted ist, ist auch Dein Speicher wieder sauber...

Mavarik :coder:

[p80286]

Zitat:

Zitat von Mavarik (Beitrag 1345869)

Also eine Threadsave Queue verwenden in die Du die einzelnen File-Record-Classen rein pumpst...
Am besten die Klasse als

Delphi-Quellcode:

TFileData = Class(TInterfacedObject,ICanHandeFileData)

aufbauen und nur die Interfaces in die Queue packen...

Dann können sich N-Thread daraus bedienen und brauchen einfach nur das Interface los zu lassen...
Da die Klasse referenzcounted ist, ist auch Dein Speicher wieder sauber...

Klingt wie threadsaver FiFo-Stack gibt's so etwas oder muß man da selbst Hand anlegen?

Gruß
K-H

[dGeek]

Zitat:

denn während Du die Files ermittelst, könnte der 1. Task schon los legen und die Daten verarbeiten...

So ist es doch aktuell auch schon.