2 Frage: Unit und prozedure

[DeddyH]

Kleines Beispiel (eine fiktive Unit mit nützlichen Routinen):

Delphi-Quellcode:

unit MyNuetzlichRoutines; // :D

interface //Was in diesem Teil steht, ist "öffentlich" verfügbar

uses Windows;

procedure SagHallo;
function Verdopple(const i: integer): integer;

implementation //dieser Teil ist nur innerhalb dieser Unit sichtbar

procedure doppelt(var i: integer); (*diese Routine ist nicht bekannt gemacht und steht daher nur innerhalb der Unit zur Verfügung*)
begin
  i := i shl 1;
end;

procedure SagHallo;
begin
  MessageBox(0,'Hallo Welt',nil,0);
end;

function Verdopple(const i: integer): integer;
begin
  Result := i;
  doppelt(Result);
end;

end. //hatte ich vergessen