From 0db429e010fbc4bf4a593f7f5ab131f698e99d4f Mon Sep 17 00:00:00 2001 From: q9_ Date: Wed, 4 Aug 2004 15:02:09 +0000 Subject: [PATCH] =?utf8?q?=E3=82=BD=E3=83=BC=E3=83=88=E8=A9=95=E4=BE=A1?= =?utf8?q?=E3=81=8C=E5=90=8C=E3=81=98=E5=A0=B4=E5=90=88=E3=81=AF=E3=80=81?= =?utf8?q?=E7=AC=AC1=E3=82=AB=E3=83=A9=E3=83=A0=E3=81=AE=E6=98=87=E9=A0=86?= =?utf8?q?=E3=81=AB=E3=82=BD=E3=83=BC=E3=83=88?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Sort.pas | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Sort.pas b/Sort.pas index 2b44b56..41160a6 100644 --- a/Sort.pas +++ b/Sort.pas @@ -112,6 +112,14 @@ begin } if not SortOrder then Result := Result * -1; + + // ƒ\[ƒg•]‰¿‚ª“¯‚¶ê‡‚́A‘æ1ƒJƒ‰ƒ€‚̏¸‡‚Ƀ\[ƒg + if Result = 0 then begin + if SortNoFlag then + Result := CompareInt(ThreadItem1.No, ThreadItem2.No) + else + Result := AnsiCompareText(ThreadItem1.Title, ThreadItem2.Title) + end; end; function CompareBool(Item1, Item2: Boolean): Integer; -- 2.11.0