Oh , tut mir Leid, habs wohl übersehen.
Also Kasse ist "nach" Array-Feld Nummer 10.
Das heißt , next muss doch 10 sein , oder nciht ?
Und dann statt inc (next , muss
dec(next) stehen , oder ?
Also:
Delphi-Quellcode:
function tschlange.einfuegen(x: person):boolean;
begin
//hinter dem Array kann man nichts mehr einfügen
Result := Next <= max;
//next ist 10
if Result
then
begin
//Daten an aktuelle Array-Position schreiben
schlange[Next].
Name := x.
Name;
schlange[Next].Id := x.id;
//Position erhöhen ->> // POSITION abziehen
dec(Next);
end;
end;