TDictionary und TThread

**MicMic**

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.

zusammenfalten · markieren

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?

TDictionary und TThread

TDictionary und TThread

Forumregeln