olbeup,
Cita:
Empezado por olbeup
...No puede declarar procedimiento o funciones dentro de un Record...
|
Es correcto
, no se puede declarar
procedimientos y funciones dentro de registros en Delphi 7.
El enlace se refiere a nuevas características del lenguaje posteriores a Delphi 7
y por lo tanto no soportadas en Delphi 7, lo cual incluye
more complex and "class-like" record types.
Revisa 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
public
end;
TMathNum = record
N1 : Double;
N2 : Double;
function SumNum : Double;
procedure MsgNum;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TMathNum.SumNum : Double;
begin
Result := N1 + N2;
end;
procedure TMathNum.MsgNum;
begin
ShowMessage('Delphi 2010 supports more complex and "class-like" record types');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
M : TMathNum;
begin
M.N1 := 3.14;
M.N2 := 2.71;
ShowMessage(FloatToStr(M.SumNum));
M.MsgNum;
end;
end.
El código anterior
compila en Delphi 2010 pero no en Delphi 7 por todo lo expuesto anteriormente.
Espero sea útil
Nelson.