如何讀出文字檔中的內容並將結果寫入TQRChart中? |
尚未結案
|
Torpedo
一般會員 ![]() ![]() 發表:5 回覆:7 積分:2 註冊:2002-10-31 發送簡訊給我 |
|
chih
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
Delphi..
procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRChart1.Chart.Series[0].AddXY(1, "5 torr", '', clTeeColor);
QRChart1.Chart.Series[0].AddXY(2, "10 torr", '', clTeeColor);
QRChart1.Chart.Series[0].AddXY(3, "15 torr", '', clTeeColor);
QRChart1.Chart.Series[0].AddXY(4, "20 torr ", '', clTeeColor);
QRChart1.Chart.Series[0].AddXY(5, "25 torr ", '', clTeeColor); QRChart1.Chart.Series[1].AddXY(1, 1.1, '', clTeeColor);
QRChart1.Chart.Series[1].AddXY(2, 2.2, '', clTeeColor);
QRChart1.Chart.Series[1].AddXY(3, 3.3, '', clTeeColor);
QRChart1.Chart.Series[1].AddXY(4, 4.4, '', clTeeColor);
QRChart1.Chart.Series[1].AddXY(5, 5.5, '', clTeeColor);
end;
我是用Delphi..BCB好像是這樣??
procedure TForm2->QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRChart1->Chart->Series[0]->AddXY(1, "5 torr", '', clTeeColor);
QRChart1->Chart->Series[0]->AddXY(2, "10 torr", '', clTeeColor);
QRChart1->Chart->Series[0]->AddXY(3, "15 torr", '', clTeeColor);
QRChart1->Chart->Series[0]->AddXY(4, "20 torr ", '', clTeeColor);
QRChart1->Chart->Series[0]->AddXY(5, "25 torr ", '', clTeeColor);
QRChart1->Chart->Series[1]->AddXY(1, 1.1, '', clTeeColor);
QRChart1->Chart->Series[1]->AddXY(2, 2.2, '', clTeeColor);
QRChart1->Chart->Series[1]->AddXY(3, 3.3, '', clTeeColor);
QRChart1->Chart->Series[1]->AddXY(4, 4.4, '', clTeeColor);
QRChart1->Chart->Series[1]->AddXY(5, 5.5, '', clTeeColor);
end;
TRY TRY SEE..
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |