RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 350
от 29.06.2004, 08:10
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 1640 Отправлено ответов: 3800 Активность: 231.7 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Snowm@n Статус: Опытный Общий рейтинг: 111.14 [Подробней >>] |
Boriss Статус: Профессиональный Общий рейтинг: 162.53 URL: Программирование на Паскале [Подробней >>] |
sir henry Статус: Профессиональный Общий рейтинг: 164.46 [Подробней >>] |
| vitya Статус: Профессиональный Общий рейтинг: 109.41 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 1632. Пожалуйста помогите!!! Как программно влючатьвыключатьблакировать индикаторы клавиатуры (CapsNumScro... (ответов: 3)
Вопрос № 1634. Доброе время суток! Подскажите Пожалуйста как прочитать из реестра знначение типа REG_MULTI_SZ. Зара... (ответов: 1)
Вопрос № 1635. Здравствуйте уважаемые эксперты. У меня такой вопрос. В таблице имеются два поля типа – дата (d1 и ... (ответов: 1)
Вопрос № 1636. Здравствуйте уважаемые эксперты. У меня такой вопрос. Есть процедура сравнения двух полей базы (табл... (ответов: 1)
Вопрос № 1637. Здравствуйте уважаемые эксперты. У меня такой вопрос. function TEditF.findispolnstr(s:string):strin... (ответов: 1)
Вопросов: 5, ответов: 7
| Вопрос № 1632 |
Пожалуйста помогите!!!
Как программно влючатьвыключатьблакировать индикаторы клавиатуры (CapsNumScrool Lock) например Bios при загрузке мигает сразу всеми а в линухе Alt+Shift блакирует(включает Scroll Lock)
Вопрос отправлен: 24.06.2004, 10:41
Отправитель: МАВр (menand@narod.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Snowm@n
Доброе время суток, МАВр!
var
KeyboardState: TKeyboardState;
begin
{...}
KS[020]:=1;
KS[144]:=1;
KS[145]:=1;
SetKeyboardState(KeyboardState);
{включить все индикаторы}
{...}
end.
Ответ отправлен: 24.06.2004, 14:43
Отправитель: Snowm@n
Отвечает Boriss
Приветствую Вас, МАВр!
Пример в приложении
Приложение:
Ответ отправлен: 24.06.2004, 15:45
Отправитель: Boriss
Отвечает sir henry
Здравствуйте, МАВр!
Как "блакировать" :))) я не знаю (может Вы что-то другое имели в виду :), а включать//выключать см. в приложении.
Приложение:
Ответ отправлен: 24.06.2004, 15:46
Отправитель: sir henry
| Вопрос № 1634 |
Доброе время суток! Подскажите Пожалуйста как прочитать из реестра знначение типа REG_MULTI_SZ. Заранее Спасибо.
Вопрос отправлен: 24.06.2004, 20:08
Отправитель: rOOse
[Следующий вопрос >>] [Список вопросов]
Отвечает vitya
Приветствую Вас, rOOse!
RegQueryValueEx
1. сначала передаете пустой буффер и размер равный 0, чтоб узнать сколько места надо.
2. выделяете соответствующий линейный буффер. + 2 байта (на всякий случай)
3. снова запускаете функцию, передавая ей выделенный буффер и новый размер.
4. анализируете данные. строчка строчка 0 ... строчка
Ответ отправлен: 25.06.2004, 09:09
Отправитель: vitya
| Вопрос № 1635 |
Здравствуйте уважаемые эксперты.
У меня такой вопрос.
В таблице имеются два поля типа – дата (d1 и d2) необходимо сделать фильтрацию данных.
Если поле d1 больше поля d2 одной и той же записи, то запись удовлетворяет фильтру.
Когда я пишу такой фильтр ADOTable.filter:=’d1 > d2’;
Сразу видно, что это не то и оно не работает, потому что фильтр принимает второе поле за строковую переменную, а у меня там дата должна быть.
Еще вопрос мне более удобно задавать вопросы через почту как это можно сделать
Как быть, напишите, пожалуйста, vornik(закорючка)mail.kz
Вопрос отправлен: 25.06.2004, 13:24
Отправитель: Nik
[Следующий вопрос >>] [Список вопросов]
Отвечает sir henry
Здравствуйте, Nik!
Не возитесь с Table и фильтрацией, а лучше сразу получите необходимый Вам набор данных через запрос SQL. Иначе работа через ADO, как-то даже и теряет смысл. Впрочем это мое личное мнение :)). Но грузить себе полностью таблицу, чтобы затем ее урезать - дурной тон и мартышкин труд, когда можно загрузить уже готовый (запрос с условием выборки) набор данных и манипулировать уже только необходимыми Вам данными :).
Ответ отправлен: 25.06.2004, 15:16
Отправитель: sir henry
| Вопрос № 1636 |
Здравствуйте уважаемые эксперты.
У меня такой вопрос.
Есть процедура сравнения двух полей базы (таблицы) если не удовлетворяют условию, выводится информация.
При перемещении по DBGrid с помощью мыши все работает, вызываю событие DBGrid1CellClick , а при перемещении с помощью клавиатуры не могу подобрать подходящее событие, KeyDown и KeyPress вызываются раньше перемещения курсора в базе и процедура обрабатывает данные из предыдущей текущей записи.
Подскажите, как лечить. , vornik(закорючка)mail.kz
Вопрос отправлен: 25.06.2004, 13:25
Отправитель: Nik
[Следующий вопрос >>] [Список вопросов]
Отвечает sir henry
Приветствую Вас, Nik!
Это все не то :). По всей видимости Вам нужно будет применить TTable.After(Before)Scroll. Это событие происходит всякий раз, как Вы перескакиваете с одной записи на другую ЛЮБЫМ способом :).
Ответ отправлен: 25.06.2004, 15:52
Отправитель: sir henry
| Вопрос № 1637 |
Здравствуйте уважаемые эксперты.
У меня такой вопрос.
function TEditF.findispolnstr(s:string):string;
var i,nisp:integer;
begin
result:='';
while s<>'' do
begin
i:=pos(',',s);
if i>0 then
begin
nisp:=strtoint(copy(s,1,pred(i)));
if result='' then
result:=TIspoln.Lookup('n',nisp,'name')
else
result:=result+','+TIspoln.Lookup('n',nisp,'name');
s:=copy(s,succ(i),length(s));
end
else
begin
nisp:=strtoint(s);
if result='' then
result:=TIspoln.Lookup('n',nisp,'name')
else
result:=result+','+TIspoln.Lookup('n',nisp,'name');
s:='';
end;
end;
end;
В функцию передается строка, цифры разделенные запятыми. Каждая цифра соответствует записи в таблице Tispoln. Если в этой таблицы записи с таким номером не существует, то выдается исключение на Lookup строке «Invalid variant type conversion». Если все записи есть то все ОК. Подскажите, как лечить. vornik(закорючка)mail.kz
Вопрос отправлен: 25.06.2004, 13:27
Отправитель: Nik
[Следующий вопрос >>] [Список вопросов]
Отвечает sir henry
Приветствую Вас, Nik!
По-моему Вы что-то путаете. "Если в этой таблицы записи с таким номером не существует" - Lookup не ищет запись под каким бы то ни было номером, этот метод ищет значение, заданное во втором параметре в полях из первого параметра. А ошибка означает ни что иное, как невозможность преобразовать в тип Вариант то, что Вы ему задаете во втором параметре. У меня такое впечатление, что Вы неправильно применяете поиск в таблице. Если Вы напишете, что Вы хотите найти, тогда можно дать совет, как это сделать. А пока, увы :(.
Ответ отправлен: 25.06.2004, 16:06
Отправитель: sir henry
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (23) C / C++ (14) Perl (3) Builder / Delphi (18) Pascal (27) Basic / VBA (7) Java / JavaScript (4) PHP (12) Криптография (8) WinAPI (12) Радиоэлектроника (12) |
Пользователю Windows 95/98/Me (36) Windows NT/2000/XP (50) "Железо" (36) Поиск информации (17) |
Администратору Windows NT/2000/XP (30) Linux / Unix (14) |
Юристу Гражданское право (11) Семейное право (8) Трудовое право (9) КоАП (7) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru | Отписаться |
| В избранное | ||
