Hallo Jan,
du solltest Non-Integer-Values nicht auf Gleichheit testen, ein epsilon-Test ist da sicherer:
Delphi-Quellcode:
var
epsilon: Double = 0.001;
procedure TForm1.TestClick(Sender: TObject);
var
TestVector: PDouble;
allocSize: integer;
begin
allocSize := 20 * SizeOf(Double);
GetMem(TestVector, allocSize);
SetElement(TestVector, 10, 0.1);
assert(Abs(GetElement(TestVector, 10) - 0.1) < epsilon);
FreeMem(TestVector, allocSize);
end;
Und die folgende Zeile kannst du dir bei Call-By-Value schenken:
Dec(Vector, Index);
Grüße vom marabu