//下面Memo1中存放是就是你的这系列数字
//您可以直接把这串数据赋给RealStrs
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Memo1: TMemo;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormPaint(Sender: TObject);
private
FRealStrs: TStringList;
procedure SetRealStrs(const Value: TStringList);
{ Private declarations }
public
{ Public declarations }
ProPerty RealStrs:TStringList read FRealStrs write SetRealStrs;
procedure DrawLines;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RealStrs.Assign(Memo1.Lines);
DrawLines;
end;
procedure TForm1.DrawLines;
var
i,YY:integer;
Avalue:Real;
begin
if Assigned(FRealStrs) then
begin
Form1.Canvas.FillRect(Form1.Canvas.ClipRect);
for i:=0 to FRealStrs.Count-1 do
begin
Avalue:=StrToFloat(FRealStrs.Strings)-168;//取小数部分
YY:=trunc(1000*(Avalue));//放大一千倍
if i=0 then
Form1.Canvas.MoveTo(100+i*10,200-YY)
else
Form1.Canvas.LineTo(100+i*10,200-YY);
end;
end;
end;
procedure TForm1.SetRealStrs(const Value: TStringList);
begin
FRealStrs:=Value;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FRealStrs:=TStringList.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FRealStrs.Free;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
DrawLines;
end;
end.
