[Lazarus-es] Función Locate

[Ismael L. Donis García]

He intentado infructuosamente agregar los eventos a la units BufDataset.

Cuando recompillo azarus no me los coge, todo parece indicar poque está 
dentro del fpc y no en una units independiente. Como podría hacer esto?

José por otra parte implementé la función que me hiciste llegar pero al 
llamarla me da error al tratar de asignar el TDataset del TMenDataset

Al final le hice algunos cambios a la función que me mandaste pero que no 
influyen en el error.

La dejé así, pero repito me da error al tratar de asignar el DataSet por lo 
que tampoco me sirve.

function Tfunidad.Buscar(const aDS: TDataSet; const aField: string;
  const aToLocate: string): Boolean;
var
  oldRec: integer;
begin
  Result:=false;
  if (aDS.RecordCount = 0) then exit;
  oldRec:=aDS.recno;
  aDS.First;
  while not aDS.EOF do begin
    if aDS.FieldByName(aField).asString = aToLocate then begin
      Result:=true;
      exit;
    end;
  end;
  aDS.recno:=oldRec;
end;

Saludos Reiterados
=========
|| ISMAEL ||
=========
----- Original Message ----- 
From: "Paola Bruccoleri" <pbruccoleri en adinet.com.uy>
To: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Sent: Wednesday, May 04, 2011 8:17 AM
Subject: Re: [Lazarus-es] Función Locate


Hola José..
> Si ha sido detectado, pero TMemDataSet ha sido "marcado" como
> "deprecated" y se recomienda el uso de "TBufDataSet" en su lugar. Lo
> bueno de TBufDataSet es que usa el mismo código de soporte que el
> resto de SQLDataSets así que debería siempre estar más actualizado.
>
a raíz del problema de Ismael he buscado tb info al respecto.. y hemos
visto que el TBufDataSet no tiene eventos!
será que está a medio hacer? o quizás funcione de alguna otra forma que
yo no conozca..
chauuuuuuuu


_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es