Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

combobox   Найти похожие ветки 

 
griban ©   (2004-05-05 16:41) [0]

marod ,help please!Ne mogu ubratj iz comboboxa odinakovie stroki :(. Iotsortirovatjstroki v StringGrid cheta tozhe ne poluchaetsja...


 
begin...end ©   (2004-05-05 19:10) [1]

Уж лучше перед добавлением item"а в ComboBox смотреть, есть ли он в списке, и если уже есть, то не добавлять.
Если же удалять уже после добавления, то... ничего лучше этого не приходит в голову (очень тупое решение, сразу говорю):

procedure DeleteDuplicates;
var
 List: TStringList;
 I: Integer;
begin
 List := TStringList.Create;
 List.Sorted := True;
 List.Duplicates := dupIgnore;
 for I := 0 to ComboBox1.Items.Count - 1 do
   List.Add(ComboBox1.Items[I]);
 ComboBox1.Clear;
 for I := 0 to List.Count - 1 do
   ComboBox1.Items.Add(List.Strings[I]);
 List.Free;
end;

А насчёт сортировки - в чём проблема? Поищи, какие есть методы сортировки - линейная, пузырёк и т.д., и примени к StringGrid.Cells. Или, опять же, используй TStringList.


 
yanis ©   (2004-05-05 19:11) [2]

Это два вопроса в одном!
1. Про ComboBox и одинаковые строки

function DeleteRepStr(TS: TStrings): TStrings;
var
 i, c: integer;
begin
 i := 0;
 while i <> ST.Count do
   begin
     c := i + 1;
     while c <> ST.Count do
       if ST.Strings[i] = ST.Strings[c] then
         ST.Delete(c)
       else
         c := c + 1;
     i := i + 1;
   end;
 result := ST;
end;


2. А как его отсортировать?



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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
7-1081612468
Kid
2004-04-10 19:54
2004.05.23
Есть ли компонент читающий логи win2000?


1-1084199356
glGLU
2004-05-10 18:29
2004.05.23
Edit &amp; randomize


1-1083839939
ary
2004-05-06 14:38
2004.05.23
Векторный шрифт


1-1083824616
Tex
2004-05-06 10:23
2004.05.23
как сконвертить bmp в jpg


14-1083236023
infom
2004-04-29 14:53
2004.05.23
Как вам вчерашнии игры