загрузить в метку текст из файла

[Алексей_2012]

здравствуйте, есть файл с текстовой информацией, в нем есть некоторые вопросы разделенные точкой. Нужно по нажатию кнопки вывести вопрос в метке, по повторном нажатии загрузить следующий вопрос и т.д до конца файла

З.Ы. не знаю как делать, решил загрузить это все в МЕМО, но выдается ошибка, хотя с едитами все работает

var
m:Integer=0;
n:Integer=0;
p:Integer=0; //глобальные переменные

procedure TForm1.btn2Click(Sender: TObject);
var
vopr:string[255];
begin
mmo1.Lines.LoadFromFile('вопросы.txt');
p:=Pos('.',mmo1.Lines);
n:=n+p;
p:=m+p;
vopr:=Copy(mmo1.Lines,n,m-p);
lbl6.caption:=vopr;
mmo1.Clear;
end;

[ReportCube]

mmo1.Lines.Text

[Алексей_2012]

а как-нибудь можно не используя компонент мемо? Мне не только вопросы нужно в метку загрузить, мне нужно варианты ответы в радиогруппу из второго файла загрузить, но этого тут не прошу, остальное по примеру дальше думаю сам смогу сделать

[ReportCube]

Создайте TStringList и грузите в него, принцип работы тот же, только без визуализации списка. В чём проблемы?

[Алексей_2012]

А на какой вкладке этот компонент? никак найти не могу

[ReportCube]

TStringList - это не компонент, а класс, он наследник TStrings. TMemo внутри себя также содержит TStrings.

[Serge_Bliznykov]

Алексей,
прямо в коде пишите создание объекта класса TStringList

вот так, например:

procedure TForm1.btn2Click(Sender: TObject);
var
  TS : TStringList;
begin
  lbl6.caption := '';
  try 
    TS := TStringList.Create;
    TS.LoadFromFile('вопросы.txt');
    p:=Pos('.',TS.Text);
    if p>0 then begin
      n:=n+p;
      p:=m+p;
      lbl6.caption := Copy(TS.Text,n,m-p);
  finally
     FreeAndNil(TS); {освободили занятую память}
  end;
end;

пример кода условный. Подправите под себя..

[Алексей_2012]

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

var
l:integer=0;
p:integer=0;
h:integer=1;


procedure TForm1.btn2Click(Sender: TObject);
var
  vopr:string;
begin
  lbl6.caption:='';
mmo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'вопросы.txt');
p:=Pos(';',mmo1.Lines.text);
l:=l+p;
vopr:=copy(mmo1.Lines.text,h+1,l);
lbl6.caption:=vopr;
h:=h+p;
mmo1.Clear;
mmo1.Lines.add('Отображение результата ЗДЕСЬ!!');
end;

[Serge_Bliznykov]

во-первых, Вы абсолютно зря не воспользовались советом по использованию TStringList!

во-вторых, зачем Вам глобальные l, p, h ?!

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

[Алексей_2012]

я использую стринг лист, но мне надо до ума код сначала этот довести

эти переменные, по крайней мере 2 пригодятся

файл с вопросами содержит вопросы, резделенные ограничителем, точкой с запятой, тест по английскому, но приведу другой пример вопросов, которые в файле:

Например: Сколько зубов у человека?;
Сколько вам лет?;

точка с запятой-ограничитель, поэтому в метке должен выводиться первый вопрос, до точки с запятой, затем по повторном нажатии на кнопку второй, и т.д))) ну как-то так,, надеюсь теперь вы мне сможете помочь)))