ok cuando lo corry me salian unos errors en la variable Strname porque no estaba declarada pero se lo agregue y me quedo asi
Código Delphi
[-]
procedure Tfrminfo.BitBtn1Click(Sender: TObject);
Var
i:integer;
StrSQL:string;
StrNames:string;
StrName:string
begin
StrSQL := 'SELECT * FROM EMPLEADOS WHERE Nombre IN (%s)';
for i := 0 to (Memo1.Lines.Count - 1) do begin
if (i > 0) then begin
StrName := StrNames + ',';
end;
StrName := StrNames + QuotedStr(Memo1.Lines[i]);
end;
StrSQL := Format(StrSQL,[StrNames]);
end;
y ya no me salio error
Pero no me salio nada en mi DBGRID
como mando el resultado del query al DBGRID
gracias