TMSFMXCalendar

FMX TMS FMX UI Pack
1

Hello,

I can add a event using TMSFMXCalendar1.Events.add.

If I use TMSFMXCalendar1.GetEventsByDate(ADate) I can see all events but how can I remove those event ? A working sample will be the best for me.



Thanks in advance,



Eric

2
var
  arr: TTMSFMXCalendarEventsArray;
  I: Integer;
begin
  arr := TMSFMXCalendar1.GetEventsByDate(Now);
  TMSFMXCalendar1.BeginUpdate;
  for I := 0 to Length(arr) - 1 do
    arr.Free;
  TMSFMXCalendar1.EndUpdate;

Kind Regards, 
Pieter
3

I have the following error :



E2018 Type Record, Object or Class required

for the line

arr.Free;



where Free is underlined.

4

here is my code :



procedure TForm1.TMSFMXCalendar1DaySelect(Sender: TObject; ADate: TDate);

var

evnt: TTMSFMXCalendarEvent;

lstevnt: TTMSFMXCalendarEventsArray;

Couleur: TAlphaColor;

Fichier, TextIni, Texte, Chemin: string;

i: Integer;

begin

if rb4.IsChecked then

begin

    lstevnt := TMSFMXCalendar1.GetEventsByDate(ADate);

    TMSFMXCalendar1.BeginUpdate;

    TMSFMXCalendar1.SelectedDay := -1;

    for i := 0 to Length(lstevnt)-1 do

      lstevnt.Free;     <--- ERROR 2018

    TMSFMXCalendar1.EndUpdate;

    with vacances

do

    begin

      Couleur := TAlphaColorRec.Null;

      Sorte := TTMSFMXCalendarDateEventKind.ekDiamond;

      Texte := '';

    end;

end

else

.....





Thanks in advance,



Eric

5

I have found the solution :



arr.free;



And it's working.



Thanks in advance

6

There was a type mistake in my code, please use

arr.Free; instead

Kind Regards, 
Pieter
7


arr.free

8


les crochets disparaissent. (I don't know the term in English)
9

brackets disappear ?

10

Yes, it seems like the brackets disappear, we are taking a look at it.

11

The "Enable BBcodes to format post" can be turned off to accomplish this


arr[I].free;

Kind Regards, 
Pieter