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:

Delphi-Quellcode:

Dec(Vector, Index);

Grüße vom marabu

[oXmoX]

Zitat:

Zitat von himitsu

Das/Warum SizeOf(PDouble) ja 4 ist, ist ja geklärt.

Ich wollte nur noch sagen, dass man es auch anders hätte lösen können ^^

Delphi-Quellcode:

SizeOf(TestVector^)

das ^ macht ja aus dem Zeige wieder den Datentyp, was

Delphi-Quellcode:

SizeOf(PDouble^)

und damit natürlich auch

Delphi-Quellcode:

SizeOf(Double)

entspricht, allerdings hätte dieses auch mal den Vorteil, wenn der Typ von TestVector geändert würde, denn dann würde das Ergebnis von SizeOf immernoch stimmen ^^

..ist mir schon klar. Trotzdem vielen Dank!

Hab grad neu Lösung gefunden (bzw. gefunden bekommen in nem anderen Forum). Wenn man statt es expliziten Wertes 0.1 eine Variable (Type Double) nimmt geht's nämlich auf einmal. 0.1 ist nämlich implizit Single.