Registriert seit: 5. Nov 2008
97 Beiträge
Delphi XE2 Professional
|
AW: BoolToStr wirft Access Violation
29. Jun 2012, 14:04
Zusammenfassend lässt sich also sagen:
Delphi-Quellcode:
move(MyArrayOfMyRecord[i], MyArrayOfMyRecord[i-1], (length(MyArrayOfRecord)-i) * sizeof(MyRecord));
setlength(MyArrayOfMyRecord, length(MyArrayOfMyRecord)-1);
wird zu
Delphi-Quellcode:
Finalize(MyArrayOfMyRecord[i]);
move(MyArrayOfMyRecord[i], MyArrayOfMyRecord[i-1], (length(MyArrayOfRecord)-i) * sizeof(MyRecord));
FillChar(MyArrayOfMyRecord[Length(MyArrayOfRecord) - 1], Sizeof(MyRecord), #0);
setlength(MyArrayOfMyRecord, length(MyArrayOfMyRecord)-1);
|
|
Zitat
|