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

[Mavarik]

Zitat von dGeek:

Ihr werdet mich für den Code HASSEN

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

[Mavarik]

Zitat von dGeek:

Das Geld reicht nur für XE2.

Free Starter 10.1? 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 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

[p80286]

Zitat von Mavarik:

Also eine Threadsave Queue verwenden in die Du die einzelnen File-Record-Classen rein pumpst...
Am besten die Klasse als 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.