delphi - tag - Pase el parámetro de registro sin declararlo primero como una variable

google tag manager español

Question

Si estoy tratando de llamar a un procedimiento que tiene un tipo de registro (no un objeto) como parámetro, ¿es posible pasar de algún modo los detalles de ese parámetro "en línea" sin tener que declarar primero una variable de ese tipo?

Por ejemplo, supongamos que tengo este tipo de registro simple:

type TMyRecord = record
  AString: string;
  AnInt: Integer;
end;

y esta declaración de procedimiento:

procedure MyProcedure(Rec: TMyRecord);

Si quiero llamar a MiProcedimiento, ¿tengo que declarar una variable de tipo TMyRecord o puedo hacer algo como:

MyProcedure(TMyRecord("Test", 10));

Eso no funciona (XE2) (recibe un error del compilador al respecto esperando un ")").

Entonces, ¿puedo hacer algo así? O no es posible.

Gracias

Answer 1

¡Sería bueno! Pero no.

Si pasar los objetos en línea es realmente su objetivo, entonces tal vez le convengan los Parámetros de matriz abierta.

Procedure MyProcedure(const Vars: Array of Variant);
begin
  ShowMessage(VarToStr(Vars[0])+''  ''+VarToStr(Vars[1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   MyProcedure([''Test'', 12]);
end;

También puede pasar una matriz de Const, que es básicamente una matriz de TVarRec que es un registro de variante que también incluye información de tipo como VType. Esto es algo divertido ...

Un excelente artículo se puede encontrar en Rudy''s Delphi Corner aquí: Rudy''s Delphi Corner, Parámetros de matriz abierta

Answer 2

Es posible utilizar la estructura de advanced record .

Para obtener más información sobre advanced records , consulte la sección Registros (avanzados) en la ayuda de Delphi.

Este es un pequeño prototipo para ver cómo funciona en su caso para preinicializar un registro en una llamada de función / procedimiento:

Type
  TRecord = record
   AString : String;
   AnInt : Integer;
   Constructor Create( Const s : String; i : Integer);
  end;

constructor TRecord.Create(const s: String; i: Integer);
begin
  AString := s;
  AnInt := i;
end;

procedure DoSomething( theRec : TRecord);
begin
  WriteLn(theRec.AString, '' '',theRec.AnInt);
end;

begin
  DoSomeThing( TRecord.Create(''S'',1));
  ReadLn;
end.

En cuanto a Delphi RTL, vea las definiciones de los tipos de registro TPoint y TRect en unit system.types (XE2). Definen algunos constructores de Create sobrecargados, que se utilizan en muchos lugares para preinicializar las estructuras de registro en llamadas de función / procedimiento.

Answer 3

La pregunta que hace está relacionada con la legibilidad del código y existe una solución que evita tener que crear una variable. La VCL usa esta solución con los registros TPoint y TRect .

Considere la definición de TPoint :

type
  TPoint = record
    X,Y integer
  end;

Para pasar un TPoint a un procedimiento que podría hacer:

var
  MyPoint : TPoint;

begin
  MyPoint.X := 5;
  MyPoint.Y := 7;
  DoSomething( MyPoint );
end;

Esto está bien pero toma 3 líneas cuando también es posible usar una función de fábrica Point :

begin
  DoSomething( Point(5,7) );
end;

En Delphi, una función ha sido declarada como sigue:

function Point( X, Y : integer ) : TPoint;
begin
  Result.X := X;
  Result.Y := Y;
end;

Luego, puede llamar a esta función ''en línea'' para crear el registro ''sobre la marcha'' para ver rápidamente. Se proporcionará lo mismo para TRect etc. A menudo pongo tal función de fábrica junto con la declaración de registro de la siguiente manera, incluso si No planeo usarlos todavía:

type
  TMyRecord = record
    A : integer;
    B : string;
  end;

function MyRecord( A : integer; const B : string ) : TMyRecord;
begin
  Result.A := A;
  Result.B := B;
end;

El uso de esta técnica puede mejorar la legibilidad del código y también garantiza que no omita la configuración de un elemento de registro.

Answer 4

Simplemente divirtiéndose con la idea de John Easley:

type TRec = record
  X: string;
  Y: Integer;
end;

procedure TestRec(const Rec: array of const);
var
  R: TRec;

begin
  R.X:= string(Rec[0].VUnicodeString);
  R.Y:= Rec[1].VInteger;
  ShowMessage(R.X + IntToStr(R.Y));
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  TestRec([''Test'', 22]);
end;

Es posible pasar campos de registro como una array of const parámetros array of const y asignar estos parámetros a la variable de registro local.