Buscar en una estructura record

[fcios]

Hola, como puedo armar una función para que me sirva para buscar en distintas estructuras Record ?
(por lo menos no ví ninguna que lo haga)

por ejemplo tengo

Código Delphi [-]
  TProvincias = record
    Provin : string;
    Importe : currency;
    Descri   : string;
   end;

  TIvas = record
    Codigo : string;
    Descri : string;
    Porcentaje : currency;
   end;

  TaProvincias = array of TProvincias;
  TaIvas       = array of TIvas;

  // luego defino las variables
    aProvincias :  TaProvincias;
    aIvas       :  TIvas;

y acá el problema de como buscar, este es un simple ejemplo que no funciona, cualquier ayuda es bien venida

Código Delphi [-]
function BuscarEnRecord(aRecord:array of TObject; Campo:variant; Buscar:Variant):integer;
///////////////////////////////////////////////////
// aRecord = array donde buscar
// Campo  = campo del record donde buscar
// Buscar  = string o número a buscar
///////////////////////////////////////////////////
var i:integer;
begin
  for i:=0 to Length(aRecord) do begin
    if aRecord[i].Campo = Buscar then begin
      Result := i;
      Exit;
    end;
  end;
  Result := -1; // no lo encontró
end;

Muchas Gracias

[ecfisa]

Hola.

¿ En cuál versión de Delphi estas trabajando ?

Saludos

[fcios]

usando delphi 7

[ecfisa]

Hola.

Empezado por fcios

usando delphi 7

Por eso era mi pregunta, desde Delphi 7 no veo posible que accedas a los campos de un record.

Si fuese Delphi 2010 o una versión superior, podrías hacerlo usando RTTI como se muestra en este enlace: List the Record's element\fields

Saludos

[fcios]

y hay alguna forma de buscar siempre en el primer campo ?

[[escafandra]]

Empezado por fcios

y hay alguna forma de buscar siempre en el primer campo ?

Si sabes el tipo, si.

Mira este ejemplo:

Código Delphi [-]
type
TR = record
  UNO: integer;
  DOS: CHAR;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  V: TR;
begin
  V.UNO:= 1;
  Edit1.Text:= IntToStr(PInteger(@V)^);
end;

Saludos.

[Caminante]

Empezado por fcios

Código Delphi [-] if aRecord[i].Campo = Buscar then begin

Hola

Veo que en el parametro campo envias el nombre del campo que quieres buscar. La verdad eso no lo veo viable y no creo que alguna version de delphi la acepte.

Tal vez usando RTTI podrias acceder a cualquier campo del record pero de esa forma no lo creo.

Se que no es de ayuda pero creo que tendrias que buscar otra manera. Haber si alguien mas nos saca de la duda.

Saludos