Zugriffsverletzung

[Geraldine83]

anbei der Quellcodeteil...

Bei SQL.Clear springt er raus...

Delphi-Quellcode:

with Q_RelAc do
               begin
                  SQL.Clear;
                  if fMain.IniWerte.LVSFile = '1' then
                  begin
                      Q_RelAc.SQL.Add('select ik, mnr, ktxt, uschl, usartklasse, usplatzgroesse, usmaxbest, gewicht, me, createdate '+
                              'from relac '+
                              'where '+
                              'uslvs = :p0');
                  end
                  else
                  if fMain.IniWerte.LVSFile = '3' then
                  begin
                      Q_RelAc.SQL.Add('select x.ik, a.mnr, a.ktxt, a.uschl, x.usartklasse, x.usplatzgroesse, x.usmaxbest, a.gewicht, a.me, a.createdate '+
                              'from relac a, relacx x '+
                              'where '+
                              'x.uslvs = :p0 '+
                              'and x.mnr = a.mnr');
                  end;
                  Params[0].AsInteger := lvsReady;
                  Open;
                  First;
                  while not EoF do
                     begin
                        //StartTimer('Vorbereitung für ASCII-Datei (Stammdaten)');
                        S := FormatDateTime('yyyymmddhhnnsszzz', Now);
                        F := Format(fnMMArtikel, [S]);
//                        Z := FieldByName('Ik').AsInteger;
                        Z := Fields[0].AsInteger;
                        //StopTimer;
                        //StartTimer('Schreiben der ASCII-Datei (Stammdaten)');
                        WriteDownloadFile2(
                           D[1] + F,                                // Dateiname
                           D[2] + F,                                // Dateiname für Sicherungskopie
                           Fields[1].AsString,
                           Fields[2].AsString,
                           Fields[3].AsString,
                           Fields[4].AsInteger,
                           Fields[5].AsInteger,
                           Fields[6].AsFloat,
                           Fields[7].AsFloat,
                           Fields[8].AsString);
// Geändert 09.07.2006 /EH wegen variablem SQL ac / Acx
//                           FieldByName('MNr').AsString,             // Artikel
//                           FieldByName('KTxt').AsString,            // Beschreibung 1
//                           FieldByName('Uschl').AsString,           // Beschreibung 2
//                           FieldByName('USArtKlasse').AsInteger,    // Artikelklasse
//                           FieldByName('USPlatzGroesse').AsInteger, // Platzgröße
//                           FieldByName('USMaxBest').AsFloat,        // Max. Bestand
//                           FieldByName('Gewicht').AsFloat,          // RefGewicht
//                           FieldByName('ME').AsString);             // Einheit
                        //StopTimer;
                        //StartTimer('Update RELAC (Status=0)');
                        UpdateStatusRELAC(Z, lvsOk);
                        //StopTimer;
                        Next;
                     end;
                  Close;
                  Free;