Четыре варианта выбора ответа - один правильный

@Dionisius · Регистрация: 19.10.2013

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

У меня появилась идея создать проект в C++ Builder типа "Кто хочет стать миллионером" (5 вопросов, 4 варианта ответа)

С написанием кода возникли проблемы

@Dionisius · 24.05.2015, 20:49 **[ТС]**

Скриншот см. выше

@demon_7 · 25.05.2015, 08:27

Сообщение от Dionisius

С написанием кода возникли проблемы

Проблемы возникли так же с описанием Вашей проблемы.
Какую информацию я могу увидеть на скриншоте:
Есть 1 Label, 1 Button и 4 RadioButton. Проблем в коде не заметил.

@D1973 · 25.05.2015, 08:36

По сути - это обыкновенная программа тестирования. Примеров на форуме масса

Сообщение от Dionisius

С написанием кода возникли проблемы

Какие именно?

@_Dimon_ · 25.05.2015, 08:43

Сообщение от D1973

Какие именно?

наверное очень большие, так как форма есть, а кода нет

Добавлено через 39 секунд
зато дизайн красивый

@D1973 · 25.05.2015, 08:57

Не по теме:

Сообщение от _Dimon_

зато дизайн красивый

:D:D:D

Сообщение от Dionisius

У меня появилась идея

Вот еще бы идея появилась хоть какую-то книжку по теме прочитать... 90% вопросов бы отпали сами собой...

Dionisius, Если Ваши проблемы с кодом сводятся к банальному "сделайте за меня" - то это как бы не в тему. Если же есть конкретный вопрос, плана: я пишу то-то и то-то, должно быть так-то и так-то, но у меня не так, а вот так - тогда задавайте свой вопрос, выкладывайте код, который написали - поможем, подскажем...

@Dionisius · 25.05.2015, 23:15 **[ТС]**

Код будет готов к вечеру

Добавлено через 13 часов 58 минут
Вот что я набросал:

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TStringList* list = new TStringList;
 
int nom = 1;
int otv = 0;
int bal = 0;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  nom = 1;
  otv = 0;
  bal = 0;
  Edit1->Text = "";
  Memo1->Clear();
  Memo2->Clear();
  list->Clear();
  Button3->Visible = false;
  RadioGroup1->Visible = true;
  Label1->Visible = true;
  //первый вопрос
  if(nom == 1)
    {
    otv = 1; //правильный ответ индекс
    Label1->Caption = "Назовите первого президента США";
    RadioGroup1->Items->Strings[0]="Барак Обама";
    RadioGroup1->Items->Strings[1]="Билл Клинтон";
    RadioGroup1->Items->Strings[2]="Джордж Вашингтон";
    RadioGroup1->Items->Strings[2]="Франклин Делано Рузвельт";
    nom++;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Button2->Visible = false;
  RadioGroup1->ItemIndex = -1;
 
  //второй вопрос
  if(nom == 2)
    {
    otv = 0; //правильный ответ индекс
    Label1->Caption = "Кто основал социальную сеть Facebook?";
    RadioGroup1->Items->Strings[0]="Билл Гейтс";
    RadioGroup1->Items->Strings[1]="Марк Цукерберг";
    RadioGroup1->Items->Strings[2]="Стив Джобс";
    RadioGroup1->Items->Strings[3]="Тим Кук";
    nom++;
    return;
    }
 
  //третий вопрос
  if(nom == 3)
    {
    otv = 2; //правильный ответ индекс
    Label1->Caption = "В какой стране запрещено женщинам находиться за рулем?";
    RadioGroup1->Items->Strings[0]="Иран";
    RadioGroup1->Items->Strings[1]="Нигерия";
    RadioGroup1->Items->Strings[2]="Саудовская Аравия";
    RadioGroup1->Items->Strings[2]="Северная Корея";
    nom++;
    return;
    }
 
  //четвертый вопрос
  if(nom == 4)
    {
    otv = 0; //правильный ответ индекс
    Label1->Caption = "В каком году была отменена смертная казнь в РФ?";
    RadioGroup1->Items->Strings[0]="1996";
    RadioGroup1->Items->Strings[1]="1997";
    RadioGroup1->Items->Strings[2]="1998";
    RadioGroup1->Items->Strings[2]="1999";
    nom++;
    return;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
  Button2->Visible = true;
 
  //обработка ответа на первый вопрос
  if(nom == 2)
    {
    list->Add("Джордж Вашингтон");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("Барак Обама");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("Билл Клинтон");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("Джордж Вашингтон");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("Франклин Делано Рузвельт");
      }
    }
 
 //обработка ответа на второй вопрос
  if(nom == 3)
    {
    list->Add("Марк Цукерберг");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("Билл Гейтс");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("Марк Цукерберг");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("Стив Джобс");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("Тим Кук");
      }
    }
 
  //обработка ответа на третий вопрос
  if(nom == 4)
    {
    list->Add("Саудовская Аравия");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("Иран");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("Нигерия");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("Саудовская Аравия");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("Северная Корея");
      }
    }
 
  //обработка ответа на четвертый вопрос
  if(nom == 5)
    {
    list->Add("1996");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("1996");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("1997");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("1998");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("1999");
      }
    }
  //вопросы пройдены отображаем кнопку вывода результатов
  if(nom == 5)
    {
    Button3->Visible = true;
    Button2->Visible = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Memo2->Text = list->Text;//правельные ответы
  Edit1->Text = bal;//набранные балы
 
  //если нет ни одного правильного ответа
  if(bal == 0)
    {
    ShowMessage("Ваш IQ ниже чум у обезьяны");
    }
}
//---------------------------------------------------------------------------

@demon_7 · 25.05.2015, 23:43

Dionisius, Вы жестоки!
Что мешает считывать вопросы из файла?

@Dionisius · 26.05.2015, 00:46 **[ТС]**

Тоже неплохо... И как бы это реализовать (из файла)?

Добавлено через 6 минут
Авот этот вариант чем хуже:

C++

//---------------------------------------------------------------------------
#include <IniFiles.hpp>
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TIniFile *ini;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ini = new TIniFile("vopros.ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
RadioButton1->Caption=ini->ReadString("vopros1","variant1","");
RadioButton2->Caption=ini->ReadString("vopros1","variant2","");
RadioButton3->Caption=ini->ReadString("vopros1","variant3","");
RadioButton4->Caption=ini->ReadString("vopros1","variant4","");
}
//---------------------------------------------------------------------------

???

@D1973 · 26.05.2015, 08:26

Сообщение от Dionisius

Авот этот вариант чем хуже:

Да ничем не хуже... Вот только разве *.ini - не файл?

. Примерно это demon_7 и говорил

@_Dimon_ · 26.05.2015, 08:34

Я бы простенькую бд сделал

@D1973 · 26.05.2015, 08:41

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

@demon_7 · 26.05.2015, 08:47

Ини файл, с такой структурой, тоже много кода (повторяющегося).
Можно создать файл, и считывать его в StringList, а из сталиниста выводить строки с фиксированным шагом.
Пример структуры файла-
Вопрос?
Ответ1
Ответ2
Ответ3
Ответ4
2 (здесь необходимо хранить число, которое соответствует номеру правильного ответа)
И такой структурой можно заполнить весь файл, ну сделать проверку на количество строк и прочее.
Далее в цикле выводим по 6 строк в нужные элементы. Ну это самый наверное простой способ.

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

Сообщение от D1973

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

Для красоты желательно, рандомно брать вопрос.

@_Dimon_ · 26.05.2015, 08:49

Сообщение от demon_7

Для красоты желательно, рандомно брать вопрос.

и варианты ответов тоже в рандомном порядке выводить

@demon_7 · 26.05.2015, 08:51

Не по теме:

Сообщение от _Dimon_

и варианты ответов тоже в рандомном порядке выводить

:D:D:D

@nick42 · 26.05.2015, 08:53

Был аналогичный вопрос когда-то на форуме; я предложил свой вариант решения (с проектом для BCB 5). Возможно поможет для воплощения...

@Dionisius · 26.05.2015, 22:35 **[ТС]**

Я пытаюсь делать также, как в этой теме , но при компиляции появляется предупреждение, но в коде вроде написано всё верно

Добавлено через 2 часа 34 минуты
Вот код:

C++

//---------------------------------------------------------------------------
#include <IniFiles.hpp>
 //---------------------------------------------------------------------------
 
#include <vcl.h> 
#include <IniFiles.hpp>
#include <registry.hpp>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
      TShape *led[10];
      TColor cvet[3] = { clGreen, clRed, clLime };
      TMemIniFile *myIni=new TMemIniFile("myTest.ini"); 
      TRegistry *Reg;
      WORD h1,h2,m1,m2,s1,s2,u1,u2 ;
      double starT, exiT ;
      int kaunt, parol ;
      int tema=0, vopr=0 ;
      int rezult[10];
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
      for (int i=0;i<10;i++)
    {
      led[i] = new TShape(this);
      led[i]->Parent = Form1;
      led[i]->Shape=stCircle; led[i]->Height=17; led[i]->Width=17;
      led[i]->Brush->Color=clGreen;
      led[i]->Top=34; led[i]->Left=160+i*28;
      led[i]->Visible=true;
      rgr1->Items->Strings[i] = myIni->ReadString(
          "Topic"+IntToStr(i+1),"TName","Topic "+IntToStr(i+1)) ;
    }
      Reg = new TRegistry;
//       Reg->RootKey = HKEY_CURRENT_USER;
       Reg->RootKey = HKEY_CLASSES_ROOT;
       Reg->OpenKey("\\.z96\\NothingHandler",true);
       Panel2->Align = alClient;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
      DecodeTime(Now(),h2,m2,s2,u2);
      int exitt, delta, nauu ;
      nauu = h2*60+m2 ;
      try { kaunt = Reg->ReadInteger("Handler1");
             exitt = Reg->ReadInteger("Handler2"); }
      catch(...) { kaunt = 0; exitt=nauu; }
      delta = nauu-exitt ;
      if (delta < 5) kaunt += 1;
      else  kaunt = 0;
      Label5->Caption = IntToStr(kaunt);
      Label6->Caption = IntToStr(delta);
      Panel2->Visible = kaunt>5 ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
       DecodeTime(Now(),h1,m1,s1,u1);
       Reg->WriteInteger("Handler1",kaunt);
       if (kaunt<2)
         Reg->WriteInteger("Handler2",h1*60+m1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
      Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rgr1Click(TObject *Sender)
{
      vopr = 0;
      Label2->Caption = "1";
      for (int i=0;i<10;i++)
       { led[i]->Brush->Color = cvet[0]; rezult[i]=0; } 
      parol = myIni->ReadInteger(
           "Òåìà"+IntToStr(rgr1->ItemIndex+1),"ÏàðîëüÎ",0);
      int ss=0;
      for (int n=0;n<7;n++) ss ^= parol>>n*4 ; 
      if ((ss&15) != 15) parol = 0;  // îøèáêà ïàðîëÿ
      if (Shape2->Visible) vopr = -1;
      Button4Click(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rgr2Click(TObject *Sender)
{
      if (Shape2->Visible)
    {                         // çäåñü øèôðóåòñÿ ïàðîëü (âåðíûå îòâåòû)
        int shft = vopr*2+4 ;
        parol &= ~(3<<shft) ;
        parol |= (rgr2->ItemIndex<<shft) ;
        parol &= 0x3FFFFF0 ;
        parol |= 0x2000000 ;
        int ss=0;
        for (int n=0;n<7;n++) ss ^= parol>>n*4 ;
        ss = 15 & (ss^15);
        parol |= ss;
    }
      else
    {
      rezult[vopr] += 1;
      int dx = (vopr*2)+4 ;
      int vot = 3 & (parol>>dx);
      if(rgr2->ItemIndex==vot) rezult[vopr]++;
      for (int i=0;i<10;i++) led[i]->Brush->Color = cvet[rezult[i]];
      if (vopr<10) Label2->Caption = IntToStr(++vopr);
      else  Label2->Caption = "\\O/";
      rgr2->Enabled = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
      AnsiString TT, otv[4] ;
      if (Shape2->Visible) vopr++;
      if ((parol==0) && !Shape2->Visible)
      {
        Label3->Caption = "Íå îïðåäåë¸í";
        TT = "À_Á_Â_Ã";
      }
      else  {
        AnsiString Te="Òåìà"+IntToStr(rgr1->ItemIndex+1) ;
        AnsiString Vo="Âîïðîñ"+IntToStr(vopr+1) ;
        AnsiString Ot="Îòâåòû"+IntToStr(vopr+1) ;
        Label3->Caption = myIni->ReadString(Te,Vo,"Íå îïðåäåë¸í") ;
        TT= myIni->ReadString(Te,Ot,"À_Á_Â_Ã") ;
      }
      int k=1;
      for (int i=0;i<4;i++)
    {   otv[i]="";
        while ((k<=TT.Length())&&(!IsDelimiter("_",TT,k)))
         {  otv[i] += TT[k]; k++;  }
        k++;
    }
      for(int j=0;j<4;j++) rgr2->Items->Strings[j] = otv[j];
      if (vopr<10) Label2->Caption = IntToStr(1+vopr);
      else  Label2->Caption = "\\O/";
      rgr2->Enabled=true;
      rgr2->ItemIndex=-1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Label4MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
      if ((X<8)&&(!Shift.Empty()))
        Shape2->Visible = true;
      else if (Shape2->Visible)
    {
        Shape2->Visible = false;
        if (parol != 0)
          myIni->WriteInteger(
           "Òåìà"+IntToStr(rgr1->ItemIndex+1),"ÏàðîëüÎ",parol);
        myIni->UpdateFile();
    }
}
//---------------------------------------------------------------------------

Надо будет переделать из этого кода такой код, чтобы было 5 вопросов, при неверном ответе на вопрос будет написано "Вы проиграли" и игра будет окончена.

@Dionisius · 26.05.2015, 23:08 **[ТС]**

А нет, вот раньше было верно:

C++

//---------------------------------------------------------------------------
#include <IniFiles.hpp>
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TIniFile *ini;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1 -> Visible = false;
ini = new TIniFile("vopros.ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
RadioButton1->Caption=ini->ReadString("vopros1","variant1","");
RadioButton2->Caption=ini->ReadString("vopros1","variant2","");
RadioButton3->Caption=ini->ReadString("vopros1","variant3","");
RadioButton4->Caption=ini->ReadString("vopros1","variant4","");
}
//---------------------------------------------------------------------------

Скриншот имеется пока такой:

@demon_7 · 27.05.2015, 08:08

Dionisius, что Вы хотите от созданной Вами темы?
Если Вы хотите чтобы мы помогли исправить ошибки, укажите на них.
Рекомендации по написанию такого приложения Вам выдали.
За Вас что то делать возьмется не каждый.

@_Dimon_ 1408 / 571 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	26.05.2015, 08:34	11
	Я бы простенькую бд сделал 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	26.05.2015, 08:41	12
	Да и, вдобавок, не помешало бы и вопросы и варианты ответов рандомно перемешивать, чтобы каждый раз одну и ту же картину не видеть. 1

@_Dimon_ 1408 / 571 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	26.05.2015, 08:49	14
	Сообщение от demon_7 Для красоты желательно, рандомно брать вопрос. и варианты ответов тоже в рандомном порядке выводить 0

@Dionisius 2 / 2 / 0 Регистрация: 19.10.2013 Сообщений: 159
		1
	Четыре варианта выбора ответа - один правильный 24.05.2015, 20:49. Показов 3098. Ответов 18 Метки нет (Все метки) У меня появилась идея создать проект в C++ Builder типа "Кто хочет стать миллионером" (5 вопросов, 4 варианта ответа) С написанием кода возникли проблемы Миниатюры 0

@Dionisius 2 / 2 / 0 Регистрация: 19.10.2013 Сообщений: 159
	24.05.2015, 20:49 [ТС]	2
	Скриншот см. выше 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	25.05.2015, 08:27	3
	Сообщение от Dionisius С написанием кода возникли проблемы Проблемы возникли так же с описанием Вашей проблемы. Какую информацию я могу увидеть на скриншоте: Есть 1 Label, 1 Button и 4 RadioButton. Проблем в коде не заметил. 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	25.05.2015, 08:36	4
	По сути - это обыкновенная программа тестирования. Примеров на форуме масса Сообщение от Dionisius С написанием кода возникли проблемы Какие именно? 0

@_Dimon_ 1408 / 571 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	25.05.2015, 08:43	5
	Сообщение от D1973 Какие именно? наверное очень большие, так как форма есть, а кода нет Добавлено через 39 секунд зато дизайн красивый 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	25.05.2015, 08:57	6
	Не по теме: Сообщение от _Dimon_ зато дизайн красивый :D:D:D Сообщение от Dionisius У меня появилась идея Вот еще бы идея появилась хоть какую-то книжку по теме прочитать... 90% вопросов бы отпали сами собой... Dionisius, Если Ваши проблемы с кодом сводятся к банальному "сделайте за меня" - то это как бы не в тему. Если же есть конкретный вопрос, плана: я пишу то-то и то-то, должно быть так-то и так-то, но у меня не так, а вот так - тогда задавайте свой вопрос, выкладывайте код, который написали - поможем, подскажем... 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	25.05.2015, 23:43	8
	Dionisius, Вы жестоки! Что мешает считывать вопросы из файла? 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	26.05.2015, 08:26	10
	Сообщение от Dionisius Авот этот вариант чем хуже: Да ничем не хуже... Вот только разве .ini - не файл? . Примерно это demon_7* и говорил 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	26.05.2015, 08:47	13
	Ини файл, с такой структурой, тоже много кода (повторяющегося). Можно создать файл, и считывать его в StringList, а из сталиниста выводить строки с фиксированным шагом. Пример структуры файла- Вопрос? Ответ1 Ответ2 Ответ3 Ответ4 2 (здесь необходимо хранить число, которое соответствует номеру правильного ответа) И такой структурой можно заполнить весь файл, ну сделать проверку на количество строк и прочее. Далее в цикле выводим по 6 строк в нужные элементы. Ну это самый наверное простой способ. Добавлено через 1 минуту Сообщение от D1973 Да и, вдобавок, не помешало бы и вопросы и варианты ответов рандомно перемешивать, чтобы каждый раз одну и ту же картину не видеть. Для красоты желательно, рандомно брать вопрос. 0

@demon_7
	26.05.2015, 08:51 #15
	Не по теме: Сообщение от _Dimon_ и варианты ответов тоже в рандомном порядке выводить :D:D:D 0

@nick42 Практикантроп 4826 / 2718 / 526 Регистрация: 23.09.2011 Сообщений: 5,777
	26.05.2015, 08:53	16
	Был аналогичный вопрос когда-то на форуме; я предложил свой вариант решения (с проектом для BCB 5). Возможно поможет для воплощения... 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	27.05.2015, 08:08	19
	Dionisius, что Вы хотите от созданной Вами темы? Если Вы хотите чтобы мы помогли исправить ошибки, укажите на них. Рекомендации по написанию такого приложения Вам выдали. За Вас что то делать возьмется не каждый. 0