Delphi之Tchart控件使用心得
Delphi之Tchart控件使用心得
最近在学习delphi，做一个软件练手，用到Tchart控件，有些粗略的使用心得，供delphi初学者参考。
TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。可下载Steema TeeChart 7，没有源代码，能用就好！
由于我要在同一个Chart界面显示不同的图形，需要动态编程实时绘制曲线。
一、添加Series之前，要删除已有的Series，只能从后往前删，否则出错：
for i:=Chart1.SeriesCount-1 downto 0 do
begin
Chart1.Series[i].Free;
end;
二、运行时候创建一个Series, 有多种方法。
1．Var MySeries : TBarSeries ;
MySeries := TBarSeries.Create( Self );
MySeries.ParentChart := Chart1 ;
2．Chart1.AddSeries( TBarSeries.Create( Self ) );
3．Var MyClass : TChartSeriesClass;
MyClass := TBarSeries ;
Chart1.AddSeries( MyClass.Create( Self ) );
在这里根据，用到循环结构动态添加多条Series。
for j:=0 to NXUGMU-1 do
begin
series:=TFastLineSeries.Create(Chart1);
Chart1.AddSeries(Series); //动态增加series
series.LinePen.Width:=2; //设定线宽
Chart1.Series[j].Title:='速度 '+StrVelocity[j]; //动态标题
randomize;
end;
三、在chart中画出的曲线某个点上标记出该点的值
series.Marks.Visible:=True;
Series.Marks.Style:=smsValue;
四、固定TChart中的坐标，不使TChart中的坐标跟随Series的变化而变化
//设�
相关文档：
在写c++的接口时可以将两个相互引用的类放在两个.h文件中，然后将这个接口翻译到delphi时，放在两个文件里就不可能了。只能放在同一个unit中。并且要将这两个类都放在同一个type下面进行定义，当前面一个类要使用后面一个类时，需要在前面一个类的前面放置一个前置声明，并且前置声明只能是IVariantMap = class;这种格式而� ......
技术交流,DH讲解. 这个是在CSDN上面看见的问题.我说说自己的想法. procedure TForm1.btn1Click(Sender: TObject);
var
Str:String;
begin
Str:='abc' ;
Str:=str+'d';
str:=copy(Str,1,3);
str:=UpperCase(str);
end;
问题1答案:2010下
Unit4.pas.29: begin
005144E0 55 p ......
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(dir) +';Extended Properties=dBase 5.0;Persist Security Info=False;';
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(dir)+';Extended Pro ......
网上Down的一个单元.自己改了下. unit utCRC32;
interface
uses
Windows,SysUtils,Classes;
const //Crc32表
Crc32Tab: Array[0..$FF] of LongInt =
($00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f,
$e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
$0 ......
例如以下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
......
