[Lazarus-es] Función Locate

[José Mejuto]

Hello Ismael,

Tuesday, May 3, 2011, 9:53:36 PM, you wrote:

ILDG> A que se debe la no corrección de Bugs del TMenDataset?. El que lo
ILDG> desarrolló a dejado de soportarlo?

Probablemente...

ILDG> No puedo ofrecerme para ello porque:
ILDG> 1ro no tengo conocimientos para eso.
ILDG> 2do no tengo conexión a Internet.
ILDG> Pero lo que no me agrada para nada es que no se le corrijan los problemas
ILDG> detectados. Me gustaría que lo hicieran porque la verdad que en lo personal

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.

Te mando la página de la Wiki al respecto.

ILDG> me parece útil el componente, y de hecho he estado utilizándolo en las
ILDG> pequeñas cosas que he realizado hasta ahora, lo que me deja un poco
ILDG> atolondrado el que existan cosas en Lazarus que no sean actualizadas, para
ILDG> mi eso desvalora el sistema como tal.

Cuando no se actualiza algo normalmente es que hay otra cosa mejor que
se está desarrollando.

ILDG> Ahora perdona que te haga otra pregunta, no se si recuerdas que soy bien
ILDG> nuevo en esto,  nunca he tenido instalado delphi en mi pc, es más pienso
ILDG> nunca tenerlo tampoco, hasta ahora todo lo que he visto de pascal ha sido en
ILDG> Lazarus.
ILDG> Me podrías dar un poco más de luz con eso de la función?
ILDG> Realmente estoy atascado por este problema.

Una versión "casera" de locate sería algo como esto, aunque no tan
potente como el Locate original, claro:

function LocateCasero(const aDS: TDataSet; const aField: string; const
aToLocate: string): Boolean;
var
  oldRec: integer;
begin
  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;
  Result:=false;
end;

-- 
Best regards,
 José
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: TMemDataSet-TBufDataSet.zip
Type: application/x-zip-compressed
Size: 11123 bytes
Desc: no disponible
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110504/cced73f5/attachment-0002.bin>