dato = image

var
  d,m,y : integer;
...
  DecodeDate(Date,y,m,d);
  if d <> hulnummer then
    slemme dreng
  else
    åben lågen

God julekalender kodning ;-)

fejlmeddelse i
DecodeDate(Date,y,m,d);

types of actual and formal var parameters must be identical

d,m,y : word;

sorry ;-)

how... man kan ikke gi et billede's componentnavn en integer værdi, ellers kan jeg ikke få dit eksempel til at virke, ellers vil lågen aldrig åbnes.

billedet's componentnavn kan ikke ændres til f.eks 1

Nu ved jeg ikke hvordan du har kodet resten, så min kode var bare et eksempel på hvordan du bruger DecodeDate.

Men du kan f.eks. benytte Tag property? Men post lidt kode..

har tidligere prøvet at bruge tag og sat dato = tag, den videre kode er ikke skrevet for else, og den er ikke noget problem, problemet ligger i at når dato er = tag nr. bliver else ikke afviklet.

procedure TForm1.LaageClick(Sender: TObject);
var
  D, M, Y: Word;
  Hulnummer: Integer;
begin
  Hulnummer := (Sender as TImage).Tag;
  DecodeDate(Date, Y, M, D);
  if (D = Hulnummer) and (M = 12 {Det er vel en julekalender? En "sommerkalender" med 24 dage er vist ikke normal ;-) }) then
  begin
    (Sender as TImage).Visible := false; //Blot et eksempel...
  end
  else
    ShowMessage('Niks pille! Du må vente ...');
end;

hej athlon-pascal:

nu bliver else udført takker. ydermere en smart feature at lågen ikke kan åbnes i den 11 måned.
Jeg laver lige et spørgsmål på 30 point som tildeles dig

Men husk at lågerne altid kan åbnes ... man skal bare ændre computerens tid!

Måske ønsker du at man, hvis man ikke har tid til at åbne en låge en dag, kan åbne den nogle dage efter?
Her kan en låge åbnes på den dag der er sat i tag og resten af december:

procedure TForm1.LaageClick(Sender: TObject);
var
  D, M, Y: Word;
  Hulnummer: Integer;
begin
  Hulnummer := (Sender as TImage).Tag;
  DecodeDate(Date, Y, M, D);
  if (D >= Hulnummer) and (M = 12 {Det er vel en julekalender? En "sommerkalender" med 24 dage er vist ikke normal ;-) }) then
  begin
    (Sender as TImage).Visible := false; //Blot et eksempel...
  end
  else
    ShowMessage('Niks pille! Du må vente ...');
end;

der vil også være taget højde for at pc tid kan ændres ved at bruge "hardbreak"
fra et component Registdays. Her vil datoen blive logget ved installationen.

Hvis computeren som julekalenderen skal bruges fra altid er på internettet, så kan du jo hente datoen fra en tidsserver ...

jo..men man kan ikke gå ud fra at at alle har adgang 24 timer.

man kan også lave en intern tidskontrol, som bliver sat ved installation, og så kører videre derfra. Tror jeg ikke vil være svært at lave.

Kan man forvente at brugerens computer er tændt 24/7..?

Du har det samme problem som dem der laver shareware der kun virker i X dage efter installationen ... Jeg kender ikke noget der virker!