Функция IfSave: Boolean;

[pomz]

Привет всем! Скачал недавно программу "тест", хочу немного переделать его из-за того что в нём не создаются многострочные ответы, думаю выход из положения такой:
В поле где вводится вопрос, я решил что там и буду вводить варианты ответов, а в низу просто будут RadioButton`ы для отмечания варианта ответа. Из глобальных переменных убрал вот эту строчку "ed: array [1..10] of TEdit;", ну короче говоря избавился от "полей ввода вариантов ответа". И запнулся на этой функции:
Функция, используемая для сохранения проделаных изменений в файл, если удалось сохранить - возвращает true

function IfSave: boolean;
var
  Checked: boolean;
  i,k,save: byte;
begin
   result:=false;
   k:=1;
   save:=0;
   if Form1.Memo1.Text=''     //Проверяем чтобы вопрос не оказался пустым
      then save:=1;
   Checked:=false;
   for i:=1 to anscount do    //Проверяем все ли поля ответов заполнены, и запоминаем правильный ответ, если он выбран как убрать это действие???? Я убирую, и комп виснит!
       begin
          if ed[i].Text=''
             then save:=2;
          if rb[i].Checked
             then begin
                     checked:=true;
                     k:=i;
                  end;
       end;
   if not Checked
      then save:=3;
   if anscount=1        //Проверяем, чтобы на вопрос было как минимум два возможных варианта ответа
      then save:=4;
   case save of
        0: begin     //Если все хорошо, то сохраняем изменения в файл              
if Form1.N17.Enabled=false
                 then SaveQuestion(Test,count,k)          //Если мы в режиме создания теста, то сохраняем вопрос последним
                 else SaveQuestion(Test,CurPos,k);        //Если мы в режиме редактирования, то сохраняем вопрос в текущюю позицию указателя
              inc(count);
              for i:=1 to anscount do                     //Избавляемся от форм ввода вариантов вопроса
                  begin
                     ed[i].Destroy;  - эту строчку я убрал
                     rb[i].Destroy;
                  end;
              anscount:=0;
              result:=true;
           end;
        1: begin
              MessageBox(application.Handle,'И какой же подразумевается ответ на пустой вопрос? Молчание?','Ну, и?',MB_OK+MB_ICONEXCLAMATION);
              result:=false;
           end;
        2: begin
              MessageBox(application.Handle,'А поля с ответами я за тебя буду заполнять?.','Ну, и?',MB_OK+MB_ICONEXCLAMATION);
              result:=false;
           end;
        3: begin
              MessageBox(application.Handle,'Я конечно умный, но на этот вопрос я ответа не знаю, поэтому выбери правильный ответ сам.','Ну, и?',MB_OK+MB_ICONEXCLAMATION);
              result:=false;
           end;
        4: begin
              MessageBox(application.Handle,'На этот вопрос даже ёжик ответит, ты б постарался и придумал хотя бы 2 ответа на свой вопрос.','Ну, и?',MB_OK+MB_ICONEXCLAMATION);
              result:=false;
           end;
   end;
end;

[Stilet]

Пардон, я чет не понял...
Я твою прогу запустил создал новый тест и заработал 100 баллов.
В чем там затык то?

[pomz]

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

Пардон, я чет не понял...
Я твою прогу запустил создал новый тест и заработал 100 баллов.
В чем там затык то?

Всё правильно, там исходник рабочий.
Я хочу при создании либо при редактировании не записывать в создаваемые Edit`ы ответы, а записывать их в Memo вместе с вопросом, а варианты ответов отмечать на созданных RadioButton.
Значит я убираю из кода строчки где прописывается создание Edit`а, но он ссылается на сообщение 2: "Введите ответ".
Вот как сделать чтобы он не проверял введены ответы или нет, а сразу запоминал правельный ответ если он выбран? Чёта мучаюсь и не выходит, пытался просто тупо убрать кусок кода, после этого комп виснит!

[Stilet]

А-а-а.
Т.е. ты хочешь так: В первой строке Мемо написан вопрос, а в следующих строках варианты ответа на него?
При этом вопрос и варианты ответа обязательно должны укладываться в одну строку.
Верно?

[pomz]

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

А-а-а.
Т.е. ты хочешь так: В первой строке Мемо написан вопрос, а в следующих строках варианты ответа на него?

Да именно так, но в этом сложности нет.

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

При этом вопрос и варианты ответа обязательно должны укладываться в одну строку.
Верно?

а вот тут нет.
Суть вопроса моего не в этом.
Я убираю с исходника вот эти строки:
щас в следующем сообщении выложу

Вот всё что я там убираю пометил так //

Могу те за помощь пару сотен на телефон кинуть!!!!, но тока еси поможешь!

моя аська: 47385803шесть

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Stilet]

pomz

Не, дружище, я фрилансом не занимаюсь.
Посмотрел ту программку - достаточно сложная для анализа.

[pomz]

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

Не, дружище, я фрилансом не занимаюсь.
Посмотрел ту программку - достаточно сложная для анализа.

Ну почему же сразу фриланс, это просто будет скромная благодарность за твою помощь. Ну если нет времени то ладно!!!

[Stilet]

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

На твоем месте я бы написал свою программу полностью. Я не шучу.