Delphi7, Работа с текстом - Delphi

[Zurs]

Подскажите, как можно выполнить задание. Необходимо считать с Memo1 текст и записать его в переменную типа String. Переменную необходимо разбить на массив. Каждая новая строка текста - это новый элемент массива. Как это можно сделать? Заранее спасибо.

[Serge_Bliznykov]

Зачем?!!!
В основе Memo1 лежит TStrings (абстрактный класс, реальный - TStringList)
Так уже строчки все по отдельности лежат.
Доступ к любой строке через индекс: Memo1.Lines[НомерСтроки]

если Вам нужен (по каким-то непонятным причинам) массив строк,
тогда просто в цикле занесите строки в этой массив.
Но прежде трижды подумайте - а точно ли Вам этот массив нужен?!

[Dvoishnik]

я надеюсь хуже не будет.

var s: array of String ;
    i: integer;
.........
SetLength(s,Memo1.Lines.Count);
For i:=0 to Memo1.Lines.Count-1 do
Begin
  s[i]:=Memo1.Lines[i];
End;

[min@y™]

Как это можно сделать?

Как звучит задание в оригинале?