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:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,
  DBCtrls, Mask, ImgList, jpeg;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    Table1: TTable;
    Bild0: TImage;
    bt5050: TBitBtn;
    Bild50: TImage;
    Bild100: TImage;
    Bild200: TImage;
    Bild300: TImage;
    Bild500: TImage;
    bild1000: TImage;
    bild2000: TImage;
    Bild4000: TImage;
    Bild8000: TImage;
    bild16000: TImage;
    bild32000: TImage;
    bild64000: TImage;
    bild125000: TImage;
    bild500000: TImage;
    bild1000000: TImage;
    Image1: TImage;
    DataSource1: TDataSource;
    bt50502: TBitBtn;
    btstart: TBitBtn;
    btclose: TBitBtn;
    btaus: TBitBtn;
    btok: TBitBtn;
    Timer1: TTimer;
    btinternet: TBitBtn;
    btinternet2: TBitBtn;
    Memo1: TMemo;
    Panel1: TPanel;
    Label10: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    rb2: TRadioButton;
    rb3: TRadioButton;
    rb4: TRadioButton;
    Label2: TLabel;
    rb1: TRadioButton;
    Label5: TLabel;
    procedure bt5050Click(Sender: TObject);
    procedure bt50502Click(Sender: TObject);
    procedure btstartClick(Sender: TObject);
    procedure btcloseClick(Sender: TObject);
    procedure btausClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btinternetClick(Sender: TObject);
    procedure btinternet2Click(Sender: TObject);
    procedure gelb(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure gelb3(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure gelb2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure gelb4(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure silber(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure blau1(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure blau3(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure blau2(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure blau4(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }

   procedure draw_label(ALabel: tlabel; iIndex: integer; strAnswer: string);


  public
    { Public-Deklarationen }

  end;




var
  Form1: TForm1;




implementation

uses Unit2, Unit3;


var  zufall,a,b,c,d,  e, f,zahl,g,h, val,i:integer;     ://  Dieses e will ich nutzen in Unit 2
     sl: TStringList;

{$R *.dfm}					

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:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    Button1: TButton;
    edeinname: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var

  Form2: TForm2;

implementation

uses Unit1, Unit4;                   ://hier hab ichs jetzt definiert

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var
    name:string;
    Punktzahl:integer;



    begin

form4.show;


 form4.Memo1.Lines.loadfromfile('D:\Delphi\Text\Anzahl.txt');


 If e=1                      :// hier zeigts mir schon ein fehler an "Undefinierter Bezeichner"
 then e:=50;