Hi,
Also von Delphi selbst wird es ca. so gemacht:
Delphi-Quellcode:
procedure Delete(
Index: Integer);
begin
FreeAndNil(
Array[
Index]);
System.Move(
Array[
Index+1],
Array[
Index],ArrayCount*SizeOf(ArrayDatenTyp));
dec(ArrayCount);
SetLength(
Array,ArrayCount);
end;
Ich habs jetzt ausm Kopf gemacht... Ich hoffe das stimmt so...
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."