Hallo,
Ich kenne das Problem, weiß aber nicht wie man es löst.
Also ich habe ein TThread der 2x (also für 2 x TMyComp) läuft.
Soweit klappt eigentlich alles. Natürlich aber nicht mit einem TDictionary.
Ich kürze mal ab.
Delphi-Quellcode:
TMyThread = Class(TThread)
Protected
Procedure Execute; Override;
End;
TMyComp = Class
CThread : TMyThread;
End;
Var dic : TDictionary // von überall verwendbar
Procedure TMyThread.Execute;
Begin
If dic.ContainsKey(lowercase(daten)) = False Then
Begin
...code
dic.Add(lowercase(daten),wert)
// Code+dic.add eigentlich in einer weiteren Prozedur
End Else
Begin
...code
dic.TryGetValue(lowercase(daten),wert);
// Code+dic.add eigentlich in einer weiteren Prozedur
End;
End;
TDictionary ist <string><string>. Jedenfalls wird aus den beiden Komponenten (TMyComp) was geladen und diese Daten will ich mit einem einzelnen TDictionary abspeichern. So könnte Komponente1 und Komponente2 stets die Daten aus dem TDictionary abfragen und sie müssten nicht die Daten laden. Das beißt sich natürlich, sprich wenn 1. Thread ein TDictionary halb abgespeichert hat und der 2. Thread meint, er ist schon komplett vorhanden. Das geht natürlich nicht. Natürlich bekam ich auch schon ein Fehler "Duplikate nicht erlaubt". Was natürlich klar ist, wenn hier ein neuer TDictionary Eintrag noch nicht von Komponente1 abgeschlossen/gespeichert ist und Komponente2 ihn ebenfalls erstellen will. Ich bin mal über "CriticalSection" gestolpert aber mir ist das ehrlich gesagt zu hoch für mein Hirn. War immer so viel Source-Code
Kann mir da evtl. jemand helfen? Vielleicht gibt's ja auch noch eine andere Lösung?