home *** CD-ROM | disk | FTP | other *** search
- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Db, Grids, DBGrids, MemTable, ExtCtrls, DBCtrls, TeeProcs, TeEngine,
- Chart, StdCtrls, Series, DBChart;
-
- type
- TForm1 = class(TForm)
- DBChart1: TDBChart;
- Series1: TBarSeries;
- Panel1: TPanel;
- DBGrid1: TDBGrid;
- DBNavigator1: TDBNavigator;
- MemTable1: TMemTable;
- MemTable1PERIOD: TIntegerField;
- MemTable1VALUE: TIntegerField;
- MemTable1COLOR: TIntegerField;
- DataSource1: TDataSource;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- MemTable1CALC: TStringField;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure MemTable1CalcFields(DataSet: TDataSet);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.DFM}
-
- procedure TForm1.Button1Click(Sender: TObject);
- var
- i:integer;
- begin
- with MemTable1 do
- begin
- Close;
- Open;
- for i:=1 to 100 do
- begin
- Append;
- FieldByName('PERIOD').asinteger:=i;
- FieldByName('VALUE').asinteger:=i*2;
- FieldByName('COLOR').asinteger:=i*4;
- Post;
- end;
- end;
- end;
-
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- MemTable1.SaveToFile('c:\test.csv',[mtfSaveData,mtfSaveCalculated]);
- end;
-
- procedure TForm1.Button3Click(Sender: TObject);
- begin
- MemTable1.Open;
- MemTable1.EmptyTable;
- MemTable1.LoadFromFile('c:\test.csv');
- end;
-
- procedure TForm1.MemTable1CalcFields(DataSet: TDataSet);
- begin
- if MemTable1.Fields[0].IsNull then
- MemTable1.Fields[3].AsString:='NULL'
- else
- MemTable1.Fields[3].AsString:='';
- end;
-
- end.
-