Thema: Delphi Execute umgehen

Einzelnen Beitrag anzeigen

body2009

Registriert seit: 2. Apr 2009
20 Beiträge
 
#10

Re: Execute umgehen

  Alt 28. Apr 2009, 12:44
vorher wird die datenbak geladen
und hir im code soll er die daten die gefiltert wurden in der scrollbox ausgeben

Delphi-Quellcode:
RvNDRWriter1.Stream.Position := 0 ;
      RvNDRWriter1.FileName := '';
      RvProject1.Engine := nil;
      RvProject1.Close;
      RvProject1.Engine := RvNDRWriter1;
      RvProject1.Open;
      ShowMessage('wird Geladen');
      try
         RvProject1.Execute; // beim zweiten durchlauf springt er hier in except
         ShowMessage('ist geladen');
         RvProject1.Engine := nil;
         RvRe_Preview.Render(RvNDRWriter1.Stream); // daten werden in scrollbox
                                                   // angezeigt

      except
         on E: Exception do begin
         ShowMessage(e.Message); //Zugriffsverletzung bei Adresse 0056160B in
                                 //Modul'mod_0001.exe'.Lesen von Adresse 00000008
         end;
      end;

end;
  Mit Zitat antworten Zitat