Compilerfehler wo?

[wonkos2]

Frohes neues Jahr allerseits!

Ich bitte um Eure Mithilfe bei einem Kompilerfehler eines kleine Programmschnipsels in der XE3, den ich heute partout nicht erkennen kann. Ich habe folgenden Code erstellt in einer einfachen Unit:

Delphi-Quellcode:

unit MyFunctionsUnit;

interface

uses
  System.SysUtils;
        
type

  NumInStr = array [0 .. numsize] of WideChar;
  NumOutStr = array of WideChar;

public

  function MySplit(input: UnicodeString): NumInStr;
  //function MyConcat(output: NumInStr): UnicodeString;
  //function ArrayToString(const a: NumOutStr): UnicodeString;

end;

implementation

end.

Der Compiler meldet dazu ein "Erwartet: '=', aber FUNCTION erhalten in Zeile 15 (15:3)". Hat jemand eine Idee, wo ich den Fehler suchen muß? In Zeile 15 kann ich ihn nicht entdecken.

Freundliche Grüße,

wonkos2

[jfheins]

Was soll der Programmschnipsel denn tun? Code ist da ja jetzt erst mal keiner.

Ich nehme mal an, du wolltest eigentlich etwas wie "Ungenügende Forward-Deklaration" sehen?

[Der schöne Günther]

Das public (und das end vor implementation) macht keinen Sinn

[himitsu]

In Zeile 15 entdecke ich aber mindesten zwei ":".

Und was hat da public und end; zu suchen?


[edit] zu langsam

[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

[wonkos2]

Herzlichen Dank für Eure Hilfe, so bin ich ein Stück weiter gekommen!