Buscar en una estructura record

[ecfisa]

Empezado por fcios

ok, en lo de Escafandra busca en el primer campo de CADA array si mando varios arrays, eso está ok

Yo quiero buscar en el primer campo dentro del único array que le mando, por eso definí
BitBtn4Click que llama a
function BuscarEnRecord4(aRecord: TRecord2; Buscar:string):integer;

y lo que me cuesta, entra varias cosas..., es poder definir aRecord de un tipo puntero que pueda apuntar a cualquier tipo de TRecord
...

Pero es que ya está... aRecord esta definida de tipo TRecord2 que es un Pointer, es decir que este código de ejemplo,

Código Delphi [-]
...
type
  TRecord2 = Pointer;

function foo(aRecord: Pointer; cad: string): Boolean; // (TRecord2 ó Pointer a gusto)
begin
  ShowMessage(PAnsiString(aRecord)^);
  //...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  r1 : record
    a: string;
    b: Integer;
  end;

  r2 : record
    c: string;
    d: Double;
  end;
begin
  r1.a := 'Hola';
  r1.b := 1;

  r2.c := 'mundo';
  r2.d := 3.1416;

  foo(@r1, 'Hola');
  foo(@r2, 'mundo');
end;

funciona sin problemas siempre y cuando el primer campo de los Records sea del mismo tipo...

Saludos