Hab versucht den zu versendenden Termin mit einer Progressbar auszustatten.
Statt einen Termin werden jetzt 3 Termine gleichzeitig verschickt.
Ich krieg ne Kriese.
Hab das Teil mal als Anhang beigelegt.Wurde mit XE2 erstellt.

Hallo,

müssten es nicht 101 Termine sein?

wenn man es besser einrückt, dann sieht man, dass 101 mal (0-100) ein Termin angelegt wird.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
var
  i : integer;
  Ordner: string;
  Calendar: TCalendar;
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := 100;

  for i := 0 to 100 do
  begin
    ProgressBar1.Position := i;
    Sleep(25);
    //Application.ProcessMessages;

    Ordner := 'Testordner';
    Calendar.Start := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Startzeit.DateTime);
    Calendar.Ende := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Endzeit.DateTime);
    Calendar.Categories := Kategorie.Text;
    Calendar.Subject := Betreff.Text;
    Calendar.Body := Beschreibung.Text;
    OutlookAddCalendar(Ordner,Calendar);
  end;
end;

Ja,Danke.

Aber mit drei Terminen musste ich den Code verschieben bzw.vertauschen.
Jetzt geht es wieder.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
var
  i : integer;
  Ordner: string;
  Calendar: TCalendar;
begin
    Ordner := 'Testordner';
    Calendar.Start := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Startzeit.DateTime);
    Calendar.Ende := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Endzeit.DateTime);
    Calendar.Categories := Kategorie.Text;
    Calendar.Subject := Betreff.Text;
    Calendar.Body := Beschreibung.Text;
    OutlookAddCalendar(Ordner,Calendar);
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := 100;

  for i := 0 to 100 do
  begin
    ProgressBar1.Position := i;
    Sleep(25);
    //Application.ProcessMessages;
end;
end;
end;
end.

Da fragt man sich aber nach dem Sinn der ProgressBar, da der Fortschritt so überhaupt nichts mit dem Kalender zu tun hat

du könntest es auch so machen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
var
  Ordner: String;
  Calendar: TCalendar;

begin
  //ProgressBar einstellen (oder im OI)
  ProgressBar1.Max := 100;
  ProgressBar1.Min := 0;
  ProgressBar1.Step := 25;

  //ProgressBar initialisieren
  ProgressBar1.Position := 0;

  //
  Ordner := 'Testordner';

  //Start
  Calendar.Start := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Startzeit.DateTime);
  ProgressBar1.StepIt;

  //Ende
  Calendar.Ende := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Endzeit.DateTime);
  ProgressBar1.StepIt;

  //Kategorie, Betreff, Text
  Calendar.Categories := Kategorie.Text;
  Calendar.Subject := Betreff.Text;
  Calendar.Body := Beschreibung.Text;
  ProgressBar1.StepIt;

  //Termin erstellen
  OutlookAddCalendar(Ordner,Calendar);
  ProgressBar1.StepIt;
end;

ProgressBar1.StepIt erhöht die ProgressBar um den Wert von ProgressBar1.Step

Ja, dass wollte ich als Frage im ersten Beitrag mitformulieren.Ist dann
während des Tippens untergegangen.
Dumm und Dümmer geht es immer...