Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Weer een klein stukje handige code, voor wie een element van een array wil verwijderen.
Deze functie werkt voor elk soort array (of het nu nummers, records of objecten zijn), je moet wel even de code aanpassen natuurlijk naar jouw array type. En als je objecten verwijderd moet je natuurlijk nog het verwijderde object destroyen.
type
TXArray = array of X; ...
procedure DeleteX(var A: TXArray; const Index: Cardinal);
var
ALength: Cardinal;
i: Cardinal;
begin
ALength := Length(A);
Assert(ALength > 0);
Assert(Index < ALength);
for i := Index + 1 to ALength - 1 do
A := A;
SetLength(A, ALength - 1);
end;
