Stimmt die Idee mit dem schätzen ist auch nicht schlecht, da ich ja ungefähr weiß was normal als Ergebnis rauskommt.
Da es mit dem kopieren des Objektes aber leider nicht funktioniniert(das werd ich mir demnächst nochmal genauer anschauen), hab ich jetzt alles umgestellt und speichere die Einträge in einer Stringliste, deshalb fällt das dynamische Array wie auch der Zähler erstmal weg.
@Motzi
Danke für den Tip, hab ich gerade gemacht
.
Delphi-Quellcode:
var
i, j : Integer;
objsuch : TTermine;
objids : TStrings;
begin
objids := TStringList.Create;
InitTermine(True); // aktualisieren der TermineListe
for i := 0 to TermineListe.Count -1 do
begin
objsuch := TTermine(TermineListe.Objects[i]);
if (objsuch.SettWert = auft.SettWert) and
(objsuch.Notitz = auft.Notitz) then
begin
objsuch.LW := True; // Zugriff auf Datensatz für andere User sperren
objsuch.Speichern;
ObjIDs.AddObject(objsuch.ID, objsuch); // speichern der ID und des Objektes
end;
end;