[Delphi] Как задать массив строк целиком?

[Utkin]

Ну что же, покурил мануалы. Такая операция невозможна для строк. Можно только для чисел и упорядоченным типам (элементы которых имеют отношения друг к другу).

Ps.

ОРДИНАЛЬНЫЕ ТИПЫ ДАННЫХ
Общие черты ординальных типов таковы:
1) всякий ординальный тип описывает конечное и упорядоченное множество значений, которые отображаются на последовательность порядковых номеровО, 1, 2ит. д., исключениемявляетсятип1п^ег, который отображает последовательность значений на себя;
2) для любого ординального типа определены минимальное и максимальное значения;
3) для всякого значения, кроме первого, определено предшествующее, и для всякого значения, кроме последнего, — последующее;
4) для любых пар однотипных значений ординальных типов допустимы операции сравнения;
5) стандартные функции Succ (x), Pred (x), Ord (x) воспринимают аргументы любого ординального типа:Succ (x) — последующее для x значение; Pred (x) — предшествующее для x значение; Ord (x) — ординальный номер значения x.

Я бы взял TStrings или уже готовый TStringList

[Lion-Tiger]

Utkin

Огромное спасибо за разъяснение!
Хорошо, вернусь к TStrings, хоть там полностью все работает )
Безумно благодарен!

Тему можно закрывать =)

[meligo]

Первый пост ТопикСтартера был:

Сообщение от Lion-Tiger

то с TStrings придется делать вот так:
Код:
MyProperty.Text:=Value1+#13#10+Valu e2+#13#10+ и так далее...

А потом писали-писали, писали-писали а основного решения так и не увидели!

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

Memo1.Lines.DelimitedText := 'Строка1 Строка2 33 44 "Строка 5"';

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

Строки в TStrings, а значит и во всех наследниках, включая TStringList по умолчанию разделены пробелами и/или запятыми (хотя это можно настраивать - см. Delimiter и StrictDelimiter), но нас значения по-умолчанию устраивают в этой задаче. Поэтому код такой минимальный - всего одна строка!

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

Вот ещё использование этой техники в TStringList (анонимный список, не требующий даже секции var для объявления переменной):

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do try
    DelimitedText := 'Строка1 Строка2 33 44 "Строка 5"';  // Загрузка и сепарация списка строк
    Memo1.Text := Text;                                   // Cброс результата в Memo1, например
    Caption := Strings[Count-1]                           // Последняя строчка списка - в заголовок формы
  finally
    Free
  end;
end;

Результат:

Строка1
Строка2
33
44
Строка 5