[Lazarus-es] buscar valor en array de record

[José Antonio Cuello]

Te envio un ejemplito abajo, creo que en el codigo que te pase hay
ejemplos ... mira los tipo_app o tipos_pub (creo recordar). Es sencillo,
piensa que muchos eventos se heredan del TObjectList. Deberías mirar su
declaración para saber como hace para ordenar y buscar.

Que yo sepa las busquedas en este tipo de objeto al igual que en el
TStringList son secuenciales ... si puedes usar las Rx tienen un MemData
que es un dataset en memoria que implementa locate y filtros. Muy util
para manejo de datos.

Un saludo.


Ejemplo de declaracion

type
  { TAxFieldDef }
  TAxFieldDef = class
  private
    FTableName: String;
    FFieldName: String;
    FFieldNo  : Integer;
    FTypeOrder: TTypeOrder;
  public
    constructor Create;
    destructor Destroy; override;

    property TableName: String read FTablename write FTablename;
    property FieldName: String read FFieldName write FFieldName;
    property FieldNo  : Integer read FFieldNo write FFieldNo;
    property TypeOrder: TTypeOrder read FTypeOrder write FTypeOrder;
  end;

  { TAxFieldDefList }
  TAxFieldDefList = class(TObjectList)
  protected
    function GetItem( Index: Integer ): TAxFieldDef;
    procedure SetItem( Index: Integer; Sender: TAxFieldDef);
  public
    constructor Create;
    destructor Destroy; override;

    function Add(Item: TAxFieldDef): Integer;
    function Add(TableName, FieldName: String; FieldNo: Integer):
Integer; overload;
    property Items[Index: Integer]: TAxFieldDef read GetItem write
SetItem; default;
  end;


El mar, 25-05-2010 a las 09:44 -0300, Paola Bruccoleri escribió:
> Hola José..
> tendrías algún ejemplo de tobjectloist? si cada elemento fuera un 
> trecord, cómo buscaría algo dentro de c/elemento?... (si es que hay 
> algún método sin ser buscar secuencialmente...)
> muchas gracias...
> 



________________________________________________________________________

ARTEX TRADING S.A.
José Antonio Cuello Principal