ayuda con dbgrid

[[oscarac]]

Empezado por 3DLord

necesito saber sin q las localidades reciban el foco...necesito obtener la ultima localidad...

no lo entiendo

[ecfisa]

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.

[3DLord]

Hay un propiedad en el dbgrid llamada option si entras en options, habilitas donde dice dgIndicator, y te aparece una flecha a lado de las filas(nombre de las localidades en este caso)....
Ejecutas el la aplicacion..
Cuando le das click sobre una localidad, ese flecha marca a q localidad se le hizo click.
Entoncs si hago, showmessage(tabla.fieldbyname('Localidad').asString);
devuelve el nombre de la localidad q fue clickeada con anterioridad,si no clickeo ninguna,por defecto señala a la primer localidad.En la aplicacion q tngo q hacer el dgIndicator esta deshabilitado..

lo q necesito, es obtener el nombre de la ultima localidad, ya q se le pueden ir agragando localidades..

si alguien tiene la solucion utilizando un TADOQuery y sin utilizar el TADOQuery..me serviria de mucha ayuda

desde ya muchisimas gracias!!!

[ecfisa]

lo q necesito, es obtener el nombre de la ultima localidad, ya q se le pueden ir agragando localidades

¿ Probaste la función que te hice arriba ? Por que hace exáctamente eso: Devuelve la última localidad ingresada.

Si no es eso, no te estoy entendiendo.

Saludos.

[3DLord]

la funcion q me pasaste me da error de tipos AnsiString and TBytes...

[[oscarac]]

y en que linea te sale ese mensaje?

[3DLord]

BM:= ADataSet.Bookmark;

y


ADataSet.Bookmark:= BM;

[[oscarac]]

esas instrucciones se utilizan para identificar la posicion actual
eliminalas si es que solo quieres llegar al final

Código Delphi [-]
 
 
function GetLastLocName(ADataSet: TDataSet): string;
begin  
  ADataSet.DisableControls;
  ADataSet.Last;  
  Result:= ADataSet.FieldByName('Localidad').AsString;  
  ADataSet.EnableControls;
end;