Comparar dos campos de una tabla

[leogobo]

hola,

como hago para comparar dos registros de un mismo campo de una tabla, específicamente con el ultimo. En pseudocodigo:

Código Delphi [-]
if (tabla1.campo1.actual=tabla1.campo1.ultimo) then
begin
 ...
end

estoy utilizando el componente Dbf de lazarus.

Gracias

[ecfisa]

Hola leogobo.

Código Delphi [-]
...
var
  d1: variant;
begin
  Dbf1.First;
  d1:= Dbf1.FieldByName('Campo1').Value;
  Dbf1.Last;
  if d1 = Dbf1.FieldByname('Campo1').Value then
  begin
    ...
  end;

Saludos

[leogobo]

pero solo quiero comparar, no ir hasta el ultimo porque se me perderia la posición actual de la tabla.

[ecfisa]

Hola.

Es que no veo otra manera, no es un arreglo que se pueda manejar por índices o algo parecido. Para acceder al valor de un campo de determinado registro tenés que desplazarte hacia él.

Una posible solución para evaluar el valor de cualquier campo con el valor del último es tenerlo almacenado en una variable.

Código Delphi [-]
...
  // FValorUltimoCampo tiene almacenado el valor del último campo de la tabla
  if Dbf1.FieldByname('Campo1').Value = FValorUltimoCampo then 
  begin
    ...
  end;

Es decir, cuando agregas un registro deberías guardar el valor del campo que te interese en FValorUltimoCampo.


Saludos.

[ecfisa]

Hola de nuevo.

No te mencioné el uso de BookmarkStr por que creo que en un post anterior dijiste que el componente TDbf no lo soporta o dá problemas, pero por las dudas probalo.

Seria más o menos así:

Código Delphi [-]
var
  BM: TBookmarkStr;
  d: Variant;
begin
  BM:= Dbf1.Bookmark;
  Dbf1.Last;
  d:= Dbf1.FieldByName('Campo1').Value;
  Dbf1.Bookmark:= BM;
  if d = Dbf1.FieldByName('Campo1').Value then
  begin
    ..
  end;
  ...

Saludos.

[leogobo]

Perfecto, ya funciona como lo deseaba.

Gracias