Вопрос № 119963: Здравствуйте, уважаемые эксперты.
Как с помощью Delphi воспроизвести звук восклицания, завершения операции, вопроса или ошибки, которые установлены в системе?
Спасибо за ответы....Вопрос № 119976: Здравствуйте,уважаемые эксперты.Условие:дано множество из строчных латинских букв,вывести буквы встречающиеся только один раз,вроде бы написал всё правильно,но не могу отладить помогите пожайлуста:
program project1;
const n=10;
var i,j:i...Вопрос № 120038: Здравствуйте, уважаемые эксперты. Как сделать, чтобы процедура выполнялась при всех изменениях размеров формы, но при растягивании окна мышкой выполнялась только после окончания растягивания. Я пользовался событием OnResize, но оно выполняется в проц...
Вопрос № 119.963
Здравствуйте, уважаемые эксперты.
Как с помощью Delphi воспроизвести звук восклицания, завершения операции, вопроса или ошибки, которые установлены в системе?
Можно использовать 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.
С Вашего позволения я немного переименовал переменные, на мой взгляд так удобнее ;).
Читайте внимательно коментарии: 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 ifnot (s[i] in all) {если символа нет в множестве all} then include(all,s[i]) {заносим его в множество all} elseifnot (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, но оно выполняется в процессе растягивания, а не после.