Wenn ich in meiner StringList die add funktion überschreibe und hier die StringListe sperre (lockList) GlobalStringList.OnStringAdded := AddStr2List;, dh. der
VCL Zugriff erfolgt noch im OnstringsAdd Event der StringListe, ist dies ein Denkbarer Weg um nur mit einem Thread in die
VCL (Richedit) zu schreiben ? Nur funtioniert mein Code weiter unten leider nicht
Delphi-Quellcode:
procedure TForm.AddStr2List(.....);
var FLock: TRTLCriticalSection;
begin
InitializeCriticalSection(FLock);
EnterCriticalSection(FLock);
StringListViewForm.ErrorStrList := GlobalErrorList;
StringListViewForm.ErrorStringList2memo;
LeaveCriticalSection(FLock);
DeleteCriticalSection(FLock);
end
else
//
DisplayStatusStr(' Message : ' + aStr);
end;