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.

Это два вопроса в одном!
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. А как его отсортировать?

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