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:
[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]
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.
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]
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]
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]
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]
Publicar un comentario