11
Aug 09

Long time without Delphi and the effect is.

:: news :: by Gilberto Saraiva

Nothing to say, only to code!

 Delphi |  copy code |? 
01
program
02
  out;
03
uses
04
  dialogs;
05
type
06
  virtual = int64;
07
const
08
  cdecl = integer(varempty);
09
  register = succ(cdecl);
10
  r : array (.cdecl..register.) of virtual = ($6F57206F6C6C6548, $45660800646C72);
11
type
12
  abstract = pchar;
13
  overload = procedure(const message: string);
14
  message = array (.cdecl..cdecl.) of string;
15
var
16
  dispid: ^overload = @showmessage;
17
  stdcall: message;
18
  platform: overload;
19
begin
20
  @platform := dispid;
21
  stdcall(.cdecl.) := abstract(@r);
22
  platform(stdcall(.cdecl.));
23
end.

damn, I’m good :)

news — No comments