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;
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;
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; end;
Muchas Gracias