2

Подскажите, пожалуйста, как можно объединить все строки ListBox в одну?

Делаю вот так, но кажется что-то неверно:

 begin
  i := 1;
  while i < ListBox1.Count do
    s := ListBox1.Items[i] + '+' + ListBox1.Items[i + 1];
  Inc(i);
  Edit4.Text := s;
end;
1
  • Вы свой код вообще пробовали? Он склеивает только 2 строчки и выходит за границы массива.
    – Kromster
    7 мая 2021 в 5:57

2 ответа 2

6

Можно использовать стандартные методы свойства TListBox.Items класса TStrings

ListBox1.Items.Delimiter := '+';
Edit4.Text := ListBox1.Items.DelimitedText;
1
  • И это более лаконичный ответ! Ловите +1. Единственное, что может быть не очень хорошо - это немного замусоривает состояние ListBox-а.
    – Kromster
    7 мая 2021 в 7:20
2

Обычно, склеивается вот так:

uses StrUtils;

...

s := '';
for I := 0 to ListBox1.Count - 1 do
  s := s + IfThen(s <> '', '+') + ListBox1.Items[I];

Edit4.Text := s;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.