29 de noviembre de 2009

Convirtiendo un puntero a registro a una clase en Delphi Prism

El siguiente código Delphi Win32, es un puntero a un registro con un campo de enlaze del tipo puntero:

PDefineRec = ^TDefineRec;
TDefineRec = record
Defined: Boolean;
StartCount: Integer;
Next: PDefineRec;
end;

Esta lista enlazada es fácilmente convertible en una clase Delphi Prism:

{$IFDEF PRISM}PDefineRec = TDefineRec;{$ELSE}PDefineRec = ^TDefineRec;{$ENDIF}
TDefineRec = {$IFNDEF PRISM}record{$ELSE}class public{$ENDIF}
Defined: Boolean;
StartCount: Integer;
Next: PDefineRec;
end;


José Castillo

6 comentarios:

Anónimo dijo...


[url=http://www.homebasedbusinessprogram.com/profiles/blogs/modules-pour-hommes-et-dames][b]sac longchamp[/b][/url]
[url=http://www.purevolume.com/listeners/shensacen/posts/327406/Type+Honda+sociale+fiable+et+amplificateur+de+leader+de+Honda][b]sac longchamp[/b][/url]
[url=http://shensacens.blog.hr/][b]sac longchamp[/b][/url]
[url=http://www.allvoices.com/contributed-news/13692345-sacs-a-main-pour-dames-toisant-pour-nol][b]sac longchamp[/b][/url]
[url=http://shenenmaoyiss.blog.fc2blog.net/blog-entry-1.html][b]sac longchamp[/b][/url]

Anónimo dijo...

Hello. Facebook takes a [url=http://www.freecasinobonus.gd]casino bonus[/url] move on on 888 casino apportion: Facebook is expanding its efforts to introduce real-money gaming to millions of British users after announcing a prepare with the online gambling found search for 888 Holdings.And Bye.

Anónimo dijo...

for eOWtfVnc [URL=http://www.replica-handbags2013.com/]fake bags[/URL] for gift SpAQnBJB [URL=http://www.replica-handbags2013.com/ ] http://www.replica-handbags2013.com/ [/URL]

Anónimo dijo...

view BAmGKyAl [URL=http://www.louis--vuitton--online--shop.org/]louis vuitton shop online[/URL] to take huge discount qJmfwzft [URL=http://www.louis--vuitton--online--shop.org/ ] http://www.louis--vuitton--online--shop.org/ [/URL]

Anónimo dijo...

buy a dCVsmtKm [URL=http://www.uggs-outlet2013.com/]uggs outlet stores[/URL] online bowkdMhd [URL=http://www.uggs-outlet2013.com/ ] http://www.uggs-outlet2013.com/ [/URL]

Anónimo dijo...

for [URL=http://cheaplouisvuitton23.devhub.com/]cheap louis vuitton handbags[/URL] for promotion code rQFUWpka [URL=http://cheaplouisvuitton23.devhub.com/ ] http://cheaplouisvuitton23.devhub.com/ [/URL]