Array-Länge in Prozedur verändern?

[simlei]

Delphi-Quellcode:

procedure add2array(var ziel: array of integer; wert:integer);
begin
SetLength(ziel, Length(ziel)+1);
ziel[Length(ziel)-1] := wert;
end;

[Error] Unit1.pas(203): Incompatible types - bei SetLength(ziel, Length(ziel)+1);

warum? ich habe doch mit 'var' Schreibzugriff gesetzt...

[Brainshock]

nimm mal statt "array of integer" den Typ "TIntegerDynArray" aus der Unit Types.pas (also unter uses eintragen). Dann sollte es funktionieren.

Gruß

[marabu]

Matthias hat die Lösung, die Erklärung ist in der Online-Hilfe zu finden:

Topic: Offene Array-Parameter

Im Rumpf einer Routine gelten die folgenden Regeln für offene Array-Parameter.

• ...
• Der Zugriff kann nur auf die einzelnen Elemente erfolgen. Zuweisungen an einen offenen Array-Parameter insgesamt sind dagegen nicht zulässig.

Hier noch eine Umformulierung:

Delphi-Quellcode:

uses
  Types;

procedure AddValue(var ida: TIntegerDynArray; const value: Integer);
begin
  SetLength(ida, Succ(Length(ida)));
  ida[High(ida)] := value;
end;

Grüße vom marabu

[inherited]

Muss es nicht

Delphi-Quellcode:

  High(Array);

statt

Delphi-Quellcode:

  length(Array);

oder irre ich mich grad?

[ichbins]

length(array) gibt dir die Anzahl der Elemente.

high(array) gibt dir die Nummer des höchsten Elements.


Er will aber die Anzahl der Elemente um 1 erhöhen, also braucht er die Anzahl die Elemente.

[himitsu]

Ich nehm da meistens 'ne lokale Variable, dat erspart mir daß mehrmalige auslesen der Länge ... ein Prozeduraufruf weniger ^^

Delphi-Quellcode:

procedure AddValue(var ida: TIntegerDynArray; const value: Integer); 
var i: Integer;
begin 
  i := Length(ida);
  SetLength(ida, i + 1); 
  ida[i] := value; 
end;

PS: High(...) ist beim dynamischen Array auch nur Length(...)-1 und wird intern auch so errechnet ;)
PSS: dat const kannst'e och weglassen, macht beim Integer eh keinen Unterschied