Procedimientos INLINE

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