Procedimientos INLINE

[[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?

[[nlsgarcia]]

Ñuño Martínez,

Empezado por Ñuño Martínez

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

Revisa esta imagen:



Espero sea útil

Nelson.

[Ñuño Martínez]

Pues tendré que rebuscar en mis viejos cedeses, a ver si encuentro mi copia de Delphi 6 "de evaluación ()", y comprobarlo. Porque ya digo que recuerdo haber usado inline en esa época...