Einzelnen Beitrag anzeigen

Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Allgemeine Verständnisfrage (Feld durchsuchen)

  Alt 20. Jun 2007, 18:05
Datenbank: unbekannt • Zugriff über: unbekannt
Hallo DB-Profis,

ich habe eine allgemeine Verständnisfrage, vielleicht kann sie ja beantwortet werden.

Für eine Kalender-Componente benötige ich eine 'wie auch immer' Datenbankanbindung.
Also eine DataSource und ein DataField.

Das dazu gehörige Event DateChange sieht bisher so aus:
Delphi-Quellcode:
procedure TDBCalendarControl.DataChange(Sender: TObject);
var
  DT : TDateTime;
  Y1, Y2, M1, M2, D1, D2 : Word;
begin
  if FDataLink.Field <> nil then
  begin
    if IsDateTimeField then
      DT := Trunc(FDataLink.Field.AsDateTime)
    else
      DT := Trunc(FDataLink.Field.AsDateTime);

    DecodeDate(DT, Y1, M1, D1);
    DecodeDate(FDate, Y2, M2, D2);
    if (Y1 = Y2) and (M1 = M2) then FDates[D1] := DT;
    Invalidate;
  end;
end;
FDates ist ein Array of TDateTime und wird bei jedem Monatswechsel auf 31 gesetzt.
In der procedure Paint erfolgt dann die Auswertung.

Ein 'Fehler' hat diese Vorgehensweise jedoch; Ich kann nur den aktuellen Datensatz auslesen.

Wie müsste ich also vorgehen um alle in Frage kommenden Werte auszulesen, ohne
auf die DB speziell einzugehen?.


Gruss

Alter Mann
  Mit Zitat antworten Zitat