Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1049
от 30.01.2008, 09:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 432, Экспертов: 58
В номере:Вопросов: 3, Ответов: 5

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 119963: Здравствуйте, уважаемые эксперты. Как с помощью Delphi воспроизвести звук восклицания, завершения операции, вопроса или ошибки, которые установлены в системе? Спасибо за ответы....
Вопрос № 119976: Здравствуйте,уважаемые эксперты.Условие:дано множество из строчных латинских букв,вывести буквы встречающиеся только один раз,вроде бы написал всё правильно,но не могу отладить помогите пожайлуста: program project1; const n=10; var i,j:i...
Вопрос № 120038: Здравствуйте, уважаемые эксперты. Как сделать, чтобы процедура выполнялась при всех изменениях размеров формы, но при растягивании окна мышкой выполнялась только после окончания растягивания. Я пользовался событием OnResize, но оно выполняется в проц...

Вопрос № 119.963
Здравствуйте, уважаемые эксперты.
Как с помощью Delphi воспроизвести звук восклицания, завершения операции, вопроса или ошибки, которые установлены в системе?

Спасибо за ответы.
Отправлен: 24.01.2008, 15:48
Вопрос задал: Alexander L. (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Drbear
Здравствуйте, Alexander L.!

Можно использовать MessageBeep(uType);
uType=
MB_ICONASTERISK
MB_ICONEXCLAMATION
MB_ICONHAND
MB_ICONQUESTION
MB_NOK
Ответ отправил: Drbear (статус: 6-ой класс)
Ответ отправлен: 24.01.2008, 16:13
Оценка за ответ: 5
Комментарий оценки:
Все правильно. Полный исчерпывающий ответ.

Отвечает: Selya
Здравствуйте, Alexander L.!
При помощи Beep()
См.справку WinAPI по MessageBeep

Приложение:

Ответ отправил: Selya (статус: 4-ый класс)
Ответ отправлен: 24.01.2008, 21:11
Оценка за ответ: 4
Комментарий оценки:
спасибо. это то что было нужно.

Отвечает: Genia007
Здравствуйте, Alexander L.!
unit
mmsystem;

sndPlaySound('SystemExit', SND_SYNC);
SystemExit - Выход из системы, либо другие названия звуков, которые находятся в папке С:WINDOWSMedia
Ответ отправил: Genia007 (статус: 5-ый класс)
Ответ отправлен: 27.01.2008, 15:10
Оценка за ответ: 5
Комментарий оценки:
Спасибо за ответ. Этот звук у меня работает, в отличие от MessageBeep.


Вопрос № 119.976
Здравствуйте,уважаемые эксперты.Условие:дано множество из строчных латинских букв,вывести буквы встречающиеся только один раз,вроде бы написал всё правильно,но не могу отладить помогите пожайлуста:
program project1;
const n=10;
var i,j:integer;
c:char;
q,p:set of 'a'..'z';
s:array [1..n] of char;
begin
q:=[c]; p:=[c];
for i:=1 to n do
begin
include(p,s[i]);
if not (s[i] in q)
then for j:=i+1 to n do
if s[i]=s[j] then begin include(q,s[i]);end;
end;
p:=p-q;
for c:='a' to 'z' do if c in p then writeln(c);
readln;
end.
Отправлен: 24.01.2008, 16:59
Вопрос задал: Ефимов Александр (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gh0stik
Здравствуйте, Ефимов Александр!

С Вашего позволения я немного переименовал переменные, на мой взгляд так удобнее ;).

Читайте внимательно коментарии:
const n=10;
var i,j:integer;
      c:char;
      all,more:set of 'a'..'z';
      s:array [1..n] of char;
begin
    all:=[]; more:=[]; {так формируются ПУСТЫЕ множества}
    for i:=1 to n do
        if not (s[i] in all) {если символа нет в множестве all}
            then include(all,s[i]) {заносим его в множество all}
            else if not (s[i] in more) {иначе если символа нет в множестве more}
                        then include(more,s[i]); {заносим его в множество more}
    all:=all-more; {находим разность множеств, получим множество из символов, которые входят в последовательность только один раз}
    for c:='a' to 'z' do {перебираем все буквы и проверяем есть ли они в множестве all, если есть то выводим на экран}
        if c in all then writeln(c);
    readln;
en d.


Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
WWW: http://gh0stik.rusfaq.ru/
ICQ: 289363162
----
Ответ отправлен: 25.01.2008, 01:20


Вопрос № 120.038
Здравствуйте, уважаемые эксперты. Как сделать, чтобы процедура выполнялась при всех изменениях размеров формы, но при растягивании окна мышкой выполнялась только после окончания растягивания. Я пользовался событием OnResize, но оно выполняется в процессе растягивания, а не после.
Отправлен: 24.01.2008, 23:33
Вопрос задал: Хукаленко Дмитрий (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Drbear
Здравствуйте, Хукаленко Дмитрий!

Попробуйте перехватывать событие WMEXITSIZEMOVE, код в приложении.

Приложение:

Ответ отправил: Drbear (статус: 6-ой класс)
Ответ отправлен: 25.01.2008, 10:57
Оценка за ответ: 4


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное