如何讀出文字檔中的內容並將結果寫入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..
|
發表時間：2003-10-28 15:15:44
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-04-26 8:25:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |