Usando FireMonkey XE4, cargo una lista de usuarios en un listbox cuando selección uno de los usuarios de la lista deseo que el nombre asosciado al usuario se despliegue en una caja de texto ejecutando este código
delphi
procedure TfrmPermisos.RecuperaDatos; begin if (lstUsuarios.ItemIndex <> -1) then begin with dmDatos.qryGeneral do begin Close; SQl.Clear; SQL.Add('SELECT cod_usuario, login FROM usuario WHERE login = ''' + lstUsuarios.Items.Strings[lstUsuarios.ItemIndex] + ''''); Open; iClave := FieldByName('cod_usuario').AsInteger; Edit1.Text := Trim(FieldByName('login').AsString); end; end; end;
pero no lo hace que podría estar faltando. Anteriormente usaba este mismo código en Delphi y funciona sin problema.