Moin moin,
ich habe eine Funktion geschrieben, die alle Tage in zwischen zwei DateTimePicker ausspuckt.
Die Tage möchte ich jetzt gerne alle in eine ListView einfügen und zwar in die Dritte Spalte.

Wie kann ich das machen?

Was ich schon weiß ist das:

markieren

Delphi-Quellcode:

Listview.Items.Item[0].Caption:='12.02.2009'; //Spalte1 Zeile1
Listview.Items.Item[0].SubItems.Add('12.02.2009');

Aber da wird ersten nur ein Datum von vielen eingefügt und nicht in die Dritte Spalte.

Danke im voraus

zusammenfalten · markieren

Delphi-Quellcode:

var Item: TListItem;
    i: integer;
begin
  for i := 1 to 10 do
    begin
      Item := Listview1.Items.Add;
      Item.Caption := '12.02.2009';
      Item.SubItems.Add('');
      Item.SubItems.Add('05.05.2009');
    end;
end;

Getippt und nicht getestet.

Kann man die SubItems nicht mit einem Index ansprechen:
Listview1.SubItems[2] := "2009-05-12";

Sofern sie vorhanden sind, könnte das auch so gehen (nicht ausprobiert):Listview1.Items[0].SubItems[2] := '01.01.2009';

@DeddyH
Danke genau das brauchte ich

He, moment, die eigentliche Idee stammt von mir.

Heul doch

Danke an Euch Beiden

Ich will jetzt die Tage mit den Tagen meiner DB vergleichen.
Die Tage die identisch sind sollen dann in die Listview rein.

Mein Ansatz:

zusammenfalten · markieren

Delphi-Quellcode:

var Days ,i,p: integer;
    Date : TDatetime;
    Dates : array of string;

var Item: TListItem;
    x: integer;
begin
  ///////////////////////////////////////////////////////////////////////////
  /// Definitionen der Variablen
  x := 0;
  fehltage_view.Clear;
  days:=(daysbetween(DateTimeVon.Datetime,DateTimeBis.Datetime ));
  date := DateTimeVon.Datetime;
  setlength(dates,days+1);
  for i := 0 to days do
  begin
    dates[i] := datetostr(date) ;
    date:= (incday(date, 1));
  end;

for p := 0 to days do
      begin
      x := x +1;
      ///////////////////////////////////////////////////////////////////////////
      /// DB Fehltage öffnen
      ADOQuery1.SQL.Text := 'SELECT * FROM `Fehltage` WHERE `Datum` = '''+Dates[p]+''';';
      ADOQuery1.Open;
      ///////////////////////////////////////////////////////////////////////////
      /// Werte der DB in ListView hinzufügen, wenn vorhanden.
      Item := Listview.Items.Add;
      Item.Caption := IntToStr(x) + '.';
      Item.SubItems.Add(ADOQuery1.FieldByName('Tag').Value);
      Item.SubItems.Add(ADOQuery1.FieldByName('Datum').Value);
      end;
 end;

So kommpt aber folgende Fehlermeldung wenn der eines der Tage im Array nicht in der DB vorhanden ist:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Valho_Student.exe ist eine Exception der Klasse EVariantTypeCastError mit der Meldung 'Variante des Typs (Null) konnte nicht in Typ (OleStr) konvertiert werden' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Du musst auch zuerst abfragen, ob Deine Datenmenge Sätze enthält.

markieren

Delphi-Quellcode:

ADOQuery1.Open;
if not ADOQuery1.EOF then
  begin
      ///////////////////////////////////////////////////////////////////////////
      /// Werte der DB in ListView hinzufügen, wenn vorhanden.
      Item := Listview.Items.Add;
      Item.Caption := IntToStr(x) + '.';
      Item.SubItems.Add(ADOQuery1.FieldByName('Tag').Value);
      Item.SubItems.Add(ADOQuery1.FieldByName('Datum').Value);
  end;

Super Vielen Dank