Paradox7 Tabelle (Neuen Datensatz anlegen, aber fehlermeldu)

[Christian18]

Hallo,

Ich habe eine Paradox7 Tabelle. Jetzt wollte ich einen neuen Datensatz anlegen, aber ich bekomme ein fehlermeldung.

[Fehler]

Zugriffsverletzung bei Adresse 0041676D in Modul 'SLNPrxis.exe'. Lesen von Adresse 00000000.

[/Fehler]

Weiß jemand was das ist oder woran das leigen kann.

Sicherheitshalber sende ich Euch mal den Code

Delphi-Quellcode:

unit mutipleChoice_Vorlage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, DBCtrls, Grids, DBGrids, ExtCtrls;

type
  TFMC_Vorlage = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    DBRichEdit1: TDBRichEdit;
    pannel: TPanel;
    BPNeu: TButton;
    BPEdit: TButton;
    BPSuche: TButton;
    BPClear: TButton;
    procedure BPNeuClick(Sender: TObject);
    procedure BPEditClick(Sender: TObject);
    procedure BPClearClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  FMC_Vorlage: TFMC_Vorlage;

implementation

uses eingabe_MC_Gruppe, mutipleChoice_V_Fragen, UMain, UDM;

{$R *.DFM}

procedure TFMC_Vorlage.BPNeuClick(Sender: TObject);
begin
     DM.TMCG.append;
     FEingabe_MCG.showmodal;
end;

procedure TFMC_Vorlage.BPEditClick(Sender: TObject);
begin
     if DM.TMCG.eof and DM.TMCG.bof then exit;
     DM.TMCG.edit;
     FEingabe_MCG.showmodal;
end;

procedure TFMC_Vorlage.BPClearClick(Sender: TObject);
begin
     if DM.TMCG.RecordCount>0 then
      if messagedlg('Wollen Sie wirklich diese Gruppe löschen ?',mtwarning,[mbyes,mbno],0)=mryes then
      begin
           DM.TMCF.first;
           while not DM.TMCF.Eof do
           begin
                DM.TMCA.First;
                while not DM.TMCA.Eof do DM.TMCA.delete;
                DM.TMCF.delete;
           end;
           DM.TMCG.delete;
      end;
end;

procedure TFMC_Vorlage.DBGrid1DblClick(Sender: TObject);
begin
     FMCVorlageFragen.showmodal;
end;

procedure TFMC_Vorlage.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (Key=13) and (Shift=[]) then FMCVorlageFragen.showmodal;
end;

end.

[Christian18]

Hallo,

Ich bin es nochmal ist das Problem so schwer oder zu leicht. Warum schreibt denn keiner rein hier???

[Robert_G]

Wird FEingabe_MCG in der .dpr (Menu\Project\Source) schon erzeugt?
Wenn nicht musst du es erst erzeugen, bevor do es anzeigen kannst.
Das Gleiche beim Datenmodul.
Nachtrag: nach 21 Minuten musst du moch nicht rumheulen, wenn noch keiner geantwortet hat.

[Christian18]

Ich kenne mich mit Delphi Datenbank Programmierung noch nicht so gut aus. Was soll erzeugt werden????? Und wo muß ich was machen

[Robert_G]

FEingabe_MCG ist ein Form. Damit du das anzeigen kannst muss es erst erzeugt werden.
Schaue doch einfach mal in die .dpr-Datei deines Projektes und probiere selbst etwas rum.

Es hilft dir nix, wenn du bei jedem Kieselchen, über das du stolperst, erstmal fragst wie du dran vorbeikommst.
Erst wenn man durch Rumprobieren nicht mehr weiterkommt (und das ist nicht nach 4 Minuten!) lohnt es sich zu fragen.
Auf dem Weg zu der speziellen Lösung findet man doch fast immer andere Dinge heraus, auf die man sonst nicht gekommen wäre.