Finde om der allerde er Createt?

if not Assigned(shape) then
  shape := TShape.Create(Self);

Hva\' med

if assigned(shape) then
  shape.Free;

!?

Snowball

Det er ikke så svært ... Når du skal nedlægge dit object, kalder du FreeAndNil(shape).

Nå du så senere vil vide om der er et Shape object eller ej. bruger du if Assigned(shape) then ....

Jens B

Vi er da i princippet i det mindste enige *GG*

Snowball

Ikke helt ....

Snowball er du ikke flink og fortælle hvad der sker når det her kode bliver kørt :

procedure TForm1.Button1Click(Sender: TObject);
var
  aOBJ : TObject;
begin
  aOBJ := TObject.Create;
  aOBJ.Free;
  if Assigned(aOBJ) then
    ShowMessage(\'Borrisholt styrer\');
end;


Jens B

og det her :
procedure TForm1.Button1Click(Sender: TObject);
var
  aOBJ : TObject;
begin
  aOBJ := TObject.Create;
  FreeAndNil(AOBJ);
  if Assigned(aOBJ) then
    ShowMessage(\'Borrisholt styrer\');
end;

Jens B

*slask* - slag over fingrene

- godt det ikke var mig,der kom op til tavlen :-)

Hvis ikke du bruger Delphi 6 her du ikke proceduren FreeAndNil, men kan implm. således :

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;


Jens B

hhhmm...Ja OK, den virker ikke lige helt efter hensigten ;)

Snowball