Funktion in DLL auslagern

[Hobby-Programmierer]

Nabend ...,

Zitat von Christian18:

Delphi-Quellcode:

  // 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;

  // 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;

Zumindest würde ich obiges ersetzen ->

Delphi-Quellcode:

var LongDayNames: array[1..7] of string;
var LongMonthNames: array[1..12] of string;

LG Mario