Witam!
Mam moduł który ma wyswietlac imieniny np. Label1.Caption := Imieniny;
Ale dlaczego w tym module wywala mi błąd przy linijce : "function Imieniny : string; * Deklaracja funkcji wyswietlajacej imieniny". Całość wygląda tak:
unit Imieniny;
interface
uses SysUtils, StdCtrls;
function Imieniny : string; * Deklaracja funkcji wyswietlajacej imieniny
implementation
function Imieniny : string;
var
miesiac : integer;
dzien : integer;
const
Styczen : array[1..31] of string = ('Mieszka, Mieczysława',
'Izydora, Makarego', 'Danuty, Genowefy', 'Tytusa, Angeliki',
'Edwarda, Emiliana', 'Kacpra, Melchiora, Baltazara',
'Rajmunda, Lucjana', 'Mścisława, Seweryna', 'Marianny, Marceliny',
'Dobrosława, Wilhelma', 'Honoraty, Matyldy', 'Arkadiusza, Tatiany',
'Weroniki, Bogumiła', 'Feliksa, Niny', 'Arnolda, Pawła',
'Marcelego, Włodzimieża', 'Antoniego, Rościsława', 'Małgorzaty, Piotra',
'Henryka, Mariusza', 'Fabiana, Sebastiana', 'Agnieszki, Jarosława',
'Anastazego, Wincentego', 'Ildefonsa, Rajmunda', 'Felicji, Rafała',
'Miłosza, Pawła', 'Pauli, Tytusa', 'Anieli, Przybysława',
'Karola, Tomasza', 'Franciszka, Ździsława', 'Martyny, Macieja',
'Ludwiki, Jana');
begin
Dzien := StrToInt(FormatDateTime('Dzien', Now));
Miesiac := StrToInt(FormatDateTime('Miesiac', Now));
case miesiac of
1 : Result := Styczen[Dzien];
end;
end;
end.
POMÓŻCIE!!