here en sql con variables

[rolando_s]

este es mi problema nop toma la variable como variable sino como letra
les agradecere si tienen la solucion
funciona correctamente si coloco un numero 1 O 2 etc...

procedure TSalas.FormActivate(Sender: TObject);
var x:integer;
begin
with query1 do
begin
x:=1;
Close;
sql.clear;
sql.add('select*from usopc where inde=x');
open;
while not eof do
begin
inp1.Caption:=(fieldbyname('nombre').asstring);
next;
end;
end;
end;

[marcoszorrilla]

Código Delphi [-]
var x:integer;
 begin
   with query1 do
   begin
   x:=1;
   Close;
   sql.clear;
   sql.add('select*from usopc where inde = '+QuotedStr(IntToStr(x)));
   open;
     while not eof do
     begin
     inp1.Caption:=(fieldbyname('nombre').asstring);
     next;
     end;
   end;
 end;

Un Saludo.

[[Héctor Randolph]]

Hola Rolando!

Me parece que esta sería la solución a tu problema

Código Delphi [-]
procedure TSalas.FormActivate(Sender: TObject);
var 
  x: Integer;
begin
  with query1 do
  begin
    x:=1;
    Close;
    sql.clear;
    sql.add('select*from usopc where inde=:x');
    ParamByName('x').AsInteger:=x;
    open;
    while not eof do
    begin
      inp1.Caption:=(fieldbyname('nombre').asstring);
      next;
    end;
  end;
end;

Espero que te sea útil

Nota: Procura utilizar las etiquetas de código en tus mensajes para que sean más legibles, de esta forma recibirás una ayuda más eficiente.

Un saludo y hasta pronto.

[rolando_s]

Muchas gracias
Si es la solución a mi problema