Array dynamisch erweiterbar?

[Indigen]

Hallo allerseits,

wie kann ich ein Array dynamisch erweitern, wenn ich bspw. anfangs die Größe einer einzulesenden Tabelle nicht kenne?

Danke und auf bald ...
Indigen.

[Luckie]

Delphi-Hilfe -> dynanische Arrays.

[ShadowCaster]

Delphi-Quellcode:

type
  TKunde = record
    ID : Integer;
    Vorname : String[50];
    Nachname : String[50];
    //...
  end;

type
  TKundeArray : Array of TKunde;

var
  Arraysize : Integer;

Soviel zur Basis. Um jetzt ein Array in deiner Funktion nach zu vergrößern hier folgender Code:

Delphi-Quellcode:

var
  KundenArray : TKundeArray;
begin
  ArraySize := 0;
  // Beginn Schleife
    // Kunde einlesen
    Setlength(KundenArray, ArraySize + 1);
    KundenArray[ArraySize].ID := ArraySize;
    KundenArray[ArraySize].Vorname := EingelesenerVorname; // ;)
    KundenArray[ArraySize].Nachname := EingelesenerNachname;
    inc(ArraySize);
  // Ende Schleife (Bedingung)
end;

Diese Angaben sind ohne Gewähr. Im Prinzip solltest du mit Setlength das Array vergrößern können.

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[Christian Seehase]

Moin Indigen,

wobei es sich bei dynamischen Arrays prinzipiell empfiehlt sie nicht ein bei ein zu erweitern, sondern möglichst schon so gross wie vermutlich erforderlich. Sollte das, wieder Erwarten, dann doch nicht reichen, sollte man das Array auch um mehr als ein Element erweitern (z.B. vielleicht um 10%). Anfangsgrösse und Rate der Vergrösserung hängen natürlich vom Einzelfall ab.
Wird jeweils nur ein Element hinzugefügt, kann das ansonsten erheblich auf die Performance drücken, da das Array bei jeder Vergrösserung, soweit erforderlich, jedesmal intern in einen zusammenhängenden Speicherbereich kopiert wird.

[jbg]

Zitat:

Zitat von Christian Seehase

jedesmal intern in einen zusammenhängenden Speicherbereich kopiert wird.

Und der alte kann nicht freigeben werden, da das Speicher in Pages (4096 Bytes) reserviert wird, und das neue Array quer im Speicher liegt. Womit der Speicherverbrauch ganz schnell auf 200 MB ansteigen kann, obwohl man nur 200 KB eigentlich braucht.