변경 TDBChart이 달 포맷 디스플레이

Question

내가 사용 해요 TDBChart - 의 TeeChart 표준 내가 사용하고 DB를 내부에 내 PRICE 열에서 값의 SUM을하는 파이 차트를 표시하고 그것의에서 는 정렬 Months에있는 데이터 - 데이터베이스에 datetime type으로 설정된 DATE 열에서. 다음

내 TDBChart 표시

:

내 문제 : 나는 10 월 - 2016 년 11 월 - 2016로 월을 표시 어떻게해야합니까

(idealy 옥트 16, 11 월 16 일).

보시다시피, 현재 숫자로 표시됩니다 (10-16 및 11-16).

시리즈 옵션 내 어디에서나 포맷 옵션을 찾을 수 없습니다.

Answer 1

점을 추가하기 전에 datetime을 문자열로 포맷하고이를 레이블로 전달합니다. 즉 :

uses DateUtils; 

procedure TForm1.FormCreate(Sender: TObject); 
var tmpDate: TDateTime; 
    i: Integer; 
begin 
    for i:=0 to 1 do 
    begin 
    tmpDate:=IncMonth(Today,i); 
    Series1.AddPie(random*100,FormatDateTime('mmm-yy', tmpDate)); 
    end; 
end; 

---

편집 :

당신이 데이터 소스에 연결 채우는 경우, 다음 레이블이 자동으로 추가됩니다. 내가 직접이 내 TSimpleDataSet을 설정 한 후 데이터 소스 탭, 요약을 사용하여 정보를 추가

procedure TForm1.Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer; 
    var MarkText: string); 
var i: Integer; 
    m, y: string; 
begin 
    i:=Pos('-',MarkText); 
    m:=Copy(MarkText,1,i-1); 
    y:=Copy(MarkText,i+1,Length(MarkText)-i); 
    MarkText:=ShortMonthNames[StrToInt(m)] + ' ' + y; 
end;