1:

  if ( receiver.GetReceiverRange.IsInRange( TransmitterList.CurrentTransFreq ) ) then                    

1:
2:
3:
4:
5:
6:

with receiver.GetReceiverRange do try
  if IsInRange( TransmitterList.CurrentTransFreq ) then
    //...
finally
  Free;
end;                    

1:
2:
3:
4:
5:
6:

type TReceiver = class(Tobject)
private
FReceiverRange: TReceiverRange;
public
  property Range: TReceiverRange read FReceiverRange;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

interface

class ValueWrapper
   value: type;
end;

class Provider
   function GetValue: ValueWrapper;
end;

class User
   function DoSomething;
end;

var
   providerInstance: Provider;

implementation

Provider.GetValue;
begin
   Result := ValueWrapper.Create();
   Result.value := ...;
end;

User.DoSomething;
var
   val: ValueWrapper;
begin
   val := providerInstance.GetValue;
   ... := val.value; // Das ist ja ganz unproblematisch
   val.value := val.value + 1; // Wenn ich hier nicht andere "User" verwirren will, dann muss ich jedem seine eigene Instanz geben, richtig? Das ist der ganze Aufhänger...
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

type
  ITrash = interface
    function GetTest: string;
    procedure SetTest(const Value: string);
    property Test: string read GetTest write setTest;
  end;

  TTrash = class(TInterfacedObject, IInterface)
  private
    FTest: string;
    function GetTest: string;
    procedure SetTest(const Value: string);
  public
    property Test: string read GetTest write SetTest;
  end;

  TProvider = class
  public
    function GetTrash: ITrash;
  end;

function TTrash.GetTest: string;
begin
  Result := FTest;
end;

procedure TTrash.SetTest(const Value: string);
begin
  FTest := Value;
end;

function TProvider.GetTrash: ITrash;
begin
  Result := TTrash.Create;
  Result.Test := 'abc';
end;                    

1:
2:
3:
4:
5:
6:
7:

var
  sl: TStringList
begin
  TObjectGuard.Guard(sl, TStringList.Create);
  sl.add('123');
  sl.add('456');
end;  // hier wird scope verlassen (=> .free), da IInterface.  keine try-finallys