Запутался в классах, подскажите

[Janger]

Ситуация в следующем.
Я хотел посмотреть, действительно ли работа с классами упрощает жизнь, или нет.
Представил себе что нужно создать класс, который хранит в себе целый тест. С несколькими вопросами, и вариантами к нету.
В общем, я сделал следующее.
1) Объявил классы:

  Test_Question_Variant = class
    Num : integer;
    Text: string;
    Yes : Boolean;

    procedure AddVarian(MyNum: integer; MyText: string; MyYes: Boolean);
    constructor Create;
  end;

  Test_Question = class
    Num: Integer;
    Text: string;
    Question_Variants: array of Test_Question_Variant;

    procedure AddQuestion(MyNum: integer; MyText: string; MyQuestion_Variants: Test_Question_Variant);
    constructor Create;
  end;

  Test = class
    Text: string;
    Questions: array of Test_Question;

    procedure AddTest(MyText: string; MyQuestions: Test_Question);
    constructor Create;
  end;

2) Описал все функции и конструкторы, которые к этим классам относились, примерно так вот:

{ Test_Question_Variant }

procedure Test_Question_Variant.AddVarian(MyNum: integer; MyText: string;
  MyYes: Boolean);
begin
  Num  := MyNum;
  Text := MyText;
  Yes  := MyYes;
end;

constructor Test_Question_Variant.Create;
begin
  Num := 0;
  Text:= '';
  Yes := false;
end;

{ Test_Question }

procedure Test_Question.AddQuestion(MyNum: integer; MyText: string;
  MyQuestion_Variants: Test_Question_Variant);
begin
  Num  := MyNum;
  Text := MyText;

  SetLength(Question_Variants,Length(Question_Variants)+1);
  Question_Variants[High(Question_Variants)] := MyQuestion_Variants;
end;

constructor Test_Question.Create;
begin
    Num:=0;
    Text:='';
    Question_Variants:=nil;
end;

{ Test }

procedure Test.AddTest(MyText: string; MyQuestions: Test_Question);
begin
  Text := MyText;

  SetLength(Questions,Length(Questions)+1);
  Questions[High(Questions)] := MyQuestions;
end;

constructor Test.Create;
begin
    Text:='';
    Questions:=nil;
end;

===================================
3) Пытаюсь заполнить ....

procedure TForm1.Button1Click(Sender: TObject);
var
  NVar: Test_Question_Variant;
  NQue: Test_Question;
  NTes: Test;
begin
  // Шаг 1.
  NVar := Test_Question_Variant.Create;
  NVar.Num := 1;
  NVar.Text := 'Это 1-ый вариант ответа';
  NVar.Yes := False;

  // Шаг  2.
  NQue := Test_Question.Create;
  NQue.AddQuestion(1,'Это первый вопрос',NVar);

  // Шаг 3.
  NTes := Test.Create;
  NTes.AddTest('А это имя теста',NQue);
end;

============================
Но у меня вопросы.
Правильно ли я всё объявил? (Если нет, то подскажите как правильно ..)
Далее, очень мне интересно, как же добавлять следующие вопросы в мой тест? таким же образом? (я имею в виду, можно через цикл)
и самый пожалуй важный вопрос, как читать данные из моего класса (хотя я вот пока писал, у меня появилось подозрение, что мне надо написать функцию, которая будет к примеру по номеру вопроса, находить его, а по второму номеру находить вариант ответа к найденному вопросу. К примеру вот так вот: Fuction(NumQuestion, NumVariant: integer): string)
============================
Подскажите, пожалуйста ...

[Alex11223]

А заполнение точно работает? (я не вкурсе как SetLength работает)

Лучше использовать что-то типа TObjectList (generic если Дельфи 2009+).

И не делать AddTest в классе Test и т.п., лучше как-то так:

class Test
private:
    FQuestions: list...
public:
    AddQuestion(...)
    ...

class Question
private:
    FText: string;
    FAnswers: list...
public:
    AddAnswer(...)
    ...

class Answer
private:
    FIsCorrect: boolean;
    FText: string;
public:
    ...

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

как читать данные из моего класса

По-разному, зависит от задачи.
Вероятно стоит обратить внимание на property.

Ну и по-возможности обычно имеет смысл делать так, чтобы все что можно было "readonly" (неизменяемые значения после создания экземпляра, например property только с read, значения задавать в конструкторе), и все что можно было private.

[Janger]

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

А заполнение точно работает? (я не вкурсе как SetLength работает)

Ну, я недавно, достаточно часто работал с динамическими массивами, и там всё работало. думал сделать по такому же принципу.

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

Лучше использовать что-то типа TObjectList (generic если Дельфи 2009+).

Мне всё же привычнее с массивами работать... Но я посмотрю Ваш метод, возможно он удобнее. Ну к примеру, с точки зрения поиска нужной строки.

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

И не делать AddTest в классе Test и т.п., лучше как-то так:

Да, это более логичнее выглядит чем у меня. Спасибо за подсказку.

=================================== ==============

Я вот пока действительно, не могу придумать, как вывести данные из класса ....
Сделал вот такую штуку:

Вот так я заполняю тест

procedure TForm1.Button1Click(Sender: TObject);
var
  NVar: Test_Question_Variant;
  NQue: Test_Question;
  NTes: Test;
  i,j: integer;
begin
  for j:=1 to 5 do
  begin
    for i:=1 to 10 do
    begin
      NVar := Test_Question_Variant.Create;
      NVar.Num := i;
      NVar.Text := 'Вариант ответа №'+IntToStr(i);
      if i=5 then NVar.Yes := True else NVar.Yes := False;
    end;

    NQue := Test_Question.Create;
    NQue.AddQuestion(1,'Вопрос №'+IntToStr(j),NVar);
  end;

  NTes := Test.Create;
  NTes.AddTest('Один тест всего то ....',NQue);
end;

Добавил функцию в класс --> Test_Question_Variant = class

function Test_Question_Variant.Why(NumQuestion: integer): string;
var
  t: Test_Question;
  r: Test_Question_Variant;
  i,k: Integer;
begin
  t := Test_Question.create;
  r := Test_Question_Variant.Create;
  k:=0;
  if NumQuestion<=Length(t.Question_Variants) then
  begin
    for i:= Low(t.Question_Variants) to High(t.Question_Variants) do
    begin
      if k=NumQuestion then
      begin
        r := t.Question_Variants[i];
        Break;
      end
      else k:=k+1;
    end;

    Result := 'Наименование - '+r.Text+#13#10+
                 'Номерок- '+IntToStr(r.Num)+#13#10+
                 'Статус - '+BoolToStr(r.yes);
  end
  else
  Result := 'Произошла ошибка ... ----> '+IntToStr(Length(t.Question_Variants));
end;

Ну и соответсвенно, я решил, после всего этого безобразия, воспользоваться моей функцией, и вывести результат в Memo, я это сделал вот так вот:

procedure TForm1.Button2Click(Sender: TObject);
var
  NTes: Test_Question_Variant;
begin
  NTes := Test_Question_Variant.Create;

  Memo1.Text := NTes.Why(2);
end;

===============================
Ну и соответственно, МЕМО мне выдало сообщение: (Какие-то проблемы ... ----> 0)
===============================

[Alex11223]

Что вы сделать пытаетесь? Что за цикл?

"Вопрос №" и т.п. лучше не записывать сразу в строку, только при выводе.
Добавить для номера поле если надо (но может проще обойтись порядком в массивах? И вопросы/ответы ж бывает перемешивают, чтоб были всегда разные/разный порядок)

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

Я хотел посмотреть, действительно ли работа с классами упрощает жизнь, или нет.

Если правильно использовать, то да.

Вообще если выбирать из вещей, которые упрощают жизнь и дают возможность спать ночью, то одна из самых важных — это автоматические тесты (юнит тесты и т.д.).
И система контроля версий (git).

[Janger]

да всё просто.
я циклом заполняю массив в классе,
и потом хочу просто получить данные, из массива

[Alex11223]

Я про второй цикл, в функции со странным названием Why.

Если вы там пытаетесь получить ответ с указанным номером, то говорю ж, проще было бы использовать порядок в массиве (или что-то типа Dictionary/Map, но стандартный TDictionary завезли тоже только с 2009).

Но вы там что-то странное делаете потому что вы создали новые (пустые) экземпляры вопроса и ответа.

[netpolice]

Меня смущает момент, что Вы в каждом обработчике (Button2Click и т.д.) объявляете экземпляр класса, вызываете конструктор, что то с ним делаете и забываете о классе. Т.е. как минимум засоряете память, ну или все время работаете с разными экземплярами. Как по мне, то всякие

var
  NTes: Test_Question_Variant;

должны быть описаны в классе TForm1... Ну или еще где нибудь более глобально...