Rats, I knew that. In the original app I am using fully typed
variables etc... but all 1 based.
So I simplified it in the test app. I would have found it earlier except
the error happens at the freeing of the first element (not the creation
of the last or freeing of the last).
I had visions of TObject having been changed in D2005. :-)
Thanks
From: "David O'Brien" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>,
"'NZ Borland Developers Group - Delphi List'"
<[email protected]>
Subject: RE: [DUG] Invalid Pointer Operation
Date sent: Mon, 8 Aug 2005 14:38:22 +1200
I thought dynamic arrays were zero based, so the loop would have
to be from
0 to 9, not 1 to 10.
David O'Brien
([EMAIL PROTECTED])
027 442 1037
Computer sales and support services
Custom software design
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:delphi-
[EMAIL PROTECTED] On
Behalf Of Rohit Gupta
Sent: Monday, 8 August 2005 2:33 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Invalid Pointer Operation
I am very confused here. Using D2005. The following is on a form
with two buttons - btnCreate and btnDestroy. When Destroy is
pressed I get an "Invalid Pointer Operation".
Seeing that this is the first time I have used open arrays (I detest
the concept) and setlength I must have done something wrong
here. But it escapes me.
The problem only shows up when I nest a TObject inside another.
unit Unit1;
{$d+,y+,l+,o-}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls;
type
TTest = class (TObject)
private
FMemory : array of integer;
public
constructor Create; reintroduce;
destructor Destroy; override;
end;
TTest2 = class (TObject)
private
FTests : array of TTest;
public
constructor Create; reintroduce;
destructor Destroy; override;
end;
type
TForm1 = class(TForm)
btnCreate: TButton;
btnDestroy: TButton;
procedure btnDestroyClick(Sender: TObject);
procedure btnCreateClick(Sender: TObject);
private
public
Test : TTest2;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TTest }
constructor TTest.Create;
begin
inherited Create;
Setlength (FMemory,10);
end;
destructor TTest.Destroy;
begin
FMemory := nil;
inherited;
end;
{ TTest2 }
constructor TTest2.Create;
var
I : Integer;
begin
inherited Create;
Setlength (FTests,10);
for I := 1 to 10
do FTests [I] := TTest.Create;
end;
destructor TTest2.Destroy;
var
I : Integer;
begin
for I := 1 to 10
do FTests [I].Free;
FTests := nil;
inherited;
end;
procedure TForm1.btnCreateClick(Sender: TObject);
begin
if not assigned (Test)
then Test := TTest2.Create;
end;
procedure TForm1.btnDestroyClick(Sender: TObject);
begin
Test.Free;
Test := nil;
end;
end.
Regards
Rohit
====================================================
==================
CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New
Zealand
PH (649) 489-2280
FX (649) 489-2290
email [EMAIL PROTECTED] or [EMAIL PROTECTED]
====================================================
==================
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
Regards
Rohit
====================================================
==================
CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New
Zealand
PH (649) 489-2280
FX (649) 489-2290
email [EMAIL PROTECTED] or [EMAIL PROTECTED]
====================================================
==================
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
