ClientDataSet.CreateDataSet + Exception

[H.Bothur]

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;