Вопрос № 128653: Здравствуйте, уважаемые эксперты!
Как мне сделать, чтоб при вводе неверного пароля более трёх раз, приложение закрывалось?...Вопрос № 128654: Здравствуйте! Хочу написать прогу для решения уравнений любой сложности... Проблема в том, что не могу додуматься, как считать значение функции из текстового поля! Не подскажете???
P.S. Например, есть функция f:=x*x*x+2*x*x+3*x+7. Как сделат...Вопрос № 128665: Здравствуйте эксперты! Скорее всего многие сталкивались с моей проблемой. Но поиск ничего не дал....
Есть у меня набор компонентов DevExpress. Там есть компонент cxMaskEdit - то же самое что и обычный maskedit, только вид у него более привл...Вопрос № 128722: Уважаемые эксперты, проблема такая: я меняю свойство Color компоненита TListBox. При этом меняется цвет фона только непостредственно под текстом. Там, где ширина текста меньше ширины списка, цвет остаётся прежним. Если форму развернуть или свернуть. ...Вопрос № 128748:
Снова здравствуйте! У меня возник вопрос - как автоматически закрыть программу после выполнения всех операций? Через form.close не получается!!...
Вопрос № 128.653
Здравствуйте, уважаемые эксперты!
Как мне сделать, чтоб при вводе неверного пароля более трёх раз, приложение закрывалось?
Отправлен: 23.03.2008, 08:23
Вопрос задала: Cassie (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Louken
Здравствуйте, Cassie!
Цикл завершится в трех случаях:
1) когда будет введен верный пароль;
2) когда пользователь откажется вводить пароль, нажмет "Отмена", например.
Чтобы проверить как закончился цикл, нужно еще раз вставить условие:
if s=Password then //Значит пароль верный
3) когда пользователь ввел три раза подряд неверный пароль программа завершается.
Код в приложении:
Приложение:
Ответ отправил: Louken (статус: Студент)
Ответ отправлен: 23.03.2008, 10:47
Отвечает: Genia007
Здравствуйте, Cassie!
Вводим переменную n: Byte.
В событии Form OnCreate пишем n:= 0;{обнуляем переменную}
В обработчик события, где Вы проверяете правильность пароля пишем
If Edit1.Text <> 'пароль' then {проверка пароля введёного в Edit1, если не совпадает увеличиваем переменную на еденицу}
Inc(n);
If n > 3 then {Если ввели неверно пароль больше 3 раз выходим из программы}
Close;
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 24.03.2008, 13:43
Вопрос № 128.654
Здравствуйте! Хочу написать прогу для решения уравнений любой сложности... Проблема в том, что не могу додуматься, как считать значение функции из текстового поля! Не подскажете???
P.S. Например, есть функция f:=x*x*x+2*x*x+3*x+7. Как сделать так, чтобы уравнение задавалось из текстового поля???
Отправлен: 23.03.2008, 08:46
Вопрос задал: KomissaRex (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Ну а считать думаю не сложно - в любую строковую переменную и потом просто парсим (разбор на лексемы строки)
--------- Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Профессионал) Россия, Свердловская обл. Тел.: +7(34386) 53-5-98 ICQ: 490191733 ---- Ответ отправлен: 23.03.2008, 13:00 Оценка за ответ: 5 Комментарий оценки: Спасибо! Вы мне очень помогли!
Вопрос № 128.665
Здравствуйте эксперты! Скорее всего многие сталкивались с моей проблемой. Но поиск ничего не дал....
Есть у меня набор компонентов DevExpress. Там есть компонент cxMaskEdit - то же самое что и обычный maskedit, только вид у него более привлекательней и хотелось бы использовать именно его.
Вот в чем проблема задаю ему маску "!(000)00-00-000;0;_" Последний 0 означает то что литералов не будет. Но когда я делаю showmessage(cxMaskdit1.text) - сообщение выходит со скобками и тире, а мне этого не надо. Когда же использую обычный Maskedit с этой же маской - сообщение без литералов. Помогите.
Отправлен: 23.03.2008, 09:48
Вопрос задал: Djoin (статус: 3-ий класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Selya
Здравствуйте, Djoin!
Как вы маску задаёте?
Properties.EditMask [...]
В появившемся Input Mask Editor'е - Mask kind -> Standart
В Sample mask: Social security (похожа на вашу маску)
Внизу: Test input - проверяете, как работает маска
После закрытия Input Mask Editor'а маска в свойстве EditMask, просто удаляете не нужные тире (и скобки, если есть).
Маски для обычного MaskEdita и для DevExpress'ного немного отличаются.
Ответ отправил: Selya (статус: 10-ый класс)
Ответ отправлен: 23.03.2008, 12:13 Оценка за ответ: 2 Комментарий оценки: Вы не поняли что мне надо. Мне надо чтобы при вводе в cxMaskEdit скобки и тире были а при обращении результат возвращался без них.
Вопрос № 128.722
Уважаемые эксперты, проблема такая: я меняю свойство Color компоненита TListBox. При этом меняется цвет фона только непостредственно под текстом. Там, где ширина текста меньше ширины списка, цвет остаётся прежним. Если форму развернуть или свернуть. Список перекрашивается полностью. Как сделать, чтобы он сразу полностью перекрашивался?
Попробуйте использорвать InvalidateRect, примерный код в приложении.
Приложение:
Ответ отправил: Drbear (статус: 8-ой класс)
Ответ отправлен: 23.03.2008, 18:18 Оценка за ответ: 5 Комментарий оценки: Спасибо. Всё работает.
Отвечает: Genia007
Здравствуйте, Хукаленко Дмитрий!
Могу предложить такой нехитрый способ, недостаток необходимость повторного вызова после
перерисовки приложения:
procedure TForm2.Button6Click(Sender: TObject);
Var i:Integer; Rect:TRect;
begin
ListBox2.Canvas.Brush.Color:= clGreen;
ListBox2.Canvas.Rectangle(ListBox2.ClientRect);
For i:=0 to ListBox2.Count-1 Do
begin
Rect:=ListBox2.ItemRect(i);
ListBox2.Canvas.TextOut(Rect.Left+2, Rect.Top, ListBox2.Items.Strings[I]);
end;
end;
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 24.03.2008, 13:44 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ, но я уже сделал, как Drbear посоветовал.
Вопрос № 128.748
Снова здравствуйте! У меня возник вопрос - как автоматически закрыть программу после выполнения всех операций? Через form.close не получается!!
Отправлен: 23.03.2008, 20:57
Вопрос задал: KomissaRex (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 23.03.2008, 21:01 Оценка за ответ: 5 Комментарий оценки: Спасибо! Просто и понятно111
Отвечает: Louken
Здравствуйте, KomissaRex!
А еще можно через Halt - останавливает выполнение программы и возвращается в операционную систему. Осталась еще из паскаля, но до сих пор используется.
Ответ отправил: Louken (статус: Студент)
Ответ отправлен: 23.03.2008, 21:50 Оценка за ответ: 5 Комментарий оценки: Спасибо! Оргинально, но интересно!
Отвечает: Кудинов Антон Павлович !!! Здравствуйте, KomissaRex!
From.close() нельзя (бесполезно) вызывать из form.create()
Ответ отправил: Кудинов Антон Павлович (статус: 3-ий класс)
Ответ отправлен: 23.03.2008, 23:18 Оценка за ответ: 3 Комментарий оценки: Действительно, по form.create я нисего не упоминал... Но все равно спасибо!
Отвечает: Selya
Здравствуйте, KomissaRex!
Form.Close получится, если это главная форма.
Попробуйте Application.Terminate
Ответ отправил: Selya (статус: 10-ый класс)
Ответ отправлен: 24.03.2008, 07:54
