загрузка теста через memo.

[Drakulov]

Всем привет! У меня такая проблема:

Имеется файл теста с примерно таким содержанием:

тест                    //это тема
Сейчас вам будут предложены вопросы по теме "тест". Постарайтесь отвечать на них
не спеша и верно, т.к. времени на сдачу теста состовляет "3" минут. Желаем Удачи!
-------
Нажмите "ОК".  // инструкция
.                   //разделитель
*
1                   //время
!
пароль             //пароль=)
Вопрос1         //вопрос
.                   //разделитель
ответ1          //ответ
,0               {запятая означает что это не последний ответ а 0 то что ответ не верен}
ответ1
,0
ответ1
.1             {точка означает конец теста, а 1 ответ верен
Вопрос2
.
ответ2
,1
ответ2
,0
ответ2
.0

Итак, мне нужно что бы нормально выводилась инструкция до точки.
Тема выводится нормально, но с инструкцией пошла беда. Вместо отдельного участка текста выводит весь текст а точку просто стирает=(

в чем ошибка? Может есть какие нибудь советы на будущее?=)

//это вносит текст из файла теста в memo1
AssignFile (f, edit1.Text);
   Reset (f);
   s:='';
   repeat
   readln (f, s);
   memo1.Lines.Add(s)
   until eof(f);
...............................
   Form1.Caption := memo1.Lines.Strings[0]; //выводит название
   buf:='';
{это все должно выводить инструкцию...зараза этакая...не хотит...}
   for i:=1 to Memo1.Lines.Count-1 do

     begin
      if memo1.Lines.Strings[i] <> '.'  then
      begin
       buf := buf+memo1.Lines.Strings[i]+#13;
      end;
      If memo1.Lines.Strings[i] = '.'  then
      Application.ProcessMessages;

    end;

   Label6.caption:=buf;
   Label6.Visible:=true;

Хелп ми плииз!=) Заранее спасибо!=)

[Скандербег]

procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TStringList;
  I : Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(Edit1.Text);
    Memo1.Lines.Clear;
    for I := 0 to SL.Count-1 do begin
      Memo1.Lines.Add(SL[I]);
      if (SL[I] <> '') and (SL[I][1] = '.') then begin
        Memo1.Lines.Delete(Memo1.Lines.Count-1);
        break
      end;
    end;  
  finally
    SL.Free
  end;
end;

[Drakulov]

Ага спасибо! А можно как-нибудь сделать, чтобы SL загружал строки из memo1? я просто файл текстовой хочу потом зашифровать=)

з.ы. разобрался=)

 For i:=0 to Memo1.Lines.Count-1 do
    begin
    SL.Add(Memo1.Lines.Strings[i]);
     end;
     i:=0;

[Скандербег]

Так проще:

 SL.Text := Memo1.Lines.Text;

[Drakulov]

Ага спс=) Ну я так оставил, уже лень изменять=)
Так. С временем и паролем я по аналогии сделал. Читает.
Далее. Возникла трудность при чтении вопроса.
Вопрос может состоять из несколько строк собственно как и ответы.
Пытался по аналогии, получается ерунда...вернее ничего не получается...Как тут быть?

[Скандербег]

Все было бы ничего, если бы было понятно где, когда и в каком виде должны появляться вопросы и ответы.
Что за прихоть такая разделять логические куски теста точками? Хотя, конечно, точки тоже "люди".
Как вариант: при сканировании строк в SL надо считать количество встретившихся точек, которые расположены вначале строки (если нельзя вставить в текст более "говорящие" разделители). Первая точка отделяет заголовок теста, вторая вопрос №1, третья вопрос №2..., и т.д.

[Drakulov]

З.ы. вот как организовал считывание времени и пароля:

   //////////////
   ////////////
   //время /////
   ///////////
   /////////////
  SL := TStringList.Create;
     try
    For i:=0 to Memo1.Lines.Count-1 do
    begin
    SL.Add(Memo1.Lines.Strings[i]);
    end;
     i:=0;
    for I := 0 to SL.Count-1 do begin
      if (SL[i][1] = '*') THEN

      buf:=buf+SL[i+1];

      if (SL[i][1] = '!') then begin
       break;
        Memo1.Lines.Delete(Memo1.Lines.Count);
       //Memo1.Lines.Delete(Memo1.Lines.Count-1);
      end;
    end;
  finally
    SL.Free
     end;
   time:=strtoint(buf);

   buf:='';
 // // // // // // // // ////
// // // //пароль// // // //
// // // // // // // // ///
  SL := TStringList.Create;
     try
    For i:=0 to Memo1.Lines.Count-1 do
    begin
    SL.Add(Memo1.Lines.Strings[i]);
    end;
     i:=0;
    for I := 0 to SL.Count-1 do begin
      if (SL[i][1] = '!') THEN
      buf:=buf+SL[i+1];
      end;
      pass:=buf;
  finally
    SL.Free
     end;
   buf:='';
end;

вот как пытался сделать вопрос:

    // прочитать вопрос
  SL := TStringList.Create;
   try
    For i:=0 to Memo1.Lines.Count-1 do
    begin
    SL.Add(Memo1.Lines.Strings[i]);
    end;
     i:=0;
     u:=0;
    for I := 0 to SL.Count-1 do begin
      if (SL[i][1] = '!') THEN
      begin
      For u:=i+1 to SL.Count-1 do begin
      buf:=buf+SL[u]+#13;
      if (SL[u][1] = '.') or (s[u] ='\') then begin
       break;
        Memo1.Lines.Delete(Memo1.Lines.Count);
      Label5.caption:=buf
   end;
   end;
   end;
   end;
  finally
    SL.Free
     end;

Не получается...в чем юмор?

[Drakulov]

Сообщение от Скандербег

Как вариант: при сканировании строк в SL надо считать количество встретившихся точек, которые расположены вначале строки (если нельзя вставить в текст более "говорящие" разделители). Первая точка отделяет заголовок теста, вторая вопрос №1, третья вопрос №2..., и т.д.

Дело в том что количество точек я заранее не знаю. т.е. текст теста может состоять из большого количества вопросов. Это все делает пользователь через специальную программу "Создатель тестов" (Которую я с горем пополам, но сделал...эх...теперь вот маюсь над этим запуском тестов=)) хотя можно ведь взять это количество через цикл repeat так?

[Drakulov]

Зачем тему то перенесли?