Funktion in DLL auslagern

[Christian18]

Hallo,

wunsch eines Bekannten ist es eine Function in eine DLL auszulagern. Da ich dies noch nie gemacht habe, habe ich dazu ein paar Fragen. Mit hilfer der Delphi Hilfe habe ich mir folgende DLL zusammengebastelt.

Hier meine DLL:

Delphi-Quellcode:

library Project1;

uses
  SysUtils, Classes, Controls;

{$R *.res}

function Datum(datum : TDate) : String;
  var y : Word;    // Jahr
      m : Word;    // Monat
      d : Word;    // Tag
      r : String;  // Rückgabe Wert
begin
  // Wochentag ermitteln
  case DayOfWeek(datum) of
    1 : r:='Sonntag, ';
    2 : r:='Montag, ';
    3 : r:='Dienstag, ';
    4 : r:='Mittwoch, ';
    5 : r:='Donnerstag, ';
    6 : r:='Freitag, ';
    7 : r:='Samstag, ';
  end;

  // Tag ermitteln
  DecodeDate(datum, y, m, d);
  r:=r + IntToStr(d) + '. ';

  // Monat ermitteln
  case m of
    1  : r:=r + 'Januar ';
    2  : r:=r + 'Februar ';
    3  : r:=r + 'März ';
    4  : r:=r + 'April ';
    5  : r:=r + 'Mai ';
    6  : r:=r + 'Juni ';
    7  : r:=r + 'Juli ';
    8  : r:=r + 'August ';
    9  : r:=r + 'September ';
    10 : r:=r + 'Obtober ';
    11 : r:=r + 'November ';
    12 : r:=r + 'Dezember ';
  end;

  // Jahr ermitteln
  r:=r + IntToStr(y);

  // Wert zurückgeben
  Result:=r;
end;

begin

end.

Wie kann ich die DLL jetzt in mein bestehendes Projekt einbinden und die Funktion aufrufen. Achso ein Parameter muß an die Funktion auch noch übergeben werden.

MFG Christian