Не работает сортировка

[Алексей_2012]

Здравствуйте! Почему-то у меня не работает моя сортировка, с массивом записей работала, а переделав под строки перестала.
данная процедура состоит из 3-х этапов:

1) Инициализируется и заполняется динамический массив строк строками из стринглиста (sl)

2) Сама сортировка

3) отчистка предыдущего стринглиста и листбокса и заполнение их из массива

procedure TForm1.Button15Click(Sender: TObject);
var a:array of string;
i1,kk,n10:Integer;
strok:string;
begin
  kk:=SL.Count;
  SetLength(a,kk);
 for i1:=0 to kk do a[i1]:=SL.Strings[i1];

 for i1:=0 to kk-1 do
 FOR N10:=i1+1 to kk do
 IF A[i1]>A[n10] then
 begin
 strok:=A [i1];
 A[i1]:=A[N10];
 A[N10]:=strok;
 end ;


 SL.Clear;
 ListBox1.Clear;
 for i1:=0 to kk do
 begin
 SL.add(a[i1]);
 ListBox1.Items.add(ExtractFileName(a[i1]));
 end;
 a:=nil;

 ShowMessage('Плей лист был отсортирован по алфавиту');
end;

[Аватар]

Нужно не только в одном месте помнить, что индекс динамических массивов и строк в стриглисте от 0 до Count-1

[Алексей_2012]

  kk:=SL.Count;

изменил на

  kk:=SL.Count-1;

все равно не работает, выдает ошибку при заполнении массива

а почему еще может не работать?

[eoln]

Менять не там надо иначе динамический массив а будет неполный, нужно в циклах до kk везде уменьшить на 1
kk ==> kk-1
kk-1 ==> kk-2

Либо изменить

 kk:=SL.Count-1;
SetLength(a,kk+1);

[Алексей_2012]

Сортировка то работает, но под конец sl листа выводится два одинаковых названия в лист бокс(( но треки играют разные, что за бред?

procedure TForm1.Button15Click(Sender: TObject);
var a:array of string;
i1,kk,n10:Integer;
strok:string;
begin
  kk:=SL.Count;
  SetLength(a,kk);
 for i1:=0 to kk-1 do a[i1]:=SL.Strings[i1];
 SL.Clear;
 ListBox1.Clear;
 for i1:=0 to kk-1 do
 FOR N10:=i1+1 to kk-1 do
 IF A[i1]>A[n10] then
 begin
 strok:=Trim(A[i1]);
 A[i1]:=Trim(A[N10]);
 A[N10]:=trim(strok);
 end ;

 for i1:=0 to kk-1 do
 begin
 SL.add(a[i1]);
 ListBox1.Items.add(ExtractFileName(SL.Strings[i1]));
 end;
 a:=nil;
 ShowMessage('Плей лист был отсортирован по алфавиту');
end;

[Алексей_2012]

ну дак в чем дело, кто знает?

[Stilet]

Отладчиком пройтись не желаешь?

[Алексей_2012]

каким отладчиком? Я не умею

[alextrof94]

Самый простой отладчик - повставлять везде Showmessage('mess'); Где вместо mess будет любая строка, чтобы видеть, что она сейчас содержит.

procedure TForm1.Button15Click(Sender: TObject);
var a:array of string;
i1,kk,n10:Integer;
strok:string;
begin
  kk:=SL.Count;
  SetLength(a,kk);
 for i1:=0 to kk-1 do 
BEGIN
 ShowMessage(a[i1]); //отладчик
a[i1]:=SL.Strings[i1];
END:
 SL.Clear;
 ListBox1.Clear;
 for i1:=0 to kk-1 do
 FOR N10:=i1+1 to kk-1 do  
 IF A[i1]>A[n10] then
 begin
 ShowMessage(a[i1]+' '+A[N10]); //отладчик
 strok:=Trim(A[i1]); //ЧТО ДЕЛАЕТ ТРИМ? НУЖЕН ЛИ ОН ТУТ ВООБЩЕ?! Если strok-обычный буфер, то зачем в него присваивать результат функции?
 A[i1]:=Trim(A[N10]); //           --//--
 A[N10]:=trim(strok); //           --//--
 end ;

 for i1:=0 to kk-1 do
 begin
 SL.add(a[i1]);
 ListBox1.Items.add(ExtractFileName(SL.Strings[i1]));
 end;
 a:=nil;
 ShowMessage('Плей лист был отсортирован по алфавиту');
end;

[Stilet]

Я не умею

Рекомендую научится. Освоить установки точек прерывания и клавиши F7-F8.
Просто поверь - это твое все.