Thema: Delphi Execute umgehen

Einzelnen Beitrag anzeigen

body2009

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

Execute umgehen

  Alt 27. Apr 2009, 17:23
Hallo ich habe ein Programm geschrieben was zwei datenbanken vergleicht nach diverence und mir diese daten dann in einer scrollbox wiedergibt.

Beim ersten Durchlauf funktionirt das auch ganz gut, aber beim zweiten Durchlauf springt er bei RvProject1.Execute; in except .


Delphi-Quellcode:
 RvNDRWriter1.Stream.Position := 0 ;
      RvNDRWriter1.FileName := '';
      RvProject1.Engine := nil;
      RvProject1.Close;
      RvProject1.Engine := RvNDRWriter1; //daten werden gezogen
      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('Fehler');
         end;
      end;

end;
was kann ich machen damit er beim zweiten durchlauf das problem umgeht??
  Mit Zitat antworten Zitat