FreeMem und Pointer

[marabu]

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