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

[NoGAD]

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:

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?

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

[dummzeuch]

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

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:

Code:

x := 0;
y := x++

wirklich x = 0 und y = 1 ?

[NoGAD]

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:

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

[Andreas13]

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:

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:

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

[NoGAD]

Hallo Andreas,

wieso darf eine konstante verändert werden? 🤔

LG.

[Andreas13]

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:

Delphi-Quellcode:

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

Grüße, Andreas

[mytbo]

Wünsche einen schönen guten Abend!

Zitat von NoGAD:

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';

Hmm, der Wunsch war ja, sich lästige Tipparbeit zu sparen. Warum empfinde ich jetzt ausgerechnet die Ausgangsform als kurz und gut lesbar, während sich dieses Gefühl bei den vorgeschlagenen Varianten nicht einstellen mag?

Bis bald...
Thomas

[NoGAD]

Zitat von mytbo:

Wünsche einen schönen guten Abend!
Hmm, der Wunsch war ja, sich lästige Tipparbeit zu sparen. Warum empfinde ich jetzt ausgerechnet die Ausgangsform als kurz und gut lesbar

Hallo und einen guten Abend zurück!


Ich habe hier den record, den ich mit über 100 Strings definieren möchte. (Es ginge auch mit vielen anderen Mitteln, wie resourceen, textdateien, inifiles usw.)

Wenn ich nun meinen Originalcode nehme, müsste ich alle Einträge händisch durchnummerieren. Mit den Möglichkeiten, die mir gegeben wurden, kann ich aber einfach immer zwei Zeilen kopieren und einfügen, muss dann nur die Strings einfügen. Das ist mir einfach zu lästig.

LG