Habe eine DB in die alle 2 min Zeilen (Datum,Uhrzeit+Werte) geschrieben werden.
Öffne ich mein Programm erneut, soll diese DB fortgeführt werden,
ABER: Alles was dazwischen fehlt an Werten soll mit z.B. 'no' aufgefüllt werden. Wie mache ich das am besten?

Must du wohl manuell machen oder das Einfügen in einen Dienst auslagern. Es macht aber imho wenig Sinn, nicht vorhandene Werte als Dummies einzufügen

Das war mein Ansatz
t:TTable (meine DB)

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFiles.DatenlueckenFuellen;
var i: integer;
begin
  with t do
  begin
    t.Open;
    t.Last;
    if DaySpan (Date, StrToDate(t.Fields[0].Value)) <> 0 then
      if SecondsBetween(Time,StrToTime(t.Fields[1].Value)) > 15 then
      begin
        t.Append
        for i := 0 to t.IndexFieldCount - 1 do
        begin
          t.Fields[i].Value := 'no';
        end;
        t.Post;
      end;
    t.Close;
  end;
end;

Warum solltest Du soetwas tun wollen?

Der Wert ist ja immer "no" und folglich kannst Du ganz von alleine für jeden Zeitpunkt der zwischen Deinen Programmläufen liegt diesen Wert "errechnen".

Müll doch nicht die DB mit sowas zu...

Sherlock

Zitat:

Warum solltest Du soetwas tun wollen?

Ich soll es so machen.

Zitat:

Der Wert ist ja immer "no"

Warum immer?

Zitat von aaaaaaaaaa_10:

Zitat:

Warum solltest Du soetwas tun wollen?

Ich soll es so machen.

bei dem bei dir schon häufigen "ich soll es so machen", solltest du vielleicht mal überlegen, ebenfalls nachzufragen warum du das so machen sollst. Häufig wird dann klar, dass das eigentlich sinnfrei ist.

Zitat:

Zitat:

Der Wert ist ja immer "no"

Warum immer?

Weil du geschrieben hast, dass der Wert, wenn nicht mit Zeit gefüllt immer "no" ist...

und daher schließe ich mich meinen Vorrednern an, es macht keinen Sinn.


Gruß
Ansgar