Cita:
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; 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