Das sieht gut aus, vielen Dank...
Also bin ich mit
Delphi-Quellcode:
type
TThreadEx = class(TThread)
private
FValue: Integer;
function GetValue: Integer;
procedure SetValue(const Value: Integer);
public
property Value: Integer read GetValue write SetValue;
end;
function TThreadEx.GetValue: Integer;
begin
Result:= LockedGet(FValue);
end;
procedure TThreadEx.SetValue(const Value: Integer);
begin
LockedSet(FValue, Value);
end;
auf der sicheren Seite?