повторы в 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

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

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

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

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

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