In meinem HauptFormular gibt es eine Klasse GlobalStringList : TMyStringList, immer wenn ich einen String in die Liste einfüge erfolgt automatisch die Ausgabe in mein Richedit durch die Funkltion WriteStrIntoRichedit
Wenn ich im Haputformular DoThreads (...) ausführe werden meine Threads gestarted, Informationen aus dem Thread heraus schreibe ich dann in die GlobalStringList, welche sofort die Ausgabe in die
VCL durchführt.
Beim Schreiben in die
VCL kommt es zur
AV weil, vermutlich hier versucht wird parallel zuschreiben.
Benötige ich eine Threadsafe StringList wie
http://http://www.swissdelphicenter.ch/de/showcode.php?id=2167
oder ....
Delphi-Quellcode:
Type TMainForm = Class (TForm)
GlobalStringList : TMyStringList;
MyThreads : TMyThreadClass;
proedure DoThreads (...);
end;
type TMyStringList = Class (StringList)
procedure WriteStrIntoRichedit (aStr);
end;