тестовая система

@pupushecka · Регистрация: 13.06.2011

Студворк — интернет-сервис помощи студентам

привет всем. Есть тестовая система, в нее можно добавлять текстовые вопросы, а как можно сделать чтобы вместо текста можно было вставлять картинки.
вот скриншот тестовой проги.

@pupushecka · 11.05.2012, 19:42 **[ТС]**

Сообщение от Одиночка

может быть текст или картинка.

текст я знаю как загрузить, но как загружать картинку?

Одиночка · 11.05.2012, 19:50

Тогда вам уже объяснили: Ложите на форму несколько компонентов TImage и когда нужно пишете:

Delphi
1
2
3
4
image1.Picture.LoadFromFile('Имя графического файла 1');
image2.Picture.LoadFromFile('Имя графического файла 2');
image3.Picture.LoadFromFile('Имя графического файла 3');
image4.Picture.LoadFromFile('Имя графического файла 4');

Если формат не будет поддерживаться - конвертируйте файлы в формат *bmp. И будет у вас счастье.

@pupushecka · 11.05.2012, 20:08 **[ТС]**

посмотрите плиз))) и помогите очень нужно)))) пожалуйста))))

WoodHead · 11.05.2012, 20:50

pupushecka, при запуске проекта ошибку выдает. Хотя компилируется без ошибок. почему-то не пристегивает форму 7. Но если отредактировать файл project1.dpr (см. код ниже), то ошибка исчезает. Добавил строки Unit7 in 'Unit7.pas' {Form7}; (перед этой строкой точку с запятой надо заменить на запятую) и Application.CreateForm(TForm7, Form7);.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit7 in 'Unit7.pas' {Form7};
 
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm7, Form7);
  Application.Run;
end.

Наверное, с 5, 6 и 8 формами надо поступить аналогично.

В общем, ошибок нет, если

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8};
 
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.Run;
end.

@pupushecka · 17.05.2012, 18:59 **[ТС]**

вот прога.

Одиночка · 19.05.2012, 05:13

Извините, всё не успел. Завтра до вечера закончу. Сделал картинки на формах тестирования и ввода базы вопросов. Не сделал на форме изменения базы вопросов. И нужно ещё проверить и картинки на кнопках выбора файлов с картинками, поменять.

Одиночка · 20.05.2012, 05:49

Вот вроде всё работает:

Одиночка · 21.05.2012, 06:22

Чтобы кнопки не были прозрачными, уберите в модуле Unit1 из строки Uses ссылку на модуль XPMan.

Добавлено через 15 часов 14 минут
И ещё увидел небольшую ошибку. Не учёл, что файл могут удалить. Процедуру VisibleTextOrImage в Unit1 нужно написать так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Procedure TForm1.VisibleTextOrImage(poleTexta:Tmemo;Txt:String;Image:TImage);
Var
  s : String;
Label NoFile;
Begin
  poleTexta.Text:='';
  If Length(Txt)<>0 Then
  If Txt[1]='&' Then
  Begin
    poleTexta.Text:=Txt;
    s:=Copy(Txt,2,254);
    While (s[Length(s)] In [#10,#13]) Do Delete(s,Length(s),1);
    If Not FileExists(s) Then Goto NoFile;
    //Показать картинку
    Image.Visible:=True;
    Image.Picture.LoadFromFile(s);
    //Скрыть текст
    poleTexta.Visible:=False;
  End Else
  Begin
    poleTexta.Visible:=True;
    poleTexta.Text:=Txt;
    Image.Visible:=False;
  End Else
  Begin
NoFile:
    poleTexta.Visible:=True;
    Image.Visible:=False;
  End;
End;

Новые блоги и статьи Все статьи Все блоги /
Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .	SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .

@pupushecka 29 / 29 / 1 Регистрация: 13.06.2011 Сообщений: 165

	тестовая система 01.05.2012, 16:58. Показов 3636. Ответов 27 Метки нет (Все метки) привет всем. Есть тестовая система, в нее можно добавлять текстовые вопросы, а как можно сделать чтобы вместо текста можно было вставлять картинки. вот скриншот тестовой проги. Миниатюры 0