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

[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