[Delphi] Dynamic array declareren in class

[Verwijderd]

Ik heb een probleem met het gebruik van dynamische array's in een class.

Compilen gaat perfect maar bij het afsluiten van het programma krijg ik een foutmelding. Ik hoop dat iemand een oplossing heeft.


foutmelding: Project Project1.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'. Process stopped.


De class declaratie

code:

  TTest = class
  public
    TestArray : array of integer;

    constructor Create();
    destructor Destroy();
  end;

constructor en destructor

code:

constructor TTest.create();
begin
  inherited create();
  setLength(TestArray,6);
end;

destructor TTest.Destroy();
begin
  TestArray := nil;
  inherited destroy();
end;

test code(draait goed)

code:

  var 
    TestClass : TTest;
  begin
    TestClass.Create();
    TestClass.TestArray[1]:= 10;
    TestClass.TestArray[2]:= 10;
    TestClass.TestArray[3]:= 10;
    TestClass.Destroy();
  end;

[Monga]

Ik ken heb het probleem ook gehad. Bij mij was de oplossing:

code:

 Pointer(TestArray) := nil;

[Hu9o]

Ik probeer het ff snel naar te maken. Maar het lukt niet om de constructor te compilen

code:

  TTest = class
  public
    TestArray : array of integer;

    constructor Create();   //<== Fout
    destructor Destroy();
  end;

Ik krijg de fout:
Unsatisfied forward of external declaration: TTest.Create
Unsatisfied forward of external declaration: TTest.Destroy


maar over jou fout:
Heeft het te maken dat je het record nog moet aanmaken? new(testarray[1]));

[Monga]

Hu9o schreef op 17 september 2002 @ 21:37:
Ik probeer het ff snel naar te maken. Maar het lukt niet om de constructor te compilen

code:

  TTest = class
  public
    TestArray : array of integer;

    constructor Create();   //<== Fout
    destructor Destroy();
  end;

Ik krijg de fout:
Unsatisfied forward of external declaration: TTest.Create
Unsatisfied forward of external declaration: TTest.Destroy


maar over jou fout:
Heeft het te maken dat je het record nog moet aanmaken? new(testarray[1]));

euh....
- Dit is Delphi (new gebruik je zeeeer zelden...)
- Wel alle code copy/pasten... Implementatie van constructor etc stond ook in zn post

[LordLarry]

Je hoeft een dynamisch array niet vrij te geven, dat gaat vanzelf. Geen := nil doen.

En je hoort geen Destroy aan te roepen. Roep Free aan. Die roept Destroy voor jouw aan.

[Hu9o]

Dat dit delphi is dat weet ik... Staat in subject namelijk en ik herken de syntax ook wel.

Ik zelf gebruik nooit zelfgemaakte types (lees snap het niet)
maar ik heb de volgende code dus ff gemaakt

En als ik op de knop druk, dan verdwijnt deze. Waarom is dit? Want ik zou toch zeggen dat TestClass vrijgegeven zou moeten worden Maar ik krijg geen error tijdens het afsluiten. en zonder de .FREE wel.

code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TTest = class
  public
    TestArray : array of integer;
    constructor Create();
    destructor Destroy();
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TTest.create();
begin
  inherited create();
  setLength(TestArray,6);
end;

destructor TTest.Destroy();
begin
  TestArray := nil;
  inherited destroy();
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  TestClass : TTest;
begin
  TestClass.Create;
    TestClass.TestArray[1]:= 10;
    TestClass.TestArray[2]:= 10;
    TestClass.TestArray[3]:= 10;
    TestClass.Free;
end;


end.

[ Voor 0% gewijzigd door Hu9o op 17-09-2002 21:53 . Reden: typo ]

[Hu9o]

zo werkt het dus ewl

code:

procedure TForm1.Button1Click(Sender: TObject);
var
  TestClass : TTest;
begin
  TestClass := TTest.Create;
  try
    TestClass.TestArray[1]:= 10;
    TestClass.TestArray[2]:= 10;
    TestClass.TestArray[3]:= 10;
  finally
    TestClass.Free;
  end;
end;

[LordLarry]

juist, je was net optijd met jezelf te verbeteren

[LordLarry]

hehe, en ik had nog niet eens gezien dat de topic starten dezelfde fout was begaan.

[Verwijderd]

Ha bedankt TestClass.Create(); moest dus TestClass := TTest.Create() zijn.

En ik moet free gebruiken in plaats van destroy gelijk aan te roepen

[LordLarry]

en je hoeft niet je dynamish array vrij te maken dmv nil