|
#31
|
||||
|
||||
Изучали мы делфи)) Даже мультимедийный проект как то делали)) Ну то есть в делфи я не полный ноль) Тем более что они не сильно различаются)
|
#32
|
||||
|
||||
Цитата:
Берешь и пишешь. Создаешь форму, ставишь там элементы, и пишешь код. Потом, если что не выходит - выкладываешь тут и задаешь КОНКРЕТНЫЕ вопросы. И тебе помогут. |
#33
|
||||
|
||||
ок) вопрос первый) мне нужно для каждого вопроса создать форму. что делать если вопросов n-ное количество?
ну допустим сегодня для одного теста их может быть 10, а завтра станет 20. Не писать же прогу под каждый тест, нужно универсальную Последний раз редактировалось Еник, 06.02.2010 в 23:05. |
#34
|
||||
|
||||
Цитата:
Достаточно создать одну и менять ее свойства. Вернее свойсва элементов, которые будут на ней расположены. Например, Код:
label1.caption:='Текст'; Таким образом можно поступать и с другими элементами. Последний раз редактировалось Konrad, 06.02.2010 в 23:10. |
#35
|
||||
|
||||
Ыыы)) пока все понятно) спасибо огромное!)
Последний раз редактировалось Еник, 06.02.2010 в 23:14. |
#36
|
||||
|
||||
Кста, неужели в школах достигли такого уровня, что на уроках географии можно работать с компом?
Или эти тесты даются домой? Если так, то правильные ответы лучше не хранить в файле .тхт П.С.: на будущее - в Делфи можно менять программно практически любые свойства объектов, например цвет элемента, размер, длина элемента, расположение, видимость и т.д. Последний раз редактировалось Konrad, 06.02.2010 в 23:18. |
#37
|
||||
|
||||
Просто школе дали ноутбуки и учителям теперь можно брать их на уроки)
а на тест дают совсем немного времени и проводят его под контролем) |
#38
|
|||
|
|||
По поводу теста.
Вот ссылка на справочник по Дельфи (один из многих), в Главе 15 как раз описывается создание теста. Вопрос от меня. Код:
function TForm1.CheckEdit2 : Boolean; begin Result := False; if (Edit2.Text='0') or (Edit2.Text='') then ShowMessage ('Операция недопустима!') else Result := True; end; procedure TForm1.Button1Click(Sender : TObject); begin if CheckEdit2 Then ............ if <Result_функции_CheckEdit2> Then. Вопрос: If Result... что? Не указывается, true или false. Получается, по умолчанию программа проверяет на true? Последний раз редактировалось Guzerus, 07.02.2010 в 02:13. |
#39
|
||||
|
||||
Еник
Вот на этом сайте несколько исходников программ тестов Oxalium "case of" для String Код:
if str1 = 'string1' then // else if str1 = 'string2' then ... Или Код:
function FindNum(s: string): integer; const strArr: array[1..2] of string = ('string1', 'string2'); begin Result := High(strArr); while (s <> strArr[Result]) and (Result >= Low(strArr)) do Dec(Result); end; ... case FindNum('my string') of 1: ... end; А вообще зря вы в одну тему вопросы пишите - так они и затеряются. |
#40
|
||||
|
||||
Цитата:
Код:
if CheckEdit2 Then Result ( возвращаемое значение ) в ней один. Только сперва ему присваивают False затем если не выполнится условие, то он станет равен True. Конструкция if <логическое выражение вызвращающее Boolean тип> then Можно написать даже так: Код:
var A: Boolean; //... A := True; if A then Последний раз редактировалось s0Creator, 07.02.2010 в 09:56. |
#41
|
|||
|
|||
Как сделать такой Едит, при вводе в который слов они будут звёздами, как при наборе пароля? Подойдут не одни звёзды, главное как-то скрыть набранный текст.
|
#42
|
||||
|
||||
Цитата:
|
#43
|
|||
|
|||
Спасибо. Я пытался наваять что-то с MaskEdit.
Еще один вопрос. Я пытался сделать настройки. Получилось вот что. Есть: Едит1. Невидимый. Кнопка1. Кнопка2. При нажатии на кнопку один вылезает сообщение ('Сообщение включено.') Исполняется лишь если текст Едита1 "Включено". При нажатии на кнопку два в невидимом Едите меняется текст, соответственно сообщение вылезать не будет. Надеюсь суть понятна. Вопрос в том, можно ли каким-то иным способом сделать такие настройки? И есть ли у этого способа недостатки? Ещё вопрос. Код:
procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.Text='') and (Edit2.Text<>'') then ShowMessage ('Введите ник!') ; if (Edit1.Text<>'') and (Edit2.Text='') then ShowMessage ('Введите пароль!') ; if (Edit1.Text='') and (Edit2.Text='') then ShowMessage ('Введите ник и пароль!') else begin Label1.Caption:= 'Вы вошли!' ; Form2.Show end; end; |
#44
|
||||
|
||||
Цитата:
Код:
if (Edit1.Text='') and (Edit2.Text<>'') then ShowMessage ('Введите ник!') else if (Edit1.Text<>'') and (Edit2.Text='') then ShowMessage ('Введите пароль!') else if (Edit1.Text='') and (Edit2.Text='') then ShowMessage ('Введите ник и пароль!') else begin Label1.Caption:= 'Вы вошли!' ; Form2.Show end;[/color] end; РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت |
#45
|
|||
|
|||
Точно. Ведь если у меня else для обоих пустых, то одно заполненное в этот else входит. Пал жертвой текста. Подумал, если текст идёт ниже, значит исполнятся будет то, что ниже.
---------- Возможно ли сделать как-то свой компонент наподобие XPManifest? Или скачать его, скажем, чтобы делал стиль как у Семёрки? Последний раз редактировалось Guzerus, 12.02.2010 в 20:07. |