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 that you have read and understand our privacy policy and code of conduct.

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