Type global definieren

[himitsu]

Hast es vieleicht an der Falschen Stelle eingefügt.

Hier 2 Möglichkeiten:

Delphi-Quellcode:

Unit Unit1;

Interface
  Uses ...

  Type TForm1 = Class(TForm)
      ...
      Procedure Button1Click(Sender: TObject);
    Private
      ...
    Public
      ...
    End;
  TZahlen1 = '0'..'9';

  Var Form1: TForm1;

Implementation
  {$R *.dfm}

  Type TZahlen2 = '0'..'9';

  Procedure TForm1.Button1Click(Sender: TObject);
    Begin
      ...
    End;

End.