home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Series_TextSource.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.7 KB  |  79 lines
  1. unit Series_TextSource;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, TeEngine, Series, TeeURL, ExtCtrls, TeeProcs, Chart;
  8.  
  9. type
  10.   TSeriesTextSourceForm = class(TBaseForm)
  11.     SeriesTextSource1: TSeriesTextSource;
  12.     Series1: TBarSeries;
  13.     Memo2: TMemo;
  14.     Button1: TButton;
  15.     Button2: TButton;
  16.     Edit1: TEdit;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Button2Click(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.     Procedure UpdateMemo;
  24.   end;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. Uses TeeStore, TeeConst;
  31.  
  32. procedure TSeriesTextSourceForm.Button1Click(Sender: TObject);
  33. begin
  34.   Series1.Clear;
  35.   SeriesTextSource1.LoadFromStrings(Memo2.Lines);
  36. end;
  37.  
  38. procedure TSeriesTextSourceForm.Button2Click(Sender: TObject);
  39. begin
  40.   Series1.Clear;
  41.   Screen.Cursor:=crHourGlass;
  42.   try
  43.     With SeriesTextSource1 do
  44.     begin
  45.       { get points from the web... }
  46.       LoadFromURL(Edit1.Text);
  47.  
  48.       { now set the SeriesTextSource properties }
  49.       { to match the retrieved file... }
  50.       HeaderLines:=0;
  51.       FieldSeparator:=#9; { tab }
  52.       Fields.Clear;
  53.       AddField(TeeMsg_Text,1);
  54.       AddField('X',2);
  55.       AddField('Bar',3);
  56.     end;
  57.     { change the Memo contents with the Web file }
  58.     UpdateMemo;
  59.   finally
  60.     Screen.Cursor:=crDefault;
  61.   end;
  62. end;
  63.  
  64. Procedure TSeriesTextSourceForm.UpdateMemo;
  65. begin
  66.   { TSeriesDataText object is used to export Series }
  67.   { values to Text }
  68.   With TSeriesDataText.Create(Chart1,Series1) do
  69.   try
  70.     Memo2.Lines.Text:=AsString;
  71.   finally
  72.     Free;
  73.   end;
  74. end;
  75.  
  76. initialization
  77.   RegisterClass(TSeriesTextSourceForm);
  78. end.
  79.