我完成了一个可以处理正数和负数的解决方案。但并没有实现所有您需要的Unicode解决方案所需的natsort功能,但对于一般目的的排序应该足够。
代码:
Original Answer翻译成"最初的回答"
unit MySortUnit;
interface
uses
Grids
,System
,Classes
,Windows
,SysUtils;
type
TSortOrder=(soAscending,soDescending);
TSortOption=record
SortOrder:TSortOrder;
CaseSensitive:Boolean;
SortLogical:Boolean;
end;
TSortOptions=Array of TSortOption;
procedure SortGridByColumns(Grid:TStringGrid; Columns:array of Integer; Options:TSortOptions);
implementation
type TMoveSG=class(TCustomGrid);
procedure SortGridByColumns(Grid:TStringGrid; Columns:array of Integer; Options:TSortOptions);
type
TshlwapiStrCmpLogicalW=function(psz1, psz2: PWideChar):Integer; stdcall;
var
i,j:Integer;
InternalColumns:Array of Integer;
InternalOptions:TSortOptions;
Sorted:Boolean;
shlwapi:HMODULE;
StrCmpLogicalW:TshlwapiStrCmpLogicalW;
function StringCompareLogicalCaseInsensitiveASC(const String1,String2:String):Integer;
begin
Result:=StrCmpLogicalW(PWideChar(WideString(String1)),PWideChar(WideString(String2)));
end;
function StringCompareLogicalCaseInsensitiveDESC(const String1,String2:String):Integer;
begin
Result:=-1*StrCmpLogicalW(PWideChar(WideString(String1)),PWideChar(WideString(String2)));
end;
function StringCompareCaseInsensitiveASC(const String1,String2:String):Integer;
begin
Result:=AnsiCompareText(String1,String2);
end;
function StringCompareCaseInsensitiveDESC(const String1,String2:String):Integer;
begin
Result:=-1*AnsiCompareText(String1,String2);
end;
function StringCompareCaseSensitiveASC(const String1,String2:String):Integer;
begin
Result:=AnsiCompareStr(String1,String2);
end;
function StringCompareCaseSensitiveDESC(const String1,String2:String):Integer;
begin
Result:=-1*AnsiCompareStr(String1,String2);
end;
function StringCompareLogicalCaseSensitiveASC(const String1,String2:String):Integer;
const
Digits:set of char=['0'..'9'];
Signs:set of char=['-','+'];
var
i,l1,l2:Integer;
ASign,c:Char;
Int1,Int2:Integer;
sl1,sl2:TStringList;
s:String;
begin
l1:=length(String1);
l2:=length(String2);
sl1:=TStringList.Create();
sl2:=TStringList.Create();
try
for i:=1 to l1 do
begin
c:=String1[i];
if (c in Digits) and (sl1.Count=0) then
begin
sl1.Add('');
sl1.Add(c);
end
else if not(c in Digits) and (sl1.Count=0) then sl1.Add(c)
else
begin
if c in Digits then
begin
s:=sl1[sl1.Count-1];
if s[length(s)] in Signs then
begin
ASign:=s[length(s)];
Delete(s,length(s),1);
end
else ASign:=#0;
if TryStrToInt(sl1[sl1.Count-1],Int1)=True then sl1[sl1.Count-1]:=sl1[sl1.Count-1]+c
else
begin
sl1[sl1.Count-1]:=s;
if ASign=#0 then sl1.Add(c) else sl1.Add(ASign+c);
end;
end
else
begin
if TryStrToInt(sl1[sl1.Count-1],Int1)=false then sl1[sl1.Count-1]:=sl1[sl1.Count-1]+c else sl1.Add(c)
end;
end;
end;
for i:=1 to l2 do
begin
c:=String2[i];
if (c in Digits) and (sl2.Count=0) then
begin
sl2.Add('');
sl2.Add(c);
end
else if not(c in Digits) and (sl2.Count=0) then sl2.Add(c)
else
begin
if c in Digits then
begin
s:=sl2[sl2.Count-1];
if s[length(s)] in Signs then
begin
ASign:=s[length(s)];
Delete(s,length(s),1);
end
else ASign:=#0;
if TryStrToInt(sl2[sl2.Count-1],Int1)=True then sl2[sl2.Count-1]:=sl2[sl2.Count-1]+c
else
begin
sl2[sl2.Count-1]:=s;
if ASign=#0 then sl2.Add(c) else sl2.Add(ASign+c);
end;
end
else
begin
if TryStrToInt(sl2[sl2.Count-1],Int1)=false then sl2[sl2.Count-1]:=sl2[sl2.Count-1]+c else sl2.Add(c)
end;
end;
end;
for i:=0 to Min(sl1.Count,sl2.Count)-1 do
begin
if (TryStrToInt(sl1[i],Int1)=True) and (TryStrToInt(sl2[i],Int2)=True)
then Result:=Int1-Int2
else Result:=CompareStr(sl1[i],sl2[i]);
if Result<>0 then break;
end;
finally
sl1.Free();
sl2.Free();
end;
end;
function StringCompareLogicalCaseSensitiveDESC(const String1,String2:String):Integer;
begin
Result:=-1*StringCompareLogicalCaseSensitiveASC(String1,String2);
end;
function ExecuteSortLogic(StringRow1,StringRow2:String; ColumOption:TSortOption):Integer;
begin
if ColumOption.SortLogical=true then
begin
if ColumOption.CaseSensitive=True then
begin
if ColumOption.SortOrder=soAscending
then Result:=StringCompareLogicalCaseSensitiveASC(StringRow1,StringRow2)
else Result:=StringCompareLogicalCaseSensitiveDESC(StringRow1,StringRow2);
end
else
begin
if ColumOption.SortOrder=soAscending
then Result:=StringCompareLogicalCaseInsensitiveASC(StringRow1,StringRow2)
else Result:=StringCompareLogicalCaseInsensitiveDESC(StringRow1,StringRow2);
end;
end
else
begin
if ColumOption.CaseSensitive=True then
begin
if ColumOption.SortOrder=soAscending
then Result:=StringCompareCaseSensitiveASC(StringRow1,StringRow2)
else Result:=StringCompareCaseSensitiveDESC(StringRow1,StringRow2)
end
else
begin
if ColumOption.SortOrder=soAscending
then Result:=StringCompareCaseInsensitiveASC(StringRow1,StringRow2)
else Result:=StringCompareCaseInsensitiveDESC(StringRow1,StringRow2);
end;
end;
end;
function Sort(Row1,Row2:Integer; SortOptions:TSortOptions):Integer;
var
C:Integer;
begin
C:=0;
Result:=ExecuteSortLogic(Grid.Cols[InternalColumns[C]][Row1],Grid.Cols[InternalColumns[C]][Row2],Options[C]);
if Result=0 then
begin
Inc(C);
while (C<=High(InternalColumns)) and (Result=0) do
begin
Result:=ExecuteSortLogic(Grid.Cols[InternalColumns[C]][Row1],Grid.Cols[InternalColumns[C]][Row2],Options[C]);
Inc(C);
end;
end;
end;
function IsIntegerInArray(AnInt:Integer; AnArray:Array of Integer):Boolean;
var
i:Integer;
begin
Result:=false;
for i:=0 to High(AnArray) do
begin
Result:=(AnArray[i]=AnInt);
if Result=True then break;
end;
end;
begin
if length(columns)=0 then exit;
shlwapi:=LoadLibrary('shlwapi.dll');
try
if shlwapi<>0 then
begin
@StrCmpLogicalW:=GetProcAddress(shlwapi,'StrCmpLogicalW');
if (@StrCmpLogicalW=nil) then exit;
end
else exit;
if High(Columns)>High(Options) then
begin
i:=length(Options);
setLength(Options,length(Columns));
for j:=i to High(Options) do
begin
Options[i].SortOrder:=soAscending;
Options[i].CaseSensitive:=false;
Options[i].SortLogical:=false;
end;
end
else if High(Columns)<High(Options) then
begin
setLength(Options,length(Columns));
end;
for i:=0 to High(Columns) do
begin
if (Columns[i]>=0) and (Columns[i]<Grid.ColCount) then
begin
if (IsIntegerInArray(Columns[i],InternalColumns)=false) then
begin
setLength(InternalColumns,length(InternalColumns)+1);
setLength(InternalOptions,length(InternalOptions)+1);
InternalColumns[High(InternalColumns)]:=Columns[i];
InternalOptions[High(InternalOptions)]:=Options[i];
end;
end;
end;
if (High(InternalColumns)>Grid.ColCount-1) then setLength(InternalColumns,Grid.ColCount)
else if (length(InternalColumns)=0) then exit;
SetLength(Options,length(InternalColumns));
for i:=0 to High(InternalColumns) do Options[i]:=InternalOptions[i];
j:=0;
repeat
Inc(j);
Sorted:=True;
for i:=Grid.FixedRows to Grid.RowCount-2 do
begin
if Sort(i,i+1,Options)>0 then
begin
TMoveSG(Grid).MoveRow(i+1,i);
Sorted:=False;
end;
end;
until Sorted or (j=1000);
finally
Grid.Repaint;
if shlwapi<>0 then FreeLibrary(shlwapi);
@StrCmpLogicalW:=nil;
end;
end;
对于所有的子过程,我并不是很满意,但每个人都可以根据自己的需求进行使用。
原始回答:Original Answer
SORT_DIGITSASNUMBERS
这样的标志怎么样?并且移除NORM_IGNORECASE
?不确定它们在 XP 中是否正常工作。 - Rudy Velthuis