Delphi 字符串、文件路径 排序算法

本文整理自网络，侵删。

 


//正序
function SortItem(List: TStringList; Index1, Index2: Integer): Integer;
var A1, A2: String;
    Dir1, Dir2: String;
    Name1, Name2: String;
begin//delphitop.com
  A1 := List[Index1];
  A2 := List[Index2];

  Dir1 := ExtractFilePath(A1);
  Dir2 := ExtractFilePath(A2);

  Name1 := ExtractFileName(A1);
  Name2 := ExtractFileName(A2);

  if Dir1 = Dir2 then
    Result := AnsiCompareText(Name1, Name2)
  else
    Result := AnsiCompareText(Dir1, Dir2);
end;

//倒序
function SortItem2(List: TStringList; Index1, Index2: Integer): Integer;
var A1, A2: String;
    Dir1, Dir2: String;
    Name1, Name2: String;
begin
  A1 := List[Index1];
  A2 := List[Index2];
  //delphitop.com
  Dir1 := ExtractFilePath(A1);
  Dir2 := ExtractFilePath(A2);

  Name1 := ExtractFileName(A1);
  Name2 := ExtractFileName(A2);

  if Dir1 = Dir2 then
    Result := AnsiCompareText(Name2,Name1 )
  else
    Result := AnsiCompareText(Dir2, Dir1);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
FList: TStringList;
begin
FList:=TStringList.Create;
FList.Text:=Memo1.Text;
FList.CustomSort(SortItem);
Memo1.Text:=FList.Text;
end;
 

相关阅读 >>

Delphi comobj调用wmplayer播放音乐

Delphi 配置驱动程序（firedac）

Delphi hide

Delphi共享软件防破解的实用招法

Delphi编程之win10桌面图标设置

Delphi里实现多线程下载文件并且显示进度到界面

Delphi exec error 错误处理

Delphi 如何把一个exe做为res加入到dll中，并在运行时生成exe文件执行

Delphi xe6 android视频采集

Delphi 关于 "高位" 与 "低位"

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 字符串、文件路径 排序算法