1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
| unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,TeeProcs, TeEngine, Chart, MXGRAPH, teefunci, LbButton,
StdCtrls, Series, ComCtrls, TabNotBk;
type
TForm7 = class(TForm)
LbButton1: TLbButton;
TabbedNotebook1: TTabbedNotebook;
chart1: TDecisionGraph;
Series1: TLineSeries;
chart2: TDecisionGraph;
Series2: TLineSeries;
ComboBox1: TComboBox;
Edit1: TEdit;
UpDown1: TUpDown;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit2: TEdit;
GroupBox1: TGroupBox;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
LbButton2: TLbButton;
LbButton3: TLbButton;
procedure LbButton1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure FormActivate(Sender: TObject);
procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
procedure FormCreate(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure loadchart;
procedure LbButton2Click(Sender: TObject);
procedure LbButton3Click(Sender: TObject);
private
procedure chartinit;
function IsDoublette(AText: String; AStrings: TStrings): Boolean;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type Tzeit = array[2003..5000,1..12, 1..31] of int64;
Tkb = array[2003..5000,1..12, 1..31] of int64;
var
Form7: TForm7;
zeit:tzeit;
zkb:tkb;
mgb,low:boolean;
implementation
... |
