Zugriffsverweigerung bei Tabellenaufruf

[Corny]

Hallo Leute,

ich kann eine während des Programmablaufs erzeugte Tabelle nach zweimaligem Gebrach nicht mehr ansprechen, um eine Operation auszuführen. Ich kann sie noch nicht mal deaktivieren. Sofort bricht das Programm ab mit der Meldung

"Zugriffsverletzung bei Adresse OO4C11AF. Lesen der Adresse 00000000 Prozess wurde angehalten."

Wie komme ich aus der Misere (ich muss die Tabelle wegen eines Iterationsprozesses immer wieder ansprechen und verändern können.)

Alle Einträge zu Zugriffsverletzung - die ich gefunden habe - haben mir nicht weitergeholfen.

Corny

[Luckie]

Tja, ohne etwas Code, was du machst, wird das hier nur ein heiteres Rumgerate werden.

[Corny]

Ich kann die Tabelle praktisch an jeder Stelle meines 3500 Zeilen umfassenden Programmes mit dem Aufruf Table.active := false aufrufen und erhalte die geschilderte Fehlermeldung.

6 Procedures greifen auf diese Tabelle zu und sind quasi über das ganze Programm verteilt.

Was soll ich - als Neuling noch unerfahren - jetzt einstellen?

[Avax2k]

bei dieser Fehlermeldung kann es alles mögliche sein..wobei als Übeltäter wohl der Code sein sollte, der einen Zugriff auf deine Tabelle ermöglicht..sprich über DataSet oder Query oder Connection..was anderes kann ich mir nicht vorstellen..hatte erst vor kurzem auch diesen Fehler bei falschem Ausführungscode im Query.

musst dann wohl oder übel erstmal all deine Tabellen-Verbindungs- Operationsfunktionen posten sonst kann man dir nicht helfen..

oder eben gleich das ganze Programm als Anhang, wenn da keine geschützten Daten drin sind.

[Bernhard Geyer]

Adresse 00000000 deutet eigentlich immer darauf hin das irgndwas nicht initalisiert wurde und ein nil-Pointer verwendet wird.

Aber ohne Code und defekter Glaskugel...

[Corny]

Vielen Dank für eure Antworten. Ich versuchs mal mit dem Text der procedure, in der es knallt:

Wäre super, wenn jemand etwas finden könnte!!!

Ich habe drangeschrieben, an welcher Stelle (11.Zeile von unten) er mir aussteigt und folgende Fehlermeldung ausgibt: Exception der Klasse EAccssViolation: Meldung: Zugriffsverletzung bei Adresse 004C189D in Modul [i]Programmname[\i].exe. Lesen von Adresse 00000000 Prozess wurde angehlaten.

Tabelle 20 wird vom Programm selber erstellt (createtable); würde helfen, wenn der Programmcode der Erzeugung dabei wäre?

Viele Grüße von Corny

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  lr,lz,lrs,lzf,indicat                           : Integer;
  label            100,110;
begin
  //***************************************************************
  OPT[1] := 1;
  OPT[2] := 1;
  OPT[3] := 1;
  GRRES[1] := 1;
  GRRES[2] := 1;
  GRRES[3] := 1;
  MATELSSL(Table7,Table8);
  //ALFA := 0.5;
  //EPSILON := 0.1;
  //**********************************************************************

  IUNGLZF := 0;
  KONVXZF(Table7);
  for lz := 1 to K do
  begin
    case OPT[lz] of
     1: KOMXMAX(Table1,lz);
     2: KOMXMIN(Table2,lz);
    end;                                                  //case
  end;
  IUNGL := 0;
  for lr := 1 to M do
  begin
    KONVXRS(lr);
    case NUMBEQ[lr] of
     1: KOEFRES1(Table2,lr);
     2: KOEFRES2(Table2,lr);
    end;                                                    //case
  end;
  DIFLOP(Table1,Table2);
  indicat := 1;
  if R = 1 then indicat := 2
  else
  if R > 1 then
  indicat := 3;
  case indicat of
    1: begin
        with Table5 do
        begin
         DataBaseName := 'TABFUZ';
         TableName := 'SIMPEIN'+IntToStr(K)+'B';
         TAB5CR(Table5);
         TB5FILL(Table5);
         TB5TST(Table5);
        end;
       end;
    2: begin
        with Table20 do
        begin
         DataBaseName := 'TABFUZ';
         TableName := 'SIMLMBDA';
         TAB20CR(Table20);
         TB20FILL(Table20);
         TB20TST(Table20);
        end;
        with Table21 do
        begin
         DataBaseName := 'TABFUZ';
         TableName := 'SIMPSHADOW';
         TAB21CR(Table21);
        end;
       end;
    3: begin
       with Table21 do
        begin
         Active := False; // !!!! HIER KNALLT`S !!!!!
         EmptyTable;
         TB21FILL(Table21);
         TB21TST(Table21);
        end;
        with Table20 do
        begin
         Active := False;
         EmptyTable;
        end;
       Batchmove1.Execute;
       end
     end;                              //case
  Table12.Active := True;
  Table12.Edit;
end;

end.

[Bernhard Geyer]

Auch wenns nichts zum Thema zu tun hat: Hast Du schon mal gehört das man Variablen "sprechende" Bezeichnungen gibt?
Aus der Name/Bezeichnung "Table21" kann man absolut nicht schließen was diese Tabelle beinhaltet.

Ich würde wetten das wenn du im Debugger eine Breakpoint auf die Zeile 70 setzt das die Variable Table21 nil ist.

[Corny]

Ja, du hast vollkommen recht! Ich hatte nil immer als Poynter für einzelne Größen, aber nie für Tabellen verstanden. Was fange ich jetzt mit dieser neuen Information an?

Sorry, ich bin noch nicht so lange dabei / mit dem Prgrammieren vertraut.

[Corny]

Achso, die Tabelle ist eine TTParadox-Tabelle, enthält numeriche und alpha-numerische Größen

[Bernhard Geyer]

Zitat von Corny:

Ja, du hast vollkommen recht! Ich hatte nil immer als Poynter für einzelne Größen, aber nie für Tabellen verstanden. Was fange ich jetzt mit dieser neuen Information an?

Wo in deinem Programm werden normalerweise die Tabellen angelegt? "Table21" wird nirgends angelegt bzw. irgendwo wieder freigegeben (z.B. Table21.Free).