Array dynamisch erweiterbar?

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