Текущий архив: 2005.03.06;
Скачать: CL | DM;
Вниз
повторы в 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.045 c
