Suboptimale Klassenoperatoren?

[Sir Rufo]

Wisst ihr (ausgenommen Uwe, der weiß es) eigentlich, was das mit dem class operator auf sich hat?

Delphi-Quellcode:

type
  TFoo = record
    Value: Integer;
    class operator Inc( a: TFoo ): TFoo;
  end;

{ TFoo }

class operator TFoo.Inc( a: TFoo ): TFoo;
begin
  Result.Value := a.Value + 1;
end;

procedure Test;
var
  LFoo : TFoo;
begin
  LFoo.Value := 1;
  Inc( LFoo );
end;

Preisfrage: Welchen Wert hat jetzt LFoo.Value ?

1. 1
2. 2

Ich würde das mal ausprobieren und dann einfach nur wundern. Lösung: B