[Delphi] Een instance van een record maken

[Verwijderd]

Het idee is om de Data property van een TTreeNode naar een record te laten wijzen. Ik wil hiervoor gewoon een nieuw record maken, en dat toewijzen aan de Data pointer, zodat ik er geen omkijken meer naar heb.
Het is natuurlijk mogelijk om dit met een array te doen, maar ik ben er van overtuigd dat er andere manieren zijn dan een array of een gewone declaratie...

[Tomatoman]

1. Geheugen alloceren voor je records.
2. Per record een pointer opslaan in je TreeNode.
3. Een beetje met je records spelen. Je kunt ze benaderen via de pointers.
4. Geheugen opruimen.

[Verwijderd]

Dat lijkt me de beste oplossing ja.. helaas moet ik me nog steeds bezighouden met het opruimen en creeëren van de Objects, maar daar is niets aan te doen.

Maar hoe reserveer ik nu geheugen voor zo'n record?
Ik kan namelijk niet een nieuwe instance ervan maken door TRecordName.Create aan te roepen.
Moet ik dan AllocMem(sizeof(TRecordName)) gebruiken?

[Tomatoman]

code:

type
  TMyRec = record
    Str18 = string[18];
    Almost1000 = Integer;
  end;
var
  P: ^TMyRec;
begin
  New(P);
  P^.Str18 := 'Now you see it...';
  P^.Almost1000 := 999;
  Dispose(P);   { Now you don't... }
end;

[Bergen]

Op vrijdag 19 april 2002 00:03 schreef tomatoman het volgende:

code:

type
  TMyRec = record
    Str18 = string[18];
    Almost1000 = Integer;
  end;
var
  P: ^TMyRec;
begin
  New(P);
  P^.Str18 := 'Now you see it...';
  P^.Almost1000 := 999;
  Dispose(P);   { Now you don't... }
end;

Eeehh... ja, maar bij de declaratie van Str18 en Almost1000 bedoel je natuurlijk een : ipv een =

[Bergen]

Nog iets, om nog ff verder te gaan met die pointers:

Stel ik heb dit:

code:

var
   Plaatje: TBitmap;

...
procedure Blur (var InputPicture: TBitmap);
...

Als ik de functie aanroep en Plaatje meegeef, geeft hij toch gewoon een pointer naar de bitmap mee? Het volgende werkt immers ook:

code:

type
   PBitmap = ^TBitmap;

var
   Plaatje: PBitmap;

...
procedure Blur (var InputPicture: PBitmap);
...

Als ik dan Plaatje meegeef als parameter kan ik ook rustig tekenen in het plaatje. Maar geef ik in het tweede voorbeeld dan eigenlijk een pointer naar een pointer mee?

[Bergen]

Kom op jongens, ik heb ondertussen al geslapen! We zijn al 12 uur verder! Als dit een toets was, waren jullie gezakt

[Varienaja]

Op vrijdag 19 april 2002 00:56 schreef GerbenW het volgende:
Nog iets, om nog ff verder te gaan met die pointers:
...

Inderdaad, het eerste geval is gewoon een pointer. Dit omdat Delphi 'stiekem' pointers maakt van TObjects.

Het tweede geval is (dus) een pointer naar een pointer.

[Verwijderd]

Op vrijdag 19 april 2002 00:03 schreef tomatoman het volgende:

code:

type
  TMyRec = record
    Str18 = string[18];
    Almost1000 = Integer;
  end;
var
  P: ^TMyRec;
begin
  New(P);
  P^.Str18 := 'Now you see it...';
  P^.Almost1000 := 999;
  Dispose(P);   { Now you don't... }
end;

Maar hoe combineer ik dit nu met de .Data property?

code:

info : ^TNodeInfo;
....
New(info);
created.Data := info;

Geeft geen errors, maar zodra ik dan de record wil inzien, krijg ik een error.

code:

ShowMessage(Created.Data^.Filename);

geeft [Error]: Record, object, or class type required.

[Verwijderd]

Op vrijdag 19 april 2002 12:23 schreef Varienaja het volgende:

Inderdaad, het eerste geval is gewoon een pointer. Dit omdat Delphi 'stiekem' pointers maakt van TObjects.

Is algemeen bekend. Zou ook niet best zijn als het niet zo was.

[Varienaja]

Op vrijdag 19 april 2002 18:11 schreef dR_n00b het volgende:

code:

ShowMessage(Created.Data^.Filename);

geeft [Error]: Record, object, or class type required.

Doe eens:

code:

ShowMessage((Created.Data as TDingdatjegemaakthebt).Filename);

of

code:

ShowMessage(TDingdatjegemaakthebt(Created.Data).Filename);

[Verwijderd]

Op vrijdag 19 april 2002 18:58 schreef Varienaja het volgende:

[..]

Doe eens:

code:

ShowMessage((Created.Data as TDingdatjegemaakthebt).Filename);

of

code:

ShowMessage(TDingdatjegemaakthebt(Created.Data).Filename);

Dit moet dan

code:

ShowMessage(TDingdatjegemaakthebt(Created.Data^).Filename);

zijn lijkt me

[Creepy]

Op zaterdag 20 april 2002 20:57 schreef dR_n00b het volgende:

[..]

Dit moet dan

code:

ShowMessage(TDingdatjegemaakthebt(Created.Data^).Filename);

zijn lijkt me

Hmm.. TDingetje is meestal het type, en PDingetje is meestal een pointer naar dat type (Naming conventions).

Dan dus of TDingetje(blaat.data).Filename of PDingetje(blaat.data)^

TDingetje(Created.data) lukt trouwens alleen als TDingetje een TObject, of een afgeleide daarvan is. Als TDingetje een record is zul je toch PDingetje(Created.data)^ moeten doen (*dus met een pointer)

^ pas NA de haakjes. (Eerst .data casten naar het pointer type, en dan pas dereferencen)

[Verwijderd]

Op zondag 21 april 2002 11:44 schreef Creepy het volgende:

[..]

Hmm.. TDingetje is meestal het type, en PDingetje is meestal een pointer naar dat type (Naming conventions).

Dan dus of TDingetje(blaat.data).Filename of PDingetje(blaat.data)^

TDingetje(Created.data) lukt trouwens alleen als TDingetje een TObject, of een afgeleide daarvan is. Als TDingetje een record is zul je toch PDingetje(Created.data)^ moeten doen (*dus met een pointer)

^ pas NA de haakjes. (Eerst .data casten naar het pointer type, en dan pas dereferencen)

1: Ik snap PDingetje niet, of word die cast automatisch aangemaakt?
2: Het werkt niet,

code:

ShowMessage(TDingdatjegemaakthebt(Created.Data^).Filename);

werkt daarentegen wel, dus wie wat hier fout doet, ik weet het zo langzamerhand niet meer

[Creepy]

TDIngetje en PDingetje moet je allebei zelf aanmaken.
Maar als TDingetje een object is hoef je geen Pdingetje te maken omdat je je object zo aan die data kan hangen en kan benaderen met TDingetje(node.data).whatever.

Als TDingetje een record is (TDingetje = record begin ... end) dan moet je ook een PDingetje aanmaken (PDingetje = ^Tdingetje) en moet je het benaderen met een pointer ( PDIngetje(node.data)^.whatever)

Hmm.. TDingetje(node.data^).whatever zou ook moeten werken ja (alhoewel dat niet mijn voorkeur heeft.. maar ja.. wie ben ik ). Dan heb je inderdaad je pointer niet nodig, maar nogmaals, als TDingetje een (afgeleide van) TOBject is kan je heel dat pointer verhaal en daarmee ook de ^ wel vergeten.