Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Вниз

повторы в ListBox и сохранение элементов в переменную   Найти похожие ветки 

← →
lehich ©   (2005-02-21 14:52) [0]

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

---

← →
Семен Сорокин ©   (2005-02-21 14:58) [1]

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

---

← →
lehich ©   (2005-02-21 17:21) [2]

спасибо!!!

---

← →
lehich ©   (2005-02-21 17:43) [3]

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

---

← →
Семен Сорокин ©   (2005-02-21 17:45) [4]

_str.Delimiter
_str.DelimitedText

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

---

← →
clickmaker ©   (2005-02-21 18:01) [5]

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

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

---

← →
lehich ©   (2005-02-21 18:43) [6]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.046 c