Ich versuche mit der u.a. Pascal-function in die Datenbank Fronius den aktuellen Wert als letzten Eintrag zu schreiben und danach den ersten zu löschen, wenn mehr als 4 Datensätze geschrieben wurden. (Last in first out)
Solange die Datenbank unter 5 Einträge hat, werden die Werte stets angehängt.
Sobald ich die erste Zeile einmal gelöscht habe, wird diese immer wieder beschrieben.
ich verstehe nicht weshalb, da ich stets zuvor zum letzten Datensatz gehe und ein append bzw. insert anweise.
Weder append, noch insert funktioniert richtig.
Es handelt sich um eine componentACE Datenbank, programmieren tue ich unter Delphi 5
lg
Rupert
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
|
with Datentabellen.Fronius do
Begin
Label1.caption:= inttostr(recordcount); Label1.refresh;
last;
Insert;
FieldByName('E_Day').AsFloat:=FRONIUS_Daten[1];
FieldByName('E_Total').AsFloat:=FRONIUS_Daten[2];
FieldByName('E_Year').AsFloat:=FRONIUS_Daten[3];
FieldByName('P_Grid').AsFloat:=FRONIUS_Daten[4];
FieldByName('P_Load').AsFloat:=FRONIUS_Daten[5];
FieldByName('P_PV').AsFloat:=FRONIUS_Daten[6];
FieldByName('P_AC_Total').AsFloat:=FRONIUS_Daten[7];
FieldByName('Temperature').AsFloat:=FRONIUS_Daten[8];
post;
if recordcount >= 5 then begin
first;
delete;
end;
end;
|
Moderiert von 
Narses: Code- durch Delphi-Tags ersetzt
Moderiert von Th69: Rechtschreibfehler im Titel geändert.
