Hi, ich habe schon die suche benutzt und auch den Eintrag in der Code-Libary gefunden, allerdings habe ich keine Ahnung von Pointern und Assembler, von daher wollte ich lieber meine eigene Procedur schreiben.
Allerdings scheint die follgende immer eine "Invalid Pointer Message" oder eine
AV zu erzeugen. Könnte jemand mal drüber schauen?
Achja, es kommt auf die Reihenfolge an, ich will nur das erste Element löschen und den Rest nachrücken lassen und es soll keine allgemeine Procedure sein, sondern nur auf das dyn Array "Zeiten" zugreifen
Delphi-Quellcode:
procedure TMain.loesche;
var n,t,y:integer;
begin
for n:=length(zeiten) downto 0 do begin
if n<>0
then begin
t:=zeiten[n];
zeiten[n-1]:=t;
end;
end;
y:=length(zeiten);
setlength(zeiten,y-1)
end;