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:

unit Unit1;

interface

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

type
  TPaint = class(TForm)
    PnlWerkzeug: TPanel;
    BitBtnFrei: TBitBtn;
    BitBtnPunkt: TBitBtn;
    procedure BitBtnPunktClick(Sender: TObject);
    procedure BitBtnFreiClick(Sender: TObject);
    procedure FormMouseDown (Sender: Tobject; Button: TMouseButton;
                             Shift: TShiftState; X,Y: Integer);
    procedure FormMouseUp (Sender: Tobject; Button: TMouseButton;
                             Shift: TShiftState; X,Y: Integer);
    procedure FormMouseMove (Sender: Tobject; Shift: TShiftState; X,Y: Integer);
  private
    { Private-Deklarationen }
  MausGedrueckt : Boolean;


  public
    { Public-Deklarationen }
  end;

var
  Paint: TPaint;


implementation

{$R *.dfm}



procedure TPaint.BitBtnPunktClick(Sender: TObject);
begin
 BitBtnPunkt.Enabled := False;
 BitBtnPunkt.Enabled := True;

end;

procedure TPaint.BitBtnFreiClick(Sender: TObject);
begin
 BitBtnFrei.Enabled := False;
 BitBtnFrei.Enabled := True;
end;

procedure TPaint.FormMouseDown (Sender:TObject; Button:TMouseButton;
                                Shift:TShifteState; X,Y:Integer);
begin
 MausGedrueckt := True;
 Canvas.MoveTo (X,Y);

begin
 if BitBtnFrei.Enabled = False
  then begin
  MausGedrueckt := True;
  Canvas.MoveTo (X,Y)
  end
  else
   Canvas.Ellipse (X-1,Y-1,X+1,Y+1)
end;

procedure TPaint.FormMouseMove (Sender:TObject; Shift:TShiftState; X,Y:integer);

begin
 if MausGedrueckt
  then Canvas.LineTo(X,Y)
end;

procedure TPaint.FormMouseUp (Sender:TObject; Button:TMouseButton;
                                Shift:TShifteState; X,Y:Integer);
begin
 MausGedrueckt := False
end;

end.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

[Fehler] Unit1.pas(59): Undefinierter Bezeichner: 'TShifteState'
[Fehler] Unit1.pas(59): Deklaration von 'FormMouseDown' unterscheidet sich von vorheriger Deklaration
[Fehler] Unit1.pas(61): Undefinierter Bezeichner: 'MausGedrueckt'
[Fehler] Unit1.pas(62): Undefinierter Bezeichner: 'Canvas'
[Fehler] Unit1.pas(65): Undefinierter Bezeichner: 'BitBtnFrei'
[Fehler] Unit1.pas(65): 'THEN' erwartet, aber Bezeichner 'Enabled' gefunden
[Fehler] Unit1.pas(68): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(71): ';' nicht erlaubt vor einem 'ELSE'
[Fehler] Unit1.pas(72): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(72): Nicht genügend wirkliche Parameter
[Fehler] Unit1.pas(75): Anweisung erwartet, aber 'PROCEDURE' gefunden
[Fehler] Unit1.pas(83): Deklaration von 'FormMouseUp' unterscheidet sich von vorheriger Deklaration
[Fehler] Unit1.pas(85): Undefinierter Bezeichner: 'MausGedrueckt'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

1:

[delphi]var Test: integer;[/delphi]

1:

var Test: integer;

1:

MeinBool := not MeinBool;