NO ENTRA -> if Enum.Text = adoquery1.FieldByName('numero').AsString then

[sakuragi]

hola que tal

no eh podido hayar el problema por que no me entra a un if.

esta es la cuestion

hise esta pequeña consulta con el componete zeos


if key = 13 then
begin
zquery1.SQL.Clear;
zquery1.SQL.Add('select * from clientes where numero='+quotedstr(enum.Text)+'');
zquery1.Active:=true;
if enum.Text = zquery1.FieldByName('numero').AsString then
begin
enom.Text := zquery1.FieldByName('nombre').AsString;
EDir.text:=zquery1.fieldbyname('direccion').asstring;
bcancelar.SetFocus;
beliminar.Enabled:=true;
bmodificar.Enabled:=true;
end
else
begin
enom.SetFocus;
bguardar.Enabled:=true;
end;
end;


todo sale bien

ahora lo hise con el ADO

que quedo asi:


if key = 13 then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from clientes where numero='+quotedstr(enum.Text)+'');
adoquery1.Active:=true;
if Enum.Text = adoquery1.FieldByName('numero').AsString then
begin
enom.Text := adoquery1.FieldByName('nombre').AsString;
EDir.text:=adoquery1.fieldbyname('direccion').asstring;
bcancelar.SetFocus;
beliminar.Enabled:=true;
bmodificar.Enabled:=true;
end
else
begin
enom.SetFocus;
bguardar.Enabled:=true;
end;


todo se ve bien

pero no entra en el if sem ehase muy rarro


if Enum.Text = adoquery1.FieldByName('numero').AsString then


bueno

cual quier ayuda se los agradeseria mucho

saludos

[vtdeleon]

Saludos.

Mira a ver si te funciona asi:if (trim(Enum.Text) = trim(adoquery1.FieldByName('numero').AsString)) thenSuerte

[sakuragi]

hola que tal

muchas gracias por tu aporte

si funciono bien

que hase esa funcion que con ella si arroja el resultado que quiero tener que sin ella no?


saludos

[vtdeleon]

Saludos

Elimina los espacion entre los extremos de un STRING.
Ej:
Convierte=> " Espacios en String " en "Espacio en String".

Si te fijas, en la 1ra hay espacios al principio y al final. Usado TRIM() estos espacios se eliminan