Hausaufgaben werden hier generell nicht für Schüler erledigt.
Statt die komplette
Unit zu posten wäre es wesentlich sinnvoller erst einmal die fehlerhafte(n) Stelle(n) zu finden und diese zu Posten.
Aber wenn ich nicht ganz doof bin, dann stimmt hier doch etwas nicht
Delphi-Quellcode:
SetLength(Feld, AnzahlPatienten-1);
for i := 0 to AnzahlPatienten do
Feld[i] := TPerson.Create;
Wenn AnzahlPatienten=5 dann
- setzt du das Array Feld auf Länge AnzahlPatienten-1, also 4
und
- iterierst durch Feld von 0 bis AnzahlPatienten, [0, 1, 2, 3, 4, 5].
Findest du den Fehler selber?
