Procedimientos INLINE

[Casimiro Noteví]

Empezado por Ñuño Martínez

Pues yo juraría haberlo usado con Delphi 6... ¿Habré inventado ese recuerdo?

Juraría haberlo usado alguna vez en delphi 5

[[nlsgarcia]]

Club Delphi,

Revisen este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SumNum(x1, x2 : Double) : Double; Inline;
begin
   Result := x1 + x2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   x1, x2 : Double;
begin
   Randomize;
   x1 := Random(100) + Random;
   x2 := Random(100) + Random;
   ShowMessage(FormatFloat('#,###,###.00',SumNum(x1,x2)));
end;

end.

El código de prueba anterior con la directiva Inline compilo y funciono correctamente en Delphi 2006, Delphi 2010 y Delphi XE4, no compilo en Delphi 7.

La directiva Inline fue incorporada a Delphi después de la versión 7 según esta información:

Empezado por embarcadero

New Delphi language features since Delphi 7

Espero sea útil

Nelson.

[roman]

Este es un claro ejemplo de cómo puede recordarse el futuro

Aunque posiblemente la confusión venga de que, al parecer, inline sí existía en versiones más antiguas. La ayuda de delphi 7 la mencion como algo obsoleto. A mi me parece recordar, sin embargo, que ese uso antiguo de inline tenía más que ver con poner directamente en el código instrucciones del cpu (más que en esamblador).

El uso de ahora, según lo describen, más se asemeja a los -también muy antiguos- macros de C. O sea que, como quien dice, se reinventó la rueda

// Saludos

[roman]

Miren, aquí un ejemplo:

Código Delphi [-]
procedure PrintScreen;
begin
  inline($55/$CD/$05/$5D);
end;

Tomado de http://www.aprendeaprogramar.com/mod...iew.php?id=472.

// Saludos

[[nlsgarcia]]

Roman,

Revisa esta información tomada de la ayuda de Delphi 7:



Pregunto: ¿Compatibilidad con que si no compila en Delphi 7?, he probado el código que propones en el Msg #13 y da error de compilación en Delphi 7

Revisa este código:

Código Delphi [-]
procedure PrintScreen;
begin
  asm
    push bp
    int 5
    pop bp
  end
end;

El código anterior es equivalente al propuesto en el Msg #13 y si compila en Delphi 7, aunque da error de Access Violation en ejecución

Según entiendo por este link (Ampliación 5. Ensamblador desde Turbo Pascal), esta directiva era parte de Turbo Pascal, de ahí quizás se originen los comentarios de los mensajes anteriores

Espero sea útil

Nelson.

[roman]

Sí, ya había visto esa parte de la ayuda y sí que es raro. Primero pensé que no compilaba porque había puesto el inline como si fuera una directiva (como en el uso actual), pero probándolo como en el ejemplo del PrintScreen tampoco. Quizá el texto de la ayuda quedó de delphi 6 o menor, o quizá requiera alguna directiva de compilación pero no veo cuál puede ser.

// Saludos

[Ñuño Martínez]

Empezado por nlsgarcia

Club Delphi,

Revisen este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SumNum(x1, x2 : Double) : Double; Inline;
begin
   Result := x1 + x2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   x1, x2 : Double;
begin
   Randomize;
   x1 := Random(100) + Random;
   x2 := Random(100) + Random;
   ShowMessage(FormatFloat('#,###,###.00',SumNum(x1,x2)));
end;

end.

El código de prueba anterior con la directiva Inline compilo y funciono correctamente en Delphi 2006, Delphi 2010 y Delphi XE4, no compilo en Delphi 7.

La directiva Inline fue incorporada a Delphi después de la versión 7 según esta información:


Espero sea útil

Nelson.

¿Que no compila en Delphi7? ¿Con qué mensaje de error?