From 7ef45b44d0f0f3d6a321eab22c90209fb0168ea0 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 8 Jun 2012 06:33:18 +0000
Subject: [PATCH] TAChart: Use partial arrays instead of pointers to implement
 TListChartSource.AddXYList

git-svn-id: trunk@37580 -
---
 components/tachart/tasources.pas | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/components/tachart/tasources.pas b/components/tachart/tasources.pas
index f9ee940605..7f5fb9084f 100644
--- a/components/tachart/tasources.pas
+++ b/components/tachart/tasources.pas
@@ -39,7 +39,6 @@ type
     function NewItem: PChartDataItem;
     procedure SetDataPoints(AValue: TStrings);
     procedure SetSorted(AValue: Boolean);
-    procedure SetYListInternal(AIndex, ACount: Integer; AYList: PDouble);
     procedure UpdateCachesAfterAdd(AX, AY: Double);
   protected
     function GetCount: Integer; override;
@@ -394,7 +393,7 @@ begin
     raise EYListEmptyError.Create('AddXYList: Y List is empty');
   Result := Add(AX, AY[0], ALabel, AColor);
   if Length(AY) > 1 then
-    SetYListInternal(Result, High(AY), @AY[1]);
+    SetYList(Result, AY[1..High(AY)]);
 end;
 
 procedure TListChartSource.Clear; inline;
@@ -573,17 +572,11 @@ end;
 
 procedure TListChartSource.SetYList(
   AIndex: Integer; const AYList: array of Double);
-begin
-  SetYListInternal(AIndex, Length(AYList), @AYList[0]);
-end;
-
-procedure TListChartSource.SetYListInternal(
-  AIndex, ACount: Integer; AYList: PDouble);
 var
   i: Integer;
 begin
   with Item[AIndex]^ do
-    for i := 0 to Min(High(YList), ACount - 1) do
+    for i := 0 to Min(High(AYList), High(YList)) do
       YList[i] := AYList[i];
 end;