вывести строки из массива в memo

[qadhhj]

Не получается вывести несколько строк в memo, читает только первую строку. Пробовал так -

memo1.lines[0]:=massiveVopros[i].VoprosString1;
memo1.lines[1]:=massiveVopros[i].VoprosString2;
memo1.lines[2]:=massiveVopros[i].VoprosString3;
memo1.lines[3]:=massiveVopros[i].VoprosString4;
memo1.lines[4]:=massiveVopros[i].VoprosString5;
memo1.lines[5]:=massiveVopros[i].VoprosString6;
memo1.lines[6]:=massiveVopros[i].VoprosString7;
memo1.lines[7]:=massiveVopros[i].VoprosString8;
memo1.lines[8]:=massiveVopros[i].VoprosString9;

[vovk]

Так можно, если все элементы списка с 0 по 8 уже существуют, и то с мемо этого делать не стоит.
Есть разные методы добавление в strings
Используйте
Memo1.Lines.Add('текст');

[vovk]

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

[qadhhj]

У меня массив считывает строки с текстового файла, в котором и вопросы и ответы

memo1.lines[0]:=massiveVopros[i].VoprosString1;
memo1.lines[1]:=massiveVopros[i].VoprosString2;
memo1.lines[2]:=massiveVopros[i].VoprosString3;
memo1.lines[3]:=massiveVopros[i].VoprosString4;
memo1.lines[4]:=massiveVopros[i].VoprosString5;
memo1.lines[5]:=massiveVopros[i].VoprosString6;
memo1.lines[6]:=massiveVopros[i].VoprosString7;
memo1.lines[7]:=massiveVopros[i].VoprosString8;
memo1.lines[8]:=massiveVopros[i].VoprosString9;
smemo2.Text:=massiveVopros[i].VariantOtveta1;
smemo3.Text:=massiveVopros[i].VariantOtveta2;
smemo4.Text:=massiveVopros[i].VariantOtveta3;
smemo5.Text:=massiveVopros[i].VariantOtveta4;

Элементы уже существуют, если например на кнопку повесить -

label1.caption:=massiveVopros[i].VoprosString8;

То он выведет 8 строку вопроса, а вот Memo нет

[GreenWizard]

навскидку:

type
  RVopros = record
   VoprosString: array[0..7] of string;
  end;

procedure TForm1.AddVopros(const Vopros: RVopros);
var
  i: Integer;
begin
  mmo1.Lines.BeginUpdate;
  try
    mmo1.Lines.Clear;
    for i := Low(Vopros.VoprosString) to High(Vopros.VoprosString) do
       mmo1.Lines.Add(Vopros.VoprosString[i]);
  finally
    mmo1.Lines.EndUpdate;
  end;
end;

замечания по подходу:
1) "явная индексация".... замените на массив VoprosString
2) весьма не логично хранить строки вопросов явно.... лучше 1 строку хранить, а ВНУТРИ разделять текст на строки символами #13#10
3) доп. к п.2.... имхо, вы сами усложнили задачу, пытаясь написать попроще

[vovk]

я говорил про элементы Tmemo
у вас существует элемент
memo1.lines[5] на момент добавление в него текста?
Чтото мне подсказывает что нет, не существует..
Используйте

Memo1.Lines.cear;//очищаем список
Memo1.Lines.Add(massiveVopros[i].VoprosString1);//добавляем строку
Memo1.Lines.Add(massiveVopros[i].VoprosString2);//добавляем строку
/////и тд

[qadhhj]

Да, не существуют, я не так вас понял. Сейчас все работает, спасибо!

[GreenWizard]

на самый крайний случай уже:

procedure SetMemoLine(const mmo1: TMemo; const Line: Integer; const Value1: string);
begin
  while mmo1.Lines.Count <= Line do
    mmo1.Lines.Add('');

  mmo1.Lines.Strings[Line] := Value1;
end;

и где-то дальше:

SetMemoLine(Memo1, 5, 'Это строка №5');

[vovk]

2GreenWizard
Вы всё правильно пишите, вот только мне кажется
ТС на данный момент не совсем понимает то, что вы хотите сказать, может через пару прочитанных книг...
Возможно, и скорее всего он использует то, что выучил на данный момент. Потом изучив материал дальше будет глядеть на свой код, и умилятся))