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

[NoGAD]

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

[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.

[KodeZwerg]

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

[Harry Stahl]

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...

[KodeZwerg]

Zitat von Harry Stahl:

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...

Stimmt!

Delphi-Quellcode:

  for var i := 1 to 3 do
    begin
      varx[i].a := 'Bla ' + IntToStr(i);
      varx[i].b := 'Bla ' + IntToStr(i) + ' b';
    end;

oder

Delphi-Quellcode:

procedure SetContent(const AIndex: Integer);
begin
  varx[AIndex].a := 'Bla ' + IntToStr(AIndex);
  varx[AIndex].b := 'Bla ' + IntToStr(AIndex) + ' b';
end;


...

  for var i := 1 to 3 do
    SetContent(i);

oder

Delphi-Quellcode:

procedure SetContent(const AIndex: Integer; const AStr1, AStr2: string);
begin
  varx[AIndex].a := AStr1;
  varx[AIndex].b := AStr2;
end;


...

  for var i := 1 to 3 do
    SetContent(i, 'String1', 'String2');

oder oder oder

[NoGAD]

[QUOTE=KodeZwerg;1502959][QUOTE=Harry Stahl;1502956]

Zitat von KodeZwerg:

Delphi-Quellcode:

  for var i := 1 to 3 do
    begin
      varx[i].a := 'Bla ' + IntToStr(i);
      varx[i].b := 'Bla ' + IntToStr(i) + ' b';
    end;

Hallo KodeZwerg,

leider ist das nicht nutzbar, weil Du leider die Frage falsch verstanden hast. Mir ging es nicht um die Werte in den Strings, die sich erhöhen sollen, sondern das Array soll dynamisch sein.

varx[i].a <-- das i wollte ich automatisch erhöhen lassen, weil die Strings fix sind.

LG

[Uwe Raabe]

Alles schön und gut, aber mir persönlich erscheint dann dies hier immer noch am übersichtlichsten. Ist halt Geschmackssache (und PHP ist mir nicht ganz geheuer).

Delphi-Quellcode:

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

  Inc(x);
  varx[x].a := 'Bla 2';
  varx[x].b := 'Bla 2 b';

  Inc(x);
  varx[x].a := 'Bla 3';
  varx[x].b := 'Bla 3 b';

[KodeZwerg]

Zitat von NoGAD:

leider ist das nicht nutzbar, weil Du leider die Frage falsch verstanden hast.

Wir gehen verschiedene Wege, soll vorkommen :-]
(ps: hab noch mehr rangepappt da oben)

[NoGAD]

Zitat von Harry Stahl:

Oder so:

Das ist ja mal eine geniale Lösung!
Die gefällt mir, weil die sehr schön übersichtlich bleibt.


Diese Zeile ist mir gänzlich neu, so ein Konstrukt habe ich noch nie gesehen:

  TMyIntegerHelper = record helper for TMyInt Sehr Interessant!


Ganz herzlichen Dank.


Nachtrag:
Ich habe die function erweitert, damit das inc(x,n) kompatibel bleibt

function inc(aAnzahl: Integer = 1): TMyInt; inline;
LG