Как добавить текст в список типа TStringList

WoodHead · Регистрация: 15.01.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Мне необходимо добавить произвольный текст в список типа TStringList. Так как текст содержит символы перевода строки и возврата каретки, то нужно, чтобы текст разбивался на строки в списке.
Пока не придумал ничего лучше, чем сделать так:

Delphi
1
StringList.Text:=StringList.Text + MyText;

Проблема в том, что это помещено в цикл, а, как я понимаю, постоянное копирование всего текста из списка и обратно в список достаточно накладно по производительности при большом размере текста. Есть ли возможность добавлять текст в список менее затратно?
Если сделать просто

Delphi
1
StringList.Add(MyText);

то в списке весь добавляемый текст MyText будет записан одной строкой, что меня не устраивает. Какие ещё есть варианты?

@ZfoxAK · 11.04.2016, 07:13

См Delimiter

@Hikaru · 11.04.2016, 07:15

WoodHead, Здравствуйте. Можно использовать Delimiter и DelimitedText.

Delphi
1
2
3
cars := TStringList.Create;
cars.Delimiter := #13;        // Каждый элемент списка будет разделён переводом строки
cars.DelimitedText := MyText;

Так получите то, что нужно.

WoodHead · 11.04.2016, 07:49 **[ТС]**

Hikaru, думаю, вы меня неправильно поняли. В вашем коде происходит замещение того текста, который уже есть в StringList. А мне нужно к существующему тексту в списке добавить новый текст.

Добавлено через 2 минуты
ZfoxAK, всё равно не догоняю. Можно пример?

@Hikaru · 11.04.2016, 08:20

WoodHead,

Сообщение от WoodHead

всё равно не догоняю. Можно пример?

то-что я написал.

Сообщение от WoodHead

нужно к существующему тексту в списке добавить новый текст.

Ну тогда вот так:

Delphi
1
cars.DelimitedText := cars.Text;

Но столкнулся с проблемой, перенос строки это #10#13. А Delimiter принимает только один Char. Так что пока не придумал, как указать разделителю "перенос строки".

@ZfoxAK · 11.04.2016, 08:35

Сообщение от WoodHead

всё равно не догоняю.

Что именно?

Добавлено через 4 минуты

Сообщение от Hikaru

Но столкнулся с проблемой, перенос строки это #10#13. А Delimiter принимает только один Char.

Так заменит

Добавлено через 30 секунд
вот пример

@Puporev · 11.04.2016, 08:39

Сообщение от Hikaru

перенос строки это #10#13.

Вообще-то #13#10
А откуда берется текст с этими символами?

WoodHead · 11.04.2016, 08:55 **[ТС]**

Hikaru, вы опять заменяете весь текст.

Delphi
1
cars.DelimitedText := cars.Text;

Ещё раз подчёркиваю, что текст в списке уже есть, его мне удалять не требуется, а нужно только добавить новый текст с разделением по строкам списка.
ZfoxAK, не догоняю, как применить Delimeter, если мне нужно добавить (не заменить) текст в список. В примерах выше текст списка заменяется.
Puporev, это результат работы функции по формированию полей класса с строковом виде. Т.е. MyText в примере имеет тип string. Вот в качестве разделителей и сделал, как мне показалось, естественно #13#10.

@Hikaru · 11.04.2016, 08:57

Сообщение от Puporev

Вообще-то #13#10

, спасибо.
ZfoxAK, Да, сделал со StringReplace.
WoodHead, Держи

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
text : TStringList;
s : string;
begin
  text := TStringList.Create;
  text.Add(memo1.Text);
  s := StringReplace(text[0], #13#10, '|;|', [rfReplaceAll]);
  text.Delimiter := ';';
  text.QuoteChar := '|';
  text.DelimitedText := s;
end;
end.

@AHBAR · 11.04.2016, 09:01

WoodHead, почему бы не создать второй Стринглист? потом сделать цикл и добавлять в конец первого СтрингЛиста содржимое второго построчно

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
list1,list2:TStringList;
i:integer;
begin
list1 := TStringList.Create;
list1.Add('строка 0 исходного текста');
list1.Add('строка 1 исходного текста');
list1.Add('строка 2 исходного текста');
 
list2 := TStringList.Create;
List2.Text := memo1.Text;
 
for i := 0 to list2.Count-1 do
    list1.Add(list2[i]);
 
Memo2.Text := list1.Text;
 
list1.Free;
list2.Free;
 
end;

@Puporev · 11.04.2016, 09:01

Delphi
1
text.QuoteChar := '|';

Это зачем здесь? Чтобы это применить нужно сначала ограничить этим символом строки, содержащие пробелы.

@Hikaru · 11.04.2016, 09:03

Сообщение от WoodHead

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

Не пойму тогда, извините. В строках списка сделать ещё списки? Что-то тут не так.

@Puporev · 11.04.2016, 09:04

Сообщение от WoodHead

MyText в примере имеет тип string. Вот в качестве разделителей и сделал, как мне показалось, естественно #13#10.

А почему не строковый массив или список?

@Hikaru · 11.04.2016, 09:06

Сообщение от Puporev

Это зачем здесь? Чтобы это применить нужно сначала ограничить этим символом строки, содержащие пробелы.

Без text.QuoteChar := '|'; разделяет по пробелам а не по переносам.
В stringReplase ограничил, нет?
s := StringReplace(text[0], #13#10, '|;|', [rfReplaceAll]);

@Puporev · 11.04.2016, 09:10

Hikaru, Извиняюсь, не заметил.

WoodHead · 11.04.2016, 09:13 **[ТС]**

AHBAR, второй стринглист - это первое, что пришло в голову. Показалось, что можно решить элегантней, без привлечения лишних сущностей.
Можно ещё передавать список по ссылке в процедуру и заполнять список уже в ней. Но это тоже показалось как-то неизолировано. То есть процедура другого класса что-то добавляет в список, о котором ничего не знает. Проще отдавать строку с нужными данными.
Puporev, если передавать массив или список, то появляется код с циклами. Я думал, что StringList уже содержит необходимые методы для решения моей задачи.

@Puporev · 11.04.2016, 09:14

Сообщение от WoodHead

то StringList уже содержит необходимые методы для решения моей задачи.

Так это и есть список строк.

WoodHead · 11.04.2016, 09:20 **[ТС]**

Hikaru, нет, не в строках списка сделать списки. Есть список. В нём все разбито на строки. Нужно добавить в этот список текст так, чтобы он также был разбит на строки.

@Puporev · 11.04.2016, 09:21

Сообщение от WoodHead

Нужно добавить в этот список текст

Вот про это я и спрашивал, откуда он берется и в каком виде.

WoodHead · 11.04.2016, 09:26 **[ТС]**

Сообщение от Puporev

Вот про это я и спрашивал, откуда он берется и в каком виде.

Я же выше написал "это результат работы функции по формированию полей класса с строковом виде. Т.е. MyText в примере имеет тип string. Вот в качестве разделителей и сделал, как мне показалось, естественно #13#10.".

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Old Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	11.04.2016, 07:13
	См Delimiter 0

WoodHead 105 / 104 / 29 Регистрация: 15.01.2011 Сообщений: 515
	11.04.2016, 07:49 [ТС]
	Hikaru, думаю, вы меня неправильно поняли. В вашем коде происходит замещение того текста, который уже есть в StringList. А мне нужно к существующему тексту в списке добавить новый текст. Добавлено через 2 минуты ZfoxAK, всё равно не догоняю. Можно пример? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	11.04.2016, 09:10
	Hikaru, Извиняюсь, не заметил. 0

WoodHead 105 / 104 / 29 Регистрация: 15.01.2011 Сообщений: 515
	11.04.2016, 09:13 [ТС]
	AHBAR, второй стринглист - это первое, что пришло в голову. Показалось, что можно решить элегантней, без привлечения лишних сущностей. Можно ещё передавать список по ссылке в процедуру и заполнять список уже в ней. Но это тоже показалось как-то неизолировано. То есть процедура другого класса что-то добавляет в список, о котором ничего не знает. Проще отдавать строку с нужными данными. Puporev, если передавать массив или список, то появляется код с циклами. Я думал, что StringList уже содержит необходимые методы для решения моей задачи. 0

WoodHead 105 / 104 / 29 Регистрация: 15.01.2011 Сообщений: 515
	11.04.2016, 09:20 [ТС]
	Hikaru, нет, не в строках списка сделать списки. Есть список. В нём все разбито на строки. Нужно добавить в этот список текст так, чтобы он также был разбит на строки. 0