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; 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;
var i:integer;
begin
for i:=0 to Length(aRecord) -1 do begin
if PString(@aRecord[i])^ = Buscar then begin
Result := i;
Exit;
end;
end;
Result := -1; end;