Tablica i TCalendar

0

Witam.
Otóż chce wykorzystać TCalendar tak aby można było do niego dodawać notatki.

Zadeklarowałem rekord:

TNotatka = record
    Dzien: Integer;
    Miesiac: Integer;
    Tresc: String;

Oraz tablicę:

Tablica : array[0..100] of TNotatka; 

Zrobiłem to poprawnie? Nie potrzeba wielu wymiarów?

Chodzi mi o to żeby po kliknięciu na daną datę przeszukiwało tablicę w poszukiwaniu notatki. Żeby można było to zapisać do pliku tekstowego i wczytać wraz z uruchomieniem programu. Nie wiem też co zrobić żeby rekordy nie nadpisywały się po ponownym uruchomieniu.

0

Od do wyszukiwania zrobię chyba pętlę for, i jeśli dzień i miesiąc nie są równe z tym zaznaczonym w kalendarzu to do zmiennej doda jeden i będzie szukało kolejny rekord. Ale czy dobrze zadeklarowałem tablicę?

0
Griwenn napisał(a)

Zrobiłem to poprawnie? Nie potrzeba wielu wymiarów?

A potrzebujesz wiele wymiarów..? Nie wiem też po co rozdzielasz dzień i miesiąc na dwa pola (+ brak roku), nie wolałbyś zamiast tego:

TNotatka = record
    Dzien: Integer;
    Miesiac: Integer;
    Tresc: String;

wykorzystać to:

TNotatka = record
  Data: TDateTime;
  Tresc: String;
end;

? Dzięki temu każda notatka będzie miała kompletną datę;

Podczas wyboru daty z kalendarza przeszukujesz tablicę w dowolnej pętli (skoro masz statyczny jej rozmiar, to pętla For będzie najłatwiejsza) sprawdzając pobraną z kontrolki datę z datami z tablicy za pomocą np. SameDate lub CompareDate.

1 użytkowników online, w tym zalogowanych: 0, gości: 1