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]