Ayuda Con .locate En Delphi 7

[Neftali [Germán.Estévez]]

Empezado por roman

Y por favor, no repitas hilos.

Yo añadiría que por favor no escribas en mayúsculas; no hay ninguna razón para ello.
Revisa la Guía de estilo y recordarte que una búsqueda en los foros sobre locate te dará muchos hilos sobre el tema con mucho código de ejemplo.

[zanyodark]

exacto como dicen el locate te devuelve un valor falso o verdadero, lo unico que tienes que hacer es declarar una variable (opcion:TLocateOptions
y donde vayas a utilizar el locate puede ser como esto...

ZTable1.Locate('Clave',Edit1.Text,opcion);
if ZTable1.Locate('Clave',Edit1.Text,opcion)=False then
Begin
ShowMessage('Escuela no encontrada, por favor escriba otra DPR');
Edit1.Clear();
Edit1.SetFocus();
end
else
Button8.Enabled:=True;
end;

donde clave es el nombre del campo en donde va a buscar, edit1.text de donde va a sacar lo que va a buscar. si es false quiere decir que no encontro y si es true es encontrado.

[karlaoax]

Mira aqui te pongo un codigo que hice hace como 6 años, ahora todo lo manejo por query's, busca en el foro para que empieces a dominar delphi, por lo que veo utilizas Paradox, buena eleccion para empezar pero te recomiendo que leas mas acerca de Firebird y MySQL para que veas que existe un abismo entre Paradox y los otros 2

Tenia un Edit (txtclave)
1 Table
1 datasource
En tu caso los DBedits que vayas a necesitar

var
options:tlocateoptions;
clave:string;
begin
clave:=txtclave.Text;
// In this section I'm checking that someboby writes the Clave, to avoid show dates wrongs
if(clave='')then
begin
txtclave.Text:='Escribe tu codigo';
txtclave.SetFocus();
messagebox (handle,'Escribe la clave','Error',mb_ok);
end else
begin
// And in this section i begin to find the dates
if not table1.locate ('clave',txtclave.text,options) then begin
messagebox (handle,'Clave no existente','Information',mb_ok);
txtclave.Text:='Escribe de nuevo';
txtclave.SetFocus();

end
else begin

// Aqui pones tus campos de tu tabla
DBEdit1.DataField:='campo1';
DBEdit2.DataField:='campo2';
..... N campos
options:=[lopartialkey];
end;
end;

Atte: Karla

[Neftali [Germán.Estévez]]

Usad TAG's cuando escribáis código Delphi, no es tan difícil...