*codeanschau*
Delphi-Quellcode:
TMultiReadExclusiveWriteSynchronizer = class
private
...
public
constructor Create;
destructor Destroy; override;
procedure BeginRead;
procedure EndRead;
procedure BeginWrite;
procedure EndWrite;
end;
Japp, genau das, was ich sagte. Es sind 2 Semaphore (einer zum Lesen, und einer zum Schreiben).