Hallo,

gibt es eine Möglichkeit, wenn z.B. ein Record gefüllt werden soll und ich die Zuweisung bei einer Initialisierung wie folgt vornehmen muss:

markieren

Delphi-Quellcode:

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

den Zähler wie in php zu erhöhen, dass ich mir Tipparbeit ersparen kann?

markieren

Delphi-Quellcode:

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

Eine Schleife kommt nicht in Frage, weil die Zuweisung eine Art Initialisierung ist.

LG

Nicht schön, aber tut, was Du willst:

zusammenfalten · markieren

Delphi-Quellcode:

function doInc(var _i: integer): integer;
begin
 _Inc(_i);
 Result := _i;
end;

  x := 0;
  varx[doInc(x)].a := 'Bla 1'; //x = 1
  varx[x].b := 'Bla 1 b';
  varx[doInc(x)].a := 'Bla 2'; //x = 2
  varx[x].b := 'Bla 2 b';
  varx[doInc(x)].a := 'Bla 3'; //x = 3
  varx[x].b := 'Bla 3 b';

Wobei: Bist Du dir sicher, dass in PHP x++ ein Pre-Increment ist? In C ist es ein Post-Increment (Pre-Increment wäre ++x), also Liefert:

markieren

Code:

x := 0;
y := x++

wirklich x = 0 und y = 1 ?

Das mit der function hatte ich schon überlegt. Hoffe aber, dass es etwas Neues gibt, was Ich noch nicht kannte.


Vielen Dank für die Hilfe. Für meine Belange habe ich es erst einmal so gemacht:

markieren

Delphi-Quellcode:

  x := 0;
  varx[doInc(x)].a := 'Bla 1'; //x = 1
  varx[x].b := 'Bla 1 b';
  inc(x,1);
  varx[doInc(x)].a := 'Bla 2'; //x = 2

Macht es etwas einfacher.

LG

Hallo Mathias,
es ist sehr fehleranfällig, was Du machst! Wenn Du z. B. zwei Zeilen vertauschst oder eine neue einfügst, geriet alles durcheinander. Wenn Du schon unbedingt so vorgehen willst, würde ich Thomas' Vorschlag etwas entschärfen:

markieren

Delphi-Quellcode:

function doInc(CONST _i: integer; Anz: integer = 1): integer;
begin
 _Inc(_i, Anz);
 Result := _i;
end;

Dann würden Deine Aufrufe wie folgt aussehen:

markieren

Delphi-Quellcode:

  x := 0;
  varx[doInc(x)].a := 'Bla 1'; //x = 1
  varx[x].b := 'Bla 1 b';
  // inc(x,1); überflüssig
  varx[doInc(x, 2)].a := 'Bla 2'; //x = 2

Gruß, Andreas

Hallo Andreas,

wieso darf eine konstante verändert werden? 🤔

LG.

Zitat von NoGAD:

.. wieso darf eine konstante verändert werden? 🤔

Nein, eine Konstante darf (schon lange) nicht (mehr) verändert werden. Eigentlich wollte ich damit nur andeuten, daß es kein VAR-Parameter sein soll. In Thomas ' Code war noch ein kleiner Tippfehler: "_Inc". Da die Unterstriche bei lokalen Variablen eh nicht nötig sind, lasse ich sie weg. Korrekt wäre es also z.B. so:

markieren

Delphi-Quellcode:

function doInc(i: integer; Anz: integer = 1): integer;
begin
 Inc(i, Anz);
 Result := i;
end;

Grüße, Andreas

Hallo nochmal, Andreas.

Ich glaube, es sollte doch eine Variable sein in der function, weil ansonsten der Wert immer gleich bleibt und nicht hochgezählt wird.

Aber genau das bezwecke ich ja bei der Zuweisung.

LG

Oder so:

markieren

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:

zusammenfalten · markieren

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.

Oder einfach "Succ()" verwenden und den Rest rausschmeißen.

Zitat von KodeZwerg:

Oder einfach "Succ()" verwenden und den Rest rausschmeißen.

Succ liefert nur ein Funktionsergebnis zurück, erhöht x selber aber nicht, dürfte also nicht helfen...