Hi Leutz
Habe folgenden code:
Delphi-Quellcode:
//Database Connect
sqlst.connect_extdb(server,dbpwd,dbuser,dbname);
sl := TStringlist.Create;
sqlst.DoQuery(
query,sl);
//ID's der Geräte
while stringlist_count <= sl.Count
do begin
addtolog(1, '
Stringlist_count: '+inttostr(stringlist_count));
id := sl[stringlist_count];
vlx_Core.updatedb_archivflag(id);
stringlist_count := stringlist_count + 1;
end;
sl.Free;
folgendes steht in meinem LOG:
Code:
05.05.2011 09:03:26 [DEBUG] ---------------------------------
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 0
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 1
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 2
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 3
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 4
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 5
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count:
ich schätze mal das stringlist_count den sl.count überschreitet?! Dadurch stürzt mein Dienst immer ab!
Wie kann ich soetwas abfangen?!
LG