multibar 속성을 통해 액세스 위반이 발생했습니다.

Question

저는 프로그래밍 방식으로 bareries를 만듭니다 (Delphi2007, TeeChar 7 무료 에디션). 내 그래프에 인접 막대를 갖고 싶습니다. 그래서 여러 개의 bareries를 만들고 multibar 속성을 사용하려고합니다.

main_unit에서 multibar 속성을 설정할 때 액세스 위반이 발생합니다 (디버깅 할 때 bareries 개체를 검사하면 "바운드 상태가 아닙니다"로 표시됨). bareries가 생성 된 유닛에서 속성을 설정 한 경우에만 오류가 발생하지 않습니다. 외부에서 bareries를 어떻게 조작 할 수 있습니까? unit1에이 목적을 설정해야합니까?

unit unit1 
type TMyChart = Class 
fchart: TChart; 
procedure addSinglebarSeries(var X, Y: integer)  
.... 
implementation 
function TSignalchart.addSinglebarSeries(var X, Y: integer): TBarSeries; 
j, n : integer; 
begin 
    result := TBarSeries.Create(fChart); 
    result.AddXY(x,Y,inttostr(x), clRed); 
    barseries.MultiBar := mbStacked; //here no access violation 
end; 

---- 
unit main-unit 

implementation 
uses TeEngine, TeeProcs, unit1; 
procedure myprocedure; 
var 
newChart : TMyChart; 
X, Y := array of integer; 
barseries : TBarSeries; 
aX, aY, i: integer; 

begin 
//I create the newchart object, I create X, Y 

    for i := 0 to length(X) - 1 do 
    begin 
     aX := X[i]; 
     aY := Y[i]; 
     barseries := newChart.addsinglebarSeries(aX,aY); 
    end; 
    //barseries.MultiBar := mbStacked; //access violation!! 
    end; 

Answer 1

가 여기에 TeeChart (D2007)에서 5 multibar 스택 시리즈를 추가하는 예제입니다 : 여기

내 코드의 조각이다. Chart1는 TChart 구성 요소가 구성 요소 팔레트에서 제외하고, Button1 표준 TButton 같은 방식으로 배치입니다 :

// D2007+ way to easily initialize dynamic arrays 
type 
    TIntArray=array of Integer; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    BarSeries: TBarSeries; 
    X, Y: TIntArray; 
    i: Integer; 
begin 
    X := TIntArray.Create(1, 2, 3, 4, 5);  // SetLength and initialize rolled into one 
    Y := TIntArray.Create(10, 20, 30, 40, 50); // Nonsense values, of course. 
    Chart1.SeriesList.Clear; 
    for i := Low(X) to High(X) do 
    begin 
    BarSeries := TBarSeries.Create(Chart1); 
    BarSeries.AddXY(X[i], Y[i]); 
    BarSeries.MultiBar := mbStacked; 
    Chart1.AddSeries(BarSeries); 
    end; 
end; 

여기 Button1을 클릭 한 후 폼의 :