[fcios]

Muchas gracias a todos, lo de escafandra anda ok

pero quiero poder recibir cualquier tipo record, por ejemplo

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

TR3 = record
  campo1: string;
  DOS: CHAR;
end;

aTR   = array of TR;
aTR3 = array of TR3;

// como debo definir aRecord para poder recibir cualquier tipo de array record ?, (mi mira a los punteros está muy desviada) Muchas gracias

Código Delphi [-]

function BuscarEnRecord2(aRecord: record^; Buscar:string):integer;
///////////////////////////////////////////////////
// aRecord = array donde buscar
// Buscar  = string
///////////////////////////////////////////////////
var i:integer;
//  s:string;
begin
  for i:=0 to Length(aRecord) -1 do begin
//  s := PString(@aRecord[i])^;
//  if s = Buscar then begin
    if PString(@aRecord[i])^ = Buscar then begin
      Result := i;
      Exit;
    end;
  end;
  Result := -1; // no lo encontró
end;