Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lazarus Является ли сумма цифр данного четырёхзначного числа n чётным числом? https://www.cyberforum.ru/ lazarus/ thread1037057.html
помогите пожалуйста составить программу, определяющую, является ли сумма цифр данного четырёхзначного числа n чётным числом.
Массив Lazarus
может ли кто-нибуь написать вторую процедуру? и так и сяк пробовал, все равно в чем-то косяк.
Lazarus Создать процедуру, вычисляющую количество заданных элементов в одномерном массиве https://www.cyberforum.ru/ lazarus/ thread1036491.html
Необходимо решить задачу.. Создать процедуру, вычисляющую количество заданных элементов в одномерном массиве.(причем элементы массива должен вводить сам пользователь при компиляции) procedure TForm1.Button2Click(Sender: TObject); var n,j:integer; r:string; a:array of integer; begin n:=strtoint(Edit2.text); for j:=1 to n do begin r:=InputBox('Введите...
Lazarus Кодировка в Лазарус (для csv файла) https://www.cyberforum.ru/ lazarus/ thread1035851.html
Мне необходимо сделать редактор csv для нужд организации. Столкнулся с проблемой сохранения из стринглист в файл (проблема с кодировкой) помогите решить проблему.
Программка в Лазарусе Lazarus
Всем доброго времени суток. Очень нужна помощь с задачкой, сделанную в Lazarus:Найти количество четных элементов одномерного массива до первого встречного числа равного наперед заданному числу (а). Заранее спасибо!
Lazarus Взаимодействие между Image и ImageList https://www.cyberforum.ru/ lazarus/ thread1035495.html
Здравствуйте дорогие форумчане. Задача вытащить картинку из ImageList1 и поместить в объект Image1. Мануалов по объекту ImageList1 и его свойствам я не нашел. Предположительно обращение к компоненту ImageList1 происходит так Form1.ImageList1.Components; Только тогда как присвоить объекту Image1 один из компонентов ImageList1. ...
Lazarus Создать файл целых чисел и переписать компоненты файла в обратном порядке Создайте файл, компоненты которого являются целыми числами. Напишите программу, переписывающую компоненты файла в обратном порядке. (Новый файл не заводить.) Нашел код в паскале.. program Zadanie5; var f: file of integer; i: integer; k,j: byte; a: array of integer; https://www.cyberforum.ru/ lazarus/ thread1035442.html Упорядочить строку по неубыванию суммы её элементов Lazarus
Здравствуйте! Объясните, пожалуйста, что значит это выражение "Упорядочить строку по неубыванию суммы её элементов."? Мозг на грани поломки) Речь идёт о матрице, строки в которой нужно упорядочить таким вот непонятным образом. Полное задание звучит так: Дана вещественная матрица размером NxM. Упорядочить ее строки по неубыванию суммы их элементов.
Lazarus Поиск строки в TMemo https://www.cyberforum.ru/ lazarus/ thread1033685.html
В TEdit вводится строка. Необходимо выполнить поиск введенной строки в TMemo, вывести ее номер на экран. После этого поменять местами с первой строкой TMemo. Если строка не найдена, вывести сообщение. Поиск ведётся лишь в том случае, если в Memo - числа, если слова, то поиск не идёт. Как это исправить? procedure TForm1.Button1Click(Sender: TObject); var sample: string; i: dword; ...
Lazarus Удаление строк из TMemo В поле ввода TEdit содержится номер строки TMemo. Необходимо удалить из TMemo строку с указанным номером. Если строки с таким номером нет, вывести на экран соответствующее сообщение. При вводе, например, числа 3, из пяти чисел: 1-5, удаляется число 4. Включил For чтобы не тратить время на ввод чисел. Хотелось бы, чтобы при вводе удалялась строка именно с указанным номером. Можно ли сделать... https://www.cyberforum.ru/ lazarus/ thread1033658.html
Lazarus У попа была собака
Вывести на экран 40 раз известное стихотворение: «У попа была собака …» (не забыть поставить линейки прокрутки). procedure TForm1.Button1Click(Sender: TObject); Var I:integer; begin memo1.Clear; For I:=1 to 40 do writeln('У попа была собака...'); Memo1.ScrollBars:=TScrollStyle.ssAutoBoth; end;
Lazarus Имена объектов их изменение и модернизация Здравствуйте дорогие форумчане. Задача состоит в упрощении кода. Мы подаем в Label9 определенный номер объекта Image, а затем манипулируем им. Прочитав множество ненужной информации, так и не нашел как можно модернизировать имя объекта. Вот моя версия кода: Form1.Image+(strtoint(Form1.Label9.Caption)).Top:=Form1.Image+(strtoint(Form1.Label9.Caption)).Top-40; Если кто владеет... https://www.cyberforum.ru/ lazarus/ thread1033084.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32835 / 21172 / 8148
Регистрация: 22.10.2011
Сообщений: 36,431
Записей в блоге: 8
11.12.2013, 14:41 0

Как включить два фильтра одновременно? - Lazarus - Ответ 5474269

11.12.2013, 14:41. Показов 1398. Ответов 1
Метки (Все метки)

Ответ

Ну, так запиши:

Pascal
1
2
3
4
5
6
7
8
9
if checkbox1.checked then
  Dbf1.Filter:='(Fakultet="'+Edit1.Text+'")'
else dbf.filter := '';
if checkbox2.checked then
begin
  if dbf.filter <> '' then dbf.filter := dbf.filter + ' AND ';
  dbf.filter := dbf.filter + '(group="'+Edit2.Text+'")';
end;
dbf1.Filtered:=checkbox1.checked or checkbox2.checked;


Вернуться к обсуждению:
Как включить два фильтра одновременно? Lazarus
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2013, 14:41
Готовые ответы и решения:

Как включить одновременно два видеоядра?
Доброго времени суток. Имеется мат плата GA-8I915MD-GV, встроенное видео, выход VGA Установлена...

Как включить одновременно 2 видеокарты
Суть проблемы следующая,купил видеокарту на авито,подключаю к компьютеру,подключаю доп питание и...

Как включить звук и в колонках и в наушниках одновременно
Совсем недавно, у меня по стандарту стояли такие настройки, что при подключении наушников звук...

Как включить видео на 9 плазмах одновременно на Panasonic TX-LR39E6?
Доброго времени суток! Есть задача синхронно крутить на нескольких плазмах (panasonic tx-lr39e6)...

1
11.12.2013, 14:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2013, 14:41
Помогаю со студенческими работами здесь

Smartel Pw-0810 Как одновременно включить питание на нескольких портах
Подскажите, Как одновременно включить несколько портов питания на Smartel pw0810 На них висит 3...

Подключения двух мониторов одновременно. Как включить две видеокарты
Здравствуйте уважаемые форумчане. Подскажите пожалуйста, как мне включить две видеокарты...

Как объединить два фильтра?
Помогите пожалуйста. Есть выбор подчиненными полями со списком. И выборка полей по интервалу дат....

Как соединить два фильтра в один?
Здравствуйте У меня в программе есть два фильтра, каждый с которых активируется нажатием кнопки: ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru