procedure TForm1.BitBtn4Click(Sender: TObject);

Var

Series1,Series2 : TBarSeries;

begin

Series1 := TBarSeries.Create(Self); // bar 생성

Series2 := TBarSeries.Create(Self); // bar 생성



chart1.AddSeries(Series1) ;

chart1.AddSeries(Series2) ;



Series1.Add(100,'1-1',clred) ; ===> (나타내고자 하는 값, 제목, 색상)

Series2.Add(200,'2-1',clblue) ;



Series1.Add(50,'1-1',clred) ;

Series2.Add(70,'2-1',clblue) ;



Series1.Add(40,'1-1',clred) ;

Series2.Add(20,'2-1',clblue) ;



:

:

:

요런식으로 for문이나 while문을 돌려 TABLE의 내용을 찍어주심 됩니다.

참 !! 맨위 uses 절에 Series 를 추가해 주세요



end;









왕초보^^ wrote:

> 안녕하세요^^*

> 델파이를 시작한지 얼마 안

도움이 될지모르겠네엽.. ^^ 그럼 즐프엽 ^^;;





for i := 1 to j do

begin

쿼리 부분 생략입니다 ^^;;

while not eof do

begin

if i = 1 then

case radiogroup1.ItemIndex of

0: series1.Add(fieldbyname('errcount').asfloat,fieldbyname('주').asstring+'주',clTeeColor);

1: series1.Add(fieldbyname('errcount').asfloat,fieldbyname('월').asstring+'월',clTeeColor);

end;

if i = 2 then

case radiogroup1.ItemIndex of

0: series2.Add(fieldbyname('errcount').asfloat,fieldbyname('주').asstring+'주',clTeeColor);

1: series2.Add(fieldbyname('errcount').asfloat,fieldbyname('월').asstring+'월',clTeeColor);

end;

if i = 3 then

case radiogroup1.ItemIndex of

0: series3.Add(fieldbyname('errcount').asfloat,fieldbyname('주').asstring+'주',clTeeColor);

1: series3.Add(fieldbyname('errcount').asfloat,fieldbyname('월').asstring+'월',clTeeColor);

end;

if i = 4 then

case radiogroup1.ItemIndex of

0: series4.Add(fieldbyname('errcount').asfloat,fieldbyname('주').asstring+'주',clTeeColor);

1: series4.Add(fieldbyname('errcount').asfloat,fieldbyname('월').asstring+'월',clTeeColor);

end;

next;

end;

end;//for



왕초보^^ wrote:

> 안녕하세요^^*

> 델파이를 시작한지 얼마 안

답변 감사합니다^^*



제가 질문을 잘 못했나봐요..

죄송해요.. 6^^;

답변은 넘 감사하지만 제가 원하는 답이 아니거든요..

전 시리즈를 새로 추가하거나 수정하는게 아니라..

X축의 라벨을 바꾸고 싶은거였거든요..

그니까 밑에 차트 모양에서 보면

aa,bb,cc,dd 의 라벨 값을

ee,ff,gg,hh 루여..



넘 성실하게 답변해주신 님들께 감사 드리구요^^*

이걸 어떻게 해결해야 하는지 바쁘시겠지만 다시한번 답변해주세요^^

금 좋은 하루 되시구여~ 항상 행복하세요^^*





> 왕초보^^ wrote:

> > 안녕하세요^^*

> > 델파이를 시작한지 얼마 안