From b15c2b23fd34fe64f5688f717d36d6fe2ff3ffd0 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Wed, 10 Apr 2019 12:26:35 +0000
Subject: [PATCH] TAChart: Ignore XList when sorting ListChartSource. Issue
 #35188.

git-svn-id: trunk@60918 -
---
 components/tachart/tasources.pas | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/components/tachart/tasources.pas b/components/tachart/tasources.pas
index 1b1ea160ed..ca01814cf7 100644
--- a/components/tachart/tasources.pas
+++ b/components/tachart/tasources.pas
@@ -841,17 +841,10 @@ end;
 
 function CompareDataItemX(AItem1, AItem2: Pointer): Integer;
 var
-  i: Integer;
   item1: PChartDataItem absolute AItem1;
   item2: PChartDataItem absolute AItem2;
 begin
   Result := CompareFloat(item1^.X, item2^.X);
-  if Result = 0 then
-    for i := 0 to Min(High(item1^.XList), High(item2^.XList)) do begin
-      Result := CompareFloat(item1^.XList[i], item2^.XList[i]);
-      if Result <> 0 then
-        exit;
-    end;
 end;
 
 procedure TListChartSource.Sort;