Outlook auf einem 2 Kalender Termine eintragen.

[Chemiker]

Hallo,
die THPLKalenderItem – Class hatte ich wohl vergessen mit anzugeben. Ich habe sie mal auf das wesentliche gekürzt:

Delphi-Quellcode:

type
   THPLKalenderItem= Class(TObject)
   private
     FKalenderID: String;
     FKalenderStoreID: String;
     FKalenderName: String;
     FKalenderParent: String;
     FKalenderAnzahl: integer;

     function GetFKalenderAnzahl: integer;
     function GetFKalenderID: String;
     function GetFKalenderName: String;
     function GetFKalenderParent: String;
     procedure SetFKalenderAnzahl(const Value: integer);
     procedure SetFKalenderID(const Value: String);
     procedure SetFKalenderName(const Value: String);
     procedure SetFKalenderParent(const Value: String);
     function GetFKalenderStoreID: String;
     procedure SetFKalenderStoreID(const Value: String);
   public
     property KalenderID: String read GetFKalenderID write SetFKalenderID;
     property KalenderName: String read GetFKalenderName write SetFKalenderName;
     property KalenderParent: String read GetFKalenderParent
       write SetFKalenderParent;
     property KalenderAnzahl: integer read GetFKalenderAnzahl
       write SetFKalenderAnzahl;
     property KalenderStoreID: String read GetFKalenderStoreID
       write SetFKalenderStoreID;
   end;

{ THPLKalenderItem }

function THPLKalenderItem.GetFKalenderAnzahl: integer;
begin
  result:= FKalenderAnzahl;
end;

function THPLKalenderItem.GetFKalenderID: String;
begin
  result:= FKalenderID;
end;

function THPLKalenderItem.GetFKalenderName: String;
begin
  result:= FKalenderName;
end;

function THPLKalenderItem.GetFKalenderParent: String;
begin
  result:= FKalenderParent;
end;

function THPLKalenderItem.GetFKalenderStoreID: String;
begin
  result:= FKalenderStoreID;
end;

procedure THPLKalenderItem.SetFKalenderAnzahl(const Value: integer);
begin
  if Value<>FKalenderAnzahl then
  begin
    FKalenderAnzahl:= Value;
  end;
end;

procedure THPLKalenderItem.SetFKalenderID(const Value: String);
begin
  if Value<>FKalenderID then
  begin
    FKalenderID:= Value;
  end;
end;

procedure THPLKalenderItem.SetFKalenderName(const Value: String);
begin
  if Value<>FKalenderName then
  begin
    FKalenderName:= Value;
  end;
end;

procedure THPLKalenderItem.SetFKalenderParent(const Value: String);
begin
  if Value<>FKalenderParent then
  begin
    FKalenderParent:= Value;
  end;
end;

procedure THPLKalenderItem.SetFKalenderStoreID(const Value: String);
begin
   if Value<>FKalenderStoreID then
  begin
    FKalenderStoreID:= Value;
  end
end;

Bis bald Chemiker