[Delphi] Array of array of integer

[marenk_vos]

Ik zit met een probleempje met een array of array, als ik namelijk deze code aangeroepen heb en vervolgens mijn programma of het form wil afsluiten krijg ik allerlei Einvalid Pointer errors en Access violations. In onderstaande code werkt bijvoorbeeld de laatste regel niet. Ik denk zelf dat het programma probeert het geheugen op te schonen bij het afsluiten en daarbij een access violation geeft

Hoe moet ik na deze code te hebben uitgevoerd de boel opschonen? (nogmaals.. unassigned werkt niet) en als ik 2x achter elkaar op de button click en dan afsluit komen er ook allerlei errors.

Het is geschreven in Delphi 5

code:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

var selections: array of array of Integer;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var teller:integer;
begin

setlength(selections,3);
teller:=0;

while teller < 3 do
    begin
    setlength(selections[teller],2);
    selections[teller,1]:=30;
    selections[teller,2]:=40;
    teller:=teller+1;
    end;

selections:=unassigned;    

end;

end.

[Verwijderd]

In jouw geval ben je zelf niet actief bezig met het alloceren van geheugen d.m.v. voorbeeld 'new'. Al was dat het geval dan zou je zelf moeten zorgen dat dit geheugen weer wordt vrijgegeven d.m.v. 'dispose'.
Hier hoeft dat dus niet..

[ Voor 68% gewijzigd door Verwijderd op 09-12-2002 11:26 ]

[jelmervos]

unassigned gebruik je toch alleen voor variants?

[Elissen]

In Delphi begint men met tellen vanaf 0. Dit houdt in dat een lengte van 3 een bereik heeft van 0 tot en met 2.

[Creepy]

Verwijderd schreef op 09 December 2002 @ 11:23:
In jouw geval ben je zelf niet actief bezig met het alloceren van geheugen d.m.v. voorbeeld 'new'. Al was dat het geval dan zou je zelf moeten zorgen dat dit geheugen weer wordt vrijgegeven d.m.v. 'dispose'.
Hier hoeft dat dus niet..

Setlenght zet dynamisch de lengte van een array. Deze array opschonen kan met array:=nil; (en dus niet met unassigned). Delphi neemt dan zelf het geheugenbeher van de array voor zijn rekening.

[ Voor 9% gewijzigd door Creepy op 09-12-2002 11:45 ]

[Creepy]

Elissen schreef op 09 december 2002 @ 11:42:
In Delphi begint men met tellen vanaf 0. Dit houdt in dat een lengte van 3 een bereik heeft van 0 tot en met 2.

Dit geld alleen voor array's die met setlenght worden geinitialiseerd.

Delphi:

var blaat: array[99..123,5..10] of integer;

Bovenstaande code is geen probleem.

[_Thanatos_]

Volgens je while-loopje stel je van selections[teller] de indexen 1 en 2 in op een bepaalde waarde, terwijl de lengte 2 is. Dat gaat natuurlijk niet, omdat de index bij 0 begint. 0 en 1 instellen kan dus wel.

Ik denk dat dat weleens je probleem kan oplossen.

Tip: gebruik altijd Low(array) en High(array), dan zit je altijd safe.

edit: Elissen: hij telt ook van 0 t/m 2, kijk maar es goed naar de while-loop

[ Voor 12% gewijzigd door _Thanatos_ op 09-12-2002 13:47 . Reden: toevoeginkje ]

[Verwijderd]

Je moet ook maar eens even rangechecks aanzetten..
De SetLength(Selections,3) gaat nog goed omdat teller kleiner blijft dan 3
Maar de setlength(selections[teller],2); is niet goed als je later met de opdracht
selections[teller,2]:=40;
een waarde toekent aan een niet bestaand element van je array (alleen 0 en 1 bestaan).

Verder geldt natuurlijk bovenstaande opmerkingen van creepy en delphi.

Je zou ook de variabele definitie van Selections binnen de procedure kunnen doen. De compiler ruimt het gebruikte geheugen dan zelf op bij het verlaten van de procedure.