FreeMem und Pointer

[oXmoX]

Sorry, dass ich das Ding jetzt schon wieder korrigieren muss ...nur der Vollständigkeit halber nochmal mit (hofentlich) korrekter Speicher-Allokierung:

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 

type 
  TForm1 = class(TForm) 
    Test: TButton; 
    procedure TestClick(Sender: TObject); 
  private 
    procedure SetElement(Vector: PDouble; Index: Integer; Value: Double); 
    function GetElement(Vector: PDouble; Index: Integer): Double; 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.SetElement(Vector: PDouble; Index: Integer; Value: Double); 
begin 
  Inc(Vector, Index); 
  Vector^ := Value; 
  Dec(Vector, Index); 
end; 

function TForm1.GetElement(Vector: PDouble; Index: Integer): Double; 
begin 
  Inc(Vector, Index); 
  Result := Vector^; 
  Dec(Vector, Index); 
end; 

procedure TForm1.TestClick(Sender: TObject); 
var 
  TestVector: PDouble; 
begin 
  GetMem(TestVector, 20 * SizeOf(Double)); 

  Self.SetElement(TestVector, 10, 0.1); 
  assert(Self.GetElement(TestVector, 10) = 0.1); 

  FreeMem(TestVector, 20 * SizeOf(Double)); 
end; 

end.

...und wie gesagt: das Assert schlägt fehl!