Текущий архив: 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.44 MB
Время: 0.036 c