Compilerfehler wo?

[Perlsau]

@wonkos2:

Du hast doch keine Klasse oder was Entsprechendes deklariert. Dann gibt's auch kein Private oder Public, und eben auch kein end nach einem Type. Wirf also mal das Public und das End vor Implementation raus, und schon läuft's. In einer "normalen" klassenlosen Unit sind alle Funktionen und Variablen public, wenn sie im Interface-Teil stehen.

Wenn du dagegen eine Klasse erzeugst, ist das was ganz anderes:

Delphi-Quellcode:

UNIT DatBankEdit;

INTERFACE

USES
  SysUtils, Controls, Dialogs;

TYPE
 TDatBankEdit = Class

  PRIVATE
   Var
     MyTestVar : String;

   Function  GetNewZugangIndex : Integer;
   Function  KeyErzeugen       : Integer;
   Procedure Sperrhinweis;

  PUBLIC
   Var
     Fehlermeldung : String;

   Constructor Create();
   Destructor  Destroy; override;

   Function Zugang_Neu       : Boolean;
   Function Zugang_Del       : Boolean;
   Function Zugang_Edit      : Boolean;
   Function Zugang_Post      : Boolean;
   Function Zugang_Cancel    : Boolean;

   Procedure Zugang_Sort(Spalte : Integer; Feld : String);

   Function ZgArt_Neu        : Boolean;
   Function ZgArt_Del        : Boolean;
   Function ZgArt_Edit       : Boolean;
   Function ZgArt_Post       : Boolean;
   Function ZgArt_Cancel     : Boolean;

  END;

IMPLEMENTATION