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.