Сортировка строк в ListBox

[ydav_kaa]

Привет всем.!
Надеюсь кто-нибудь поможет решить мне мою задачу/проблему...
Итак, суть.
Имеется ListBox в который из бд access загружаются названия таблиц.
(названия таблиц - дни недели + одна таблица с исключениями)
После загрузки названий listbox выглядит следующим образом:

воскресенье
вторник
исключения
понедельник
пятница
среда
суббота
четверг

То есть - названия отсортированы по алфавиту. Мне же необходимо упорядочить дни недели:

Понедельник
Вторник
...
Исключения

для этого Я сделал следующее:

procedure TForm1.Button2Click(Sender: TObject);
var
  c0unt: integer;
  day_mas: array[0..7] of integer;
 begin
   for c0unt:=0 to listbox1.Count-1 do
    begin
      case ANSIIndexText(ListBox1.Items[c0unt], ['Понедельник','Вторник','Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье', 'Исключения']) of
        0: day_mas[c0unt]:=0;
        1: day_mas[c0unt]:=1;
        2: day_mas[c0unt]:=2;
        3: day_mas[c0unt]:=3;
        4: day_mas[c0unt]:=4;
        5: day_mas[c0unt]:=5;
        6: day_mas[c0unt]:=6;
        7: day_mas[c0unt]:=7;
      end;
    end;
    for c0unt:=0 to ListBox1.Count-1 do
    begin
      listbox1.Items.Exchange(c0unt,day_mas[c0unt]);
    end;
 end;

Но результат был не тот что я ожидал.

Понедельник
Вторник
Среда
Исключения
Пятница
Воскресенье
Четверг
Суббота

При трассировке значения day_mas = (6,1,7,0,4,2,5,3) - то есть именно такой порядок - который мне нужен.
Так что, видимо, все дело в listbox1.Items.Exchange(c0unt,day_m as[c0unt]);
Надеюсь не слишком запутанно, чтоб знающи люди прошли мимо :crazy

[Don Karleone]

вы заполняете массив day_mas числами в зависимости от дня недели:
изначально day_mas = (6,1,7,0,4,2,5,3).
Потом сортируйте его по возрастанию и при перестановке его элементов переставляйте соответствующие строки в ListBox.

var
  day_mas: array [0..7] of byte;
  i, j, T: integer;
begin
  for i:=0 to ListBox1.Count - 1 do
    begin
      if AnsiUpperCase(ListBox1.Items[i]) = 'ПОНЕДЕЛЬНИК' then day_mas[i]:=0;
      if AnsiUpperCase(ListBox1.Items[i]) = 'ВТОРНИК' then day_mas[i]:=1;
      if AnsiUpperCase(ListBox1.Items[i]) = 'СРЕДА' then day_mas[i]:=2;
      if AnsiUpperCase(ListBox1.Items[i]) = 'ЧЕТВЕРГ' then day_mas[i]:=3;
      if AnsiUpperCase(ListBox1.Items[i]) = 'ПЯТНИЦА' then day_mas[i]:=4;
      if AnsiUpperCase(ListBox1.Items[i]) = 'СУББОТА' then day_mas[i]:=5;
      if AnsiUpperCase(ListBox1.Items[i]) = 'ВОСКРЕСЕНЬЕ' then day_mas[i]:=6;
      if AnsiUpperCase(ListBox1.Items[i]) = 'ИСКЛЮЧЕНИЯ' then day_mas[i]:=7;
    end;

  for i:=0 to 6 do
    for j:=0 to 6 - i do
      if day_mas[j] > day_mas[j+1]
        then
            begin
              ListBox1.Items.Exchange(j, j+1);
              T:=day_mas[j];
              day_mas[j]:=day_mas[j+1];
              day_mas[j+1]:=T;
            end;
end;

А Listbox тут непричем

[ydav_kaa]

Спасибо! Именно то, что нужно!
А то уж было я стал подумывать над тем, как сделать выборку названий таблиц в нужном порядке из базы!
А вообще удивлен, что ни у кого такой задачи не возникало - сортировать листбокс... в поиске ничего нет

[ydav_kaa]

На соседнем форуме подсказали вот такой вариант решения задачи - тоже рабочий:

function GetDayIndex(const DayName: string): Integer;
var
  i: Integer;
begin
  Result := High(g_DaysOfWeek) + 1;
  for i := Low(g_DaysOfWeek) to High(g_DaysOfWeek) do
    if (AnsiCompareText(DayName, g_DaysOfWeek[i]) = 0) then
      begin
  Result := i;
  Exit;
end;
end;

function CompareWithValues(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := CompareValue(GetDayIndex(List[Index1]), GetDayIndex(List[Index2]));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  SL2: TStringList;
begin
  SL2 := TStringList.Create;
  try
    SL2.Assign(ListBox2.Items);
    SL2.CustomSort(CompareWithValues);
    ListBox2.Items.Assign(SL2);
  finally
    FreeAndNil(SL2);
  end;
end;