| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

повторы в ListBox и сохранение элементов в переменную [D7, WinXP]

lehich ©   (2005-02-21 14:52:00) 

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

---

lehich   (2005-02-21 18:43:00) [1]

сенкс еще раз.. всё работает замечательно :-)))

---

clickmaker   (2005-02-21 18:01:00) [2]

> lehich ©   (21.02.05 17:43) [3]
> [Error] Unit1.pas(350): Undeclared identifier: 'Delimeter'
> [Error] Unit1.pas(351): Undeclared identifier: 'DelimitedText'

Блиннн! Ну народ разленился...

---

Семен Сорокин   (2005-02-21 17:45:00) [3]

_str.Delimiter
_str.DelimitedText

писАл "на лету", так что уж звиняйте

---

lehich   (2005-02-21 17:43:00) [4]

[Error] Unit1.pas(350): Undeclared identifier: 'Delimeter'
[Error] Unit1.pas(351): Undeclared identifier: 'DelimitedText'

---

lehich   (2005-02-21 17:21:00) [5]

спасибо!!!

---

Семен Сорокин   (2005-02-21 14:58:00) [6]

var
 _str: TstringList;
begin
 _str := TStringList.Create;
 try
  _str.Duplicates := dupIgnore;
  _str.AddStrings(ListBox1.Items);
  _str.Delimeter := ',';  
  Result := DelimitedText
 finally
  _str.Free
 end
end;

---

Наверх