ExplodeText(Str: String) : Array Of String
Текст в массив

Функция ExplodeText возвращает массив строк, полученных разбиением строки Str с использованием символов перевода строки в качестве разделителя. Разделитель в результат не включается.

Символами конца строки могут быть символы с кодами 10, 13 или комбинация 13+10.

Если символы перевода строки не содержатся в SourceStr, то ExplodeText возвращает массив, содержащий один элемент SourceStr.

Пример:

Procedure OnCreate;
Var 
  A : Array Of String;
Begin 
  A := ExplodeText('Строка1' + Chr(10) + 'Строка2' + Chr(10) + 'Строка3');
  Warning('1) ' + A[0]); //1) Строка1
  Warning('2) ' + A[1]); //2) Строка2
  Warning('3) ' + A[2]); //3) Строка3
End;

Смотри функцию Explode.

© RTIT