Главная страница
    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.44 MB
Время: 0.045 c
1-1083866041
grover
2004-05-06 21:54
2004.05.23
Какой virtual-key code для PageDown


4-1081258506
Flying home
2004-04-06 17:35
2004.05.23
Написание DLL


14-1083747350
Maxim Vetera
2004-05-05 12:55
2004.05.23
Google нас обманывает?


7-1081869416
ZSD
2004-04-13 19:16
2004.05.23
Рабочий стол


3-1083253108
Mister
2004-04-29 19:38
2004.05.23
обработка False





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский