Ver Mensaje Individual
  #2  
Antiguo 01-06-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Fijate si así te sirve, la función devuelve el nombre de la última localidad del TDataSet:
Código Delphi [-]
function GetLastLocName(ADataSet: TDataSet): string;
var
  BM: TBookMarkStr;
begin
  BM:= ADataSet.Bookmark;
  ADataSet.DisableControls;
  ADataSet.Last;
  Result:= ADataSet.FieldByName('Localidad').AsString;
  ADataSet.EnableControls;
  ADataSet.Bookmark:= BM;
end;

Ejemplo de llamada:
Código Delphi [-]
   ShowMessage(GetLastLocName(DBGrid1.DataSource.DataSet));

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 01-06-2011 a las 06:57:44. Razón: Agregar Ejemplo de llamada
Responder Con Cita