Deklarierung einer "function"

[Matze]

Hallo

Schau in die Open-Source SParte und siehe dier Quelltexte an.

Hier mal ein kleines Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    // Hier wäre es so "richtig" global deklariert
    // Aufrufen könntest du hier deklarierte Funktionen einfach über ihren Namen
    // und das in jeder Unit, die diese Unit hier eingebunden hat

  private
    { Private-Deklarationen }

    // Nur in dieser Unit sichtbar
    // Man muss sie hier nicht deklarieren, wenn du die Funktion über denen
    // implementiert, die diese Aufrufen
    procedure Foo(A: Integer);
    function Blubb(A: String): Integer;

  public
    { Public-Deklarationen }

    // im ganzen Programm sichtbar
    // Aufruf über
    // Form1.xyz
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Prozedur
procedure TForm1.Foo(A: Integer);
begin
  ShowMessage(IntToSTr(A));
end;

// Funktion
function TForm1.Blubb (A: String): Integer;
begin
  result := Length(A);
end;

end.