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