Variable erhöhen, wie es in php möglich ist (varx++)?

[Harry Stahl]

Oder so:

Delphi-Quellcode:

  var x: TMyInt := 0;

  varx[x.inc].a := 'Bla 1'; //x = 1
  varx[x].b := 'Bla 1 b';
  varx[x.inc].a := 'Bla 2'; //x = 2
  varx[x].b := 'Bla 2 b';
  varx[x.inc].a := 'Bla 3'; //x = 3
  varx[x].b := 'Bla 3 b';

Das könnte man mit einem Record-Helper machen:

Delphi-Quellcode:

Type
  TMyInt = Type Integer;

  TMyIntegerHelper = record helper for TMyInt 
  public
    function inc: TMyInt; inline;
  end;

Implementation

function TMyIntegerHelper.inc: TMyInt;
begin
  self := self+1;
  Result := self;
end;

Leider kann man den bestehenden Recordhelper für Integer nicht erweitern oder vererben, daher der Umweg über einen eigenen Typ

Trotzdem kann man bei Bedarf auf x den normalen Integerhelper nutzen mit (Integer(x).tostring) z.B.