Sorry - aber ich muss auf das Thema der
Exception noch einmal zurückkommen:
- Programm compiliert richtig
- Sobald es zum ClientDataSet.CreateDataSet kommt gibt es eine
Exception
- Ich habe Delphi (10.1 Starter) jetzt dreimal de- und neu installiert, ändert sich leider nur nichts.
- Es kann nur etwas mit der Installation, nichts mit dem Memory zu tun haben (Festplatten in zweiten, baugleichen Rechner gepackt)
- Auf dem Laptop geht alles
Hat jemand noch eine Idee die NICHT eine komplette Neuinstallation von Windows bedeutet ??
Gruß
Hans
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Mahnung.exe ist eine
Exception der Klasse $C0000005 mit der Meldung '
access violation at 0x00685913: read of address 0x00000000' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Der Aufruf-Stack sieht so aus:
:00685913 TCustomClientDataSet.InternalCheck + $4F
:0068496e TCustomClientDataSet.CreateDSBase + $3E
MahnUnit.TMahn.TabellenHeaderSetzen
MahnUnit.TMahn.FormActivate($2DE2E60)
:005e2395 TCustomForm.Activate + $2D
:00535152 TWinControl.WndProc + $5EE
:005df962 TCustomForm.WndProc + $652
Delphi-Quellcode:
procedure TMahn.TabellenHeaderSetzen;
begin
ClientDataSet_OPListe.Active := False;
ClientDataSet_OPListe.FieldDefs.Clear;
ClientDataSet_OPListe.FieldDefs.Add('KundenNummer', ftString, 5);
ClientDataSet_OPListe.FieldDefs.Add('KundeKurz', ftString, 30);
ClientDataSet_OPListe.FieldDefs.Add('RechnungNr', ftString, 10);
ClientDataSet_OPListe.FieldDefs.Add('RechnungsDatum', ftString, 10);
ClientDataSet_OPListe.FieldDefs.Add('FaelligDatum', ftString, 10);
ClientDataSet_OPListe.FieldDefs.Add('Betrag', ftString, 10);
ClientDataSet_OPListe.FieldDefs.Add('FaelligTage', ftString, 4);
ClientDataSet_OPListe.FieldDefs.Add('MahnStufe', ftString, 1);
ClientDataSet_OPListe.FieldDefs.Add('Mahnen', ftString, 1);
ClientDataSet_OPListe.FieldDefs.Add('Firma1', ftString, 30);
ClientDataSet_OPListe.FieldDefs.Add('Firma2', ftString, 30);
ClientDataSet_OPListe.FieldDefs.Add('Strasse', ftString, 30);
ClientDataSet_OPListe.FieldDefs.Add('Land', ftString, 2);
ClientDataSet_OPListe.FieldDefs.Add('PLZ', ftString, 5);
ClientDataSet_OPListe.FieldDefs.Add('Ort', ftString, 30);
ClientDataSet_OPListe.FieldDefs.Add('Telefax', ftString, 30);
ClientDataSet_OPListe.FieldDefs.Add('Email', ftString, 90);
ClientDataSet_OPListe.FieldDefs.Add('Vertreter', ftString, 50);
ClientDataSet_OPListe.FieldDefs.Add('RnEmail', ftString, 90);
ClientDataSet_OPListe.CreateDataSet;
ClientDataSet_OPListe.Active := True;
end;