Achso ich verstehe den Fehler jetzt.
Aber :
Delphi-Quellcode:
function tschlange.einfuegen(x: person):boolean;
begin
//hinter dem Array kann man nichts mehr einfügen
Result := Next >0;
x.
Name:= form1.edit1.text;
// ERWITERUNG
x.id := strtoint(form1.edit2.text);
// ERWEITERUNG
if Result
then
begin
//Daten an aktuelle Array-Position schreiben
schlange[Next].
Name := x.
Name;
schlange[Next].Id := x.id;
//Position abziehen
dec(Next);
schlange[next].
Name:=x.
name;
schlange[next].id := x.id;
end;
end
Wenn ich was eingebe die ID und den Namen , dann bin ich ja im 10.Array Feld , denn next ist 10 , und wie kann ich dann Daten ins 9.Array Feld eingeben ?