Скачать: CL | DM;

Как использовать CustomSort   Найти похожие ветки 

← →
Канадин Владимир   (2004-06-04 22:16) [0]

Доброго времени суток.
Расскажите мне, слабоумному, как можно использовать CustomSort? Я пытаюсь использовать такой код:

function TForm1.MCL(List: TStringList; Index1, Index2: Integer): Integer;
var p1,p2 : String;
   i : integer;
begin
 i :=Pos(".",List[Index1]); p1:=Copy(List[Index1],i,Length(List[Index1])-i+1);
 i :=Pos(".",List[Index2]); p2:=Copy(List[Index2],i,Length(List[Index2])-i+1);
 if p1<p2 then MCL:=-1
 else if p2<p1 then MCL:=1
 else begin
   i :=Pos(".",List[Index1]); p1:=Copy(List[Index1],1,i);
   i :=Pos(".",List[Index2]); p2:=Copy(List[Index2],1,i);
   if p1<p2 then MCL:=-1
   else if p2<p1 then MCL:=1
   else MCL:=0;
 end;
end;

procedure TForm1.LoadZip(stFN : string);
var ai : TZFArchiveItem;
   MSL: TStringList;
begin
 MSL := TStringList.Create;
 ZF1.FileName := stFN;
 ZF1.OpenArchive(fmOpenRead);
 if ZF1.FindFirst("*.*",ai,faAnyFile-faDirectory) then
   repeat
     MSL.Add(ai.FileName);
   until not(ZF1.FindNext(ai));
 ZF1.CloseArchive;
 MSL.CustomSort(MCL); - здесь ругается - несоответствие типов.
 LB.Items.Clear;
 LB.Items.AddStrings(MSL);
 MSL.Free;
end;

Если вы знаете, как победить этого зверя, расскажите. Когда я писал в своих классах функцию и передавал ее имя объекту класса, все шло на ура, а в стандартном классе - не проходит.
Спасибо
Канадин Владимир.

---

← →
panov ©   (2004-06-04 22:37) [1]

function MCL(List: TStringList; Index1, Index2: Integer): Integer;
...

---

← →
panov ©   (2004-06-04 22:38) [2]

TStringListSortCompare - не должен быть методом

---

← →
Канадин Владимир   (2004-06-07 21:15) [3]

К сожалению, у меня это не работает. Т.е. функция вызывается, выдает должный результат, но на экране не видно никаких отличий.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c