Database File

@ghjas · Регистрация: 19.11.2009

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

как сделать чтобы текст с Database File выводился на компонент RadoGroup

@unick12345 · 16.12.2009, 14:12

что за картинка?

@ghjas · 16.12.2009, 14:17 **[ТС]**

обычная картинка с расширением BMP,

Добавлено через 1 минуту
[имя картинки] [расширение bmp]

@unick12345 · 16.12.2009, 14:30

типа этого? извиняй других картинок под рукой не было

@unick12345 · 16.12.2009, 14:34

ghjas, посмотри файл voprosy1.db. там появилось еще endc вот до него и прописывай название файла полностью типа function.bmp а сам файл помести в папку foto

@ghjas · 16.12.2009, 14:43 **[ТС]**

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

@unick12345 · 16.12.2009, 14:45

тогда лучше разными файла, а название файла выбирать при входе и выборе уровня сложности

@ghjas · 16.12.2009, 14:49 **[ТС]**

хорошо, можно и так

@unick12345 · 16.12.2009, 15:05

вот только название файла не выставляй как константу а меня в программе
можно типа так: выставить комбобокс на форме с данными и записать в него типа 1 /2/3/4/5 (уровни).
и в процедуре procedure tform1.chtenie_voprosov перед str:=put_k_voprosam1; выставить типа
put_k_voprosam1:='Voprosy'+inttostr(form 2.combobox1.itemindex+1)+'.db'.

а названия файлов
voprosy1.db {первый уровень}
voprosy2.db {второй уровень}

и т.д.

@ghjas · 16.12.2009, 15:23 **[ТС]**

извини, что такое спрашиваю. наверное детский вопрос, но каким свойством записать в него уровни 12345?

Добавлено через 1 минуту
мож не говорить, уже сам разобрался)))

Добавлено через 4 минуты
еще раз извиняюсь, но компилятор не пропускает этой строки

@unick12345 · 16.12.2009, 15:51

ghjas, какую именно?
в комбо в свойство Item напиши так:
Уровень 1
Уровень 2
Уровень 3
Уровень 4
Уровень 5

@ghjas · 16.12.2009, 15:56 **[ТС]**

уже написал, но компилятор не пропускает строку

put_k_voprosam1:='Voprosy'+inttostr(form 2.combobox 1.itemindex+1)+'.db'.

@unick12345 · 16.12.2009, 16:08

я тебе говорил коечто изменить вверху. ладно покажу полностью.
вот тут

Delphi
1
2
3
4
uses   about,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, NameEntr, jpeg, ExtCtrls;
const {проставь тут //}put_k_voprosam1='Voprosy1.db';

в procedure tform1.chtenie_voprosov;
напиши так

Delphi
1
2
put_k_voprosam1:=path+'\Voprosy'+inttostr(form2.combobox1.itemindex+1)+'.db'; {эту добавь}
 str:=put_k_voprosam1; {эта строчка уже есть}

Добавлено через 2 минуты

Delphi
1
2
3
4
5
6
7
8
9
 private
  { Private declarations }
    vse_voprosy:array[1..max_voprosov]of tvse_voprosy;
    ispol_voprosy:array[1..voprosov_v_teste] of integer;
    schitano_voprosov:integer;
    tek_vopros,nomer:integer;
    file_s_voprosami:text;
    otvety_na_voprosy:array[1..voprosov_v_teste] of boolean;
    put_k_voprosam1:string; {добавь}

@ghjas · 16.12.2009, 16:23 **[ТС]**

равно компилятор не пропускает строки

put_k_voprosam1:=path+'\Voprosy'+inttost r(form2.combobox1.itemindex+1)+'.db';

а у тебя получилось? может сбросишь исходник

Добавлено через 2 минуты
спасибо, уже не надо, ошибка была не в етом

Добавлено через 7 минут
и последнее, если не сложно, как можно зашифровать правильные ответы, чтобы пользователь, когда откроет файл с вопросами, не смог прочитать строку с ответом, например, ответ-слово [Windows] а пользователь вместо него читал совсем другое, а программа при выборе этого ответа превращала его снова на слово [Windows] и выводила как один из вариантов ответа на RadioGroup

@unick12345 · 16.12.2009, 16:25

ладно. и коечто еще там исправил

@unick12345 · 16.12.2009, 16:26

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

@ghjas · 16.12.2009, 16:33 **[ТС]**

это типа написать, что а: = я, б: = ю;
так можно?
и если можно, то не скажешь в каком операторе писать?

заранее говорю что очень благодарен тебе, таких людей как ты очень мало

@unick12345 · 16.12.2009, 18:44

посмотри это. там есть файли sifr. запусти и посмотри что из себя представляет, и проверь voprosy1.db . если так подойдет то без проблем

@ghjas · 16.12.2009, 19:11 **[ТС]**

спасибо, работает как надо

@unick12345 · 16.12.2009, 19:27

ghjas, не совсем. нашел там еще один ньюанс который раньше не заметил. ответ там всегда проставляется последним. вот с random. и скажи то дополнение подойдет (sifr)?

@ghjas · 17.12.2009, 23:37 **[ТС]**

да этот вариант лучше предыдущего большое спасибо

Добавлено через 5 минут
так, shifr подходит, но я что-то не могу понять, каким образом оно работает

Добавлено через 3 минуты
не мог бы ты прокомментировать оператор procedure tform1.vivod_voprosa

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65

	Database File 15.12.2009, 16:53. Показов 5029. Ответов 45 Метки нет (Все метки) как сделать чтобы текст с Database File выводился на компонент RadoGroup 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	16.12.2009, 14:12
	что за картинка? 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 14:17 [ТС]
	обычная картинка с расширением BMP, Добавлено через 1 минуту [имя картинки] [расширение bmp] 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	16.12.2009, 14:34
	ghjas, посмотри файл voprosy1.db. там появилось еще endc вот до него и прописывай название файла полностью типа function.bmp а сам файл помести в папку foto 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 14:43 [ТС]
	так, спасибо, может и такое быть, ну интерфейс я еще буду редактировать, но все равно большое спасибо. и если не трудно, то как можно сделать, чтобы вопрос делились на уровне сложности, можно, шоб вопросы находились в одном файле, или можно чтобы в разных, один файл-первый уровень, второй файл-второй уровень сложности, ну и третий, а выбор сложности задается нажатием на кнопке при начале теста 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	16.12.2009, 14:45
	тогда лучше разными файла, а название файла выбирать при входе и выборе уровня сложности 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 14:49 [ТС]
	хорошо, можно и так 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	16.12.2009, 15:05
	вот только название файла не выставляй как константу а меня в программе можно типа так: выставить комбобокс на форме с данными и записать в него типа 1 /2/3/4/5 (уровни). и в процедуре procedure tform1.chtenie_voprosov перед str:=put_k_voprosam1; выставить типа put_k_voprosam1:='Voprosy'+inttostr(form 2.combobox1.itemindex+1)+'.db'. а названия файлов voprosy1.db {первый уровень} voprosy2.db {второй уровень} и т.д. 1

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 15:23 [ТС]
	извини, что такое спрашиваю. наверное детский вопрос, но каким свойством записать в него уровни 12345? Добавлено через 1 минуту мож не говорить, уже сам разобрался))) Добавлено через 4 минуты еще раз извиняюсь, но компилятор не пропускает этой строки 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	16.12.2009, 15:51
	ghjas, какую именно? в комбо в свойство Item напиши так: Уровень 1 Уровень 2 Уровень 3 Уровень 4 Уровень 5 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 15:56 [ТС]
	уже написал, но компилятор не пропускает строку put_k_voprosam1:='Voprosy'+inttostr(form 2.combobox 1.itemindex+1)+'.db'. 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 16:23 [ТС]
	равно компилятор не пропускает строки put_k_voprosam1:=path+'\Voprosy'+inttost r(form2.combobox1.itemindex+1)+'.db'; а у тебя получилось? может сбросишь исходник Добавлено через 2 минуты спасибо, уже не надо, ошибка была не в етом Добавлено через 7 минут и последнее, если не сложно, как можно зашифровать правильные ответы, чтобы пользователь, когда откроет файл с вопросами, не смог прочитать строку с ответом, например, ответ-слово [Windows] а пользователь вместо него читал совсем другое, а программа при выборе этого ответа превращала его снова на слово [Windows] и выводила как один из вариантов ответа на RadioGroup 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	16.12.2009, 16:26
	ну насчет шифрования уже самостоятельно выбери какой формат шифрования использовать. можно менять все буквы на противоположные, или с сдвигом на пару символов по алфавиту 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 16:33 [ТС]
	это типа написать, что а: = я, б: = ю; так можно? и если можно, то не скажешь в каком операторе писать? заранее говорю что очень благодарен тебе, таких людей как ты очень мало 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	16.12.2009, 19:11 [ТС]
	спасибо, работает как надо 0

@ghjas 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 65
	17.12.2009, 23:37 [ТС]
	да этот вариант лучше предыдущего большое спасибо Добавлено через 5 минут так, shifr подходит, но я что-то не могу понять, каким образом оно работает Добавлено через 3 минуты не мог бы ты прокомментировать оператор procedure tform1.vivod_voprosa 0