Buscar en una estructura record

[fcios]

ok, si yo defino

Código Delphi [-]
  SetLength(a1,3); // seteo a 3 items
  a1[0].UNO := 'Hola';
  a1[1].UNO := 'Carola';
  a1[2].UNO := 'Adios';

como hago para saber que tengo que recorrer 3 items dentro de la funcion ?
y como puedo obtener el primer campo, que también me da error al compilar
s := (PPString(@aRecord[i])^)^; // ERROR Array typed required

muchas Gracias

[ecfisa]

Hola.

como hago para saber que tengo que recorrer 3 items dentro de la funcion ?

Sea "a1" un arreglo estático o dinámico de elementos de cualquier tipo, podes conocer su capacidad mediante la función Length() y las cotas inferior y superior con las funciones Low() y High() respectivamente.

vg.r.:

Código Delphi [-]
...
var
  v1: array[1..10] of Pointer;
  v2: array of PChar;
begin
  ShowMessageFmt('%d - %d - %d',[Length(v1), Low(v1), High(v1)]);
  // mostrará: 10 - 1 - 10

  SetLength(v2, 10);  
  ShowMessageFmt('%d - %d - %d',[Length(v2), Low(v2), High(v2)]);
  // mostrará: 10 - 0 - 9 (indexación base-cero)

y como puedo obtener el primer campo, que también me da error al compilar

Revisa el tipo de "aRecord". Fijate que escafandra en su código lo declara como TRecods (TRecods = array of pointer)

Saludos

[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
por eso arme el ejemplo de
BitBtn4Click que llama a
function BuscarEnRecord4(aRecord: TRecord2; Buscar:string):integer;

GRACIAS otra vez

[ecfisa]

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; // (TRecord2 ó Pointer a gusto)
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

[fcios]

ok, eso funciona bárbaro... pero r1 no es un array

serias tan amablede hacerlo funcionar definiendo un array como por ejemplo

Código Delphi [-]
  SetLength(a1,3); // seteo a 3 items
  a1[0].UNO := 'Hola';
  a1[1].UNO := 'Carola';
  a1[2].UNO := 'Adios';

que está en el ejemplo BuscarEnRecord4 y BitBtn4Click que es donde me dan los errores,
yo quiero poder recorrer el array que le mande

Gracias