markieren

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

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

Gruß

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:

markieren

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

Muss es nicht
  High(Array); statt
  length(Array); oder irre ich mich grad?

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.

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

markieren

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