Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 10.03.2011, 18:42
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 660
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Итак:
В архиве 2 файла: CryptoStream.pas и TestObjects.pas.
CryptoStream.pas - пример простейшего файлового потока с шифрованием XOR. Работаем абсолютно так же как с обычным TFileStream.
В TestObjects.pas - описаны классы для работы с тестом, а именно:
Основной класс Тест TTest:
Код:
TTest = class
  private
    ...
  public
    constructor Create; - создание объекта класса
    destructor  Destroy; override; - удаление объекта класса

    procedure SaveToStream(Stream: TStream); - сохранение объекта в поток
    procedure LoadFromStream(Stream: TStream); - чтение объекта из потока

    function  AddQuestion(aCaption: String): Integer; - добавить вопрос с текстовкой Caption. вернет порядковый номер созданного вопроса
    procedure DeleteQuestion(Index: Integer); - удалить вопрос с номером Index

    property Caption: String; - заголовок теста
    property EditPassword: String; - пароль для редактирования (использование произвольное :))

    property Ball_Three: Word; - сколько нужно правильных ответов на 3
    property Ball_Four:  Word; - сколько нужно правильных ответов на 4
    property Ball_Five:  Word; - сколько нужно правильных ответов на 5

    property QuestionsCount: Integer; - количество вопросов в тесте
    property Question[Index: Integer]: TQuestion; - тест с номером Index
  end;
Класс Вопрос TQuestion:
Код:
TQuestion = class
  private
    ...
  public
    constructor Create(aCaption: String); - это понятно
    destructor  Destroy; override; - это тоже

    procedure Assign(const Value: TQuestion);
    procedure SaveToStream(Stream: TStream); - запись в поток
    procedure LoadFromStream(Stream: TStream); - чтение из потока

    function  AddAnswer(aCaption: String; aIsTrue: Boolean = false): Integer;
    procedure DeleteAnswer(Index: Integer); - добавить ответ

    property Caption: String; - текстовка вопроса
    property AnswerCount: Integer; - количество ответов
    property Answer[Index: Integer]: TAnswer; - ответ с номером Index
    property QuestionType: TQuestionType; - тип вопроса
    property Bitmap: TBitmap; - картинка к вопросу
  end;

Тип "тип вопроса" TQuestionType:
Код:
TQuestionType = (qtRadio, qtCheck, qtEditAny, qtEditAll);
 - тип вопроса (выбор одного, выбор нескольких, ввод любого, ввод всех)

Класс Ответ TAnswer:
Код:
TAnswer = class
  private
    ...
  public
    constructor Create(aCaption: String; aIsTrue: Boolean); - тут все прозаино

    procedure Assign(const Value: TAnswer);
    procedure SaveToStream(Stream: TStream); - запись в поток
    procedure LoadFromStream(Stream: TStream); - чтение из потока

    property Caption: String; - текст ответа
    property IsTrue: Boolean; - ответ является верным
  end;

Если не разберешься - выложу пример использования. Оба модуля проверены на WinXP, Delphi6.
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.

Последний раз редактировалось dr. F.I.N., 12.01.2012 в 17:09.
Ответить с цитированием
  #17  
Старый 10.03.2011, 21:01
SawA SawA вне форума
Новичок
 
Регистрация: 09.03.2011
Сообщения: 57
Репутация: 10
По умолчанию

Спасибо большое если не разберусь обязательно обращусь
Ответить с цитированием
  #18  
Старый 11.03.2011, 05:37
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 660
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Вот стараешься, думаешь над проблемами других людей, пишешь какие-то модули, процедуры, функции, компоненты и т.п. ... а человеку даже сложно нажать на . Ну что за люди пошли? А потом еще напишут "я не разобрался, покажи как надо"...а тебе уже и не хочется помогать....накипело, блин...
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием
  #19  
Старый 11.03.2011, 07:01
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Пора бы уже привыкнуть, к неблагодарным горе-программистам..
Ответить с цитированием
  #20  
Старый 11.03.2011, 13:32
SawA SawA вне форума
Новичок
 
Регистрация: 09.03.2011
Сообщения: 57
Репутация: 10
По умолчанию

Цитата:
Сообщение от dr. F.I.N.
Вот стараешься, думаешь над проблемами других людей, пишешь какие-то модули, процедуры, функции, компоненты и т.п. ... а человеку даже сложно нажать на . Ну что за люди пошли? А потом еще напишут "я не разобрался, покажи как надо"...а тебе уже и не хочется помогать....накипело, блин...

Извиняюсь просто я не не знал о таком на этом форуме я тута недавно исправлюсь чесно чесно начну прям с Вас Ток щас подищу где ета кнопочка и обязательно обязательно еще рас сори
Ответить с цитированием
  #21  
Старый 11.03.2011, 17:39
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от dr. F.I.N.
Вот стараешься, думаешь над проблемами других людей, пишешь какие-то модули, процедуры, функции, компоненты и т.п. ... а человеку даже сложно нажать на . Ну что за люди пошли? А потом еще напишут "я не разобрался, покажи как надо"...а тебе уже и не хочется помогать....накипело, блин...

dr. F.I.N. просто в подпись подправь:

Давай проявлять уважение и солидарность:
1. Тебе помогли - нажми на .
2. Можешь помочь - помоги. И тебя поблагодарят аналогично.


и будет тебе счастье!!!)))))))
Ответить с цитированием
  #22  
Старый 11.03.2011, 18:01
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Прошу прощения за флейм.
Вроде бы репа не накручивается, если у накручивающего <= 10, но это так, лирическое отступление.
Насчет вежливости согласен, помогай, а тебя еще и оскорбят как-либо.

P.S. Pilot_Red, в подписи картинки запрещены.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #23  
Старый 11.03.2011, 18:51
Assistant Assistant вне форума
Продвинутый
 
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию

не по теме, но думаю меня простит админ:
а я вот вообще не одного вопроса на форуме не задал, только отвечаю, зачем оно мне, не понятно, хочецца нести добро в массы )) Спасибо сказали много раз ))) репутацию повысил тока один ))
Ответить с цитированием
  #24  
Старый 11.03.2011, 20:10
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

[offtop]Лично я редко повышаю кому-то репу, а (не в обиду будет сказано) не одобряю клянчинье репутации, даже если сам помогаю - за цифрами я не гонюсь[/offtop]
Ответить с цитированием
  #25  
Старый 11.03.2011, 21:16
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от ChinYan
[offtop]Лично я редко повышаю кому-то репу, а (не в обиду будет сказано) не одобряю клянчинье репутации, даже если сам помогаю - за цифрами я не гонюсь[/offtop]

Полностью поддерживаю!
Ответить с цитированием
  #26  
Старый 11.03.2011, 21:20
Assistant Assistant вне форума
Продвинутый
 
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию

да дело-то не в цифрах, иногда даже спасибо не услышишь, вот что печально. а ответы иногда тут людям не малые деньги приносят, дипломы, курсовые )))))

P.S. надо прекращать оффтопить, а то репа вообще -100 станет ))
Ответить с цитированием
  #27  
Старый 12.03.2011, 22:26
SawA SawA вне форума
Новичок
 
Регистрация: 09.03.2011
Сообщения: 57
Репутация: 10
По умолчанию

ох не знал что моя тема такой живой станет яж вроде извинился уже за не знание моно было и просто промолчать а по поводу спасибо я их в сообщениях не рас писал ну не виноват же я что кнопочки не увидел
Ответить с цитированием
  #28  
Старый 12.03.2011, 23:16
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Цитата:
Сообщение от SawA
ох не знал что моя тема такой живой станет яж вроде извинился уже за не знание моно было и просто промолчать а по поводу спасибо я их в сообщениях не рас писал ну не виноват же я что кнопочки не увидел
Да вас уже не судит никто - это чисто концептуальное обсуждение
Ответить с цитированием
  #29  
Старый 13.03.2011, 10:58
SawA SawA вне форума
Новичок
 
Регистрация: 09.03.2011
Сообщения: 57
Репутация: 10
По умолчанию

эх... .
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter