Registriert seit: 16. Okt 2019
28 Beiträge
FreePascal / Lazarus
|
SIGSEGV / Stack-Overflow beim Öffnen einer TDBF
21. Dez 2020, 13:50
Datenbank: dBase • Version: IV • Zugriff über: TDBF
Nach dem Aufruf eines neuen Formulars und dem Öffnen einer DBF in diesem neuen Formular erscheint immer ein Fehler SISEGV in Lazarus und ein Stack-Overflow bei der Ausführung der Anwendung außerhalb von Lazarus.
Das Ganze läuft unter Win 10.
Identische Aufrufe von 2 anderen Formularen erzeugen keine Fehler.
Woran kann das liegen?
-------------------------------------------------------------------
Aufruf aus Formular TF_Menu:
procedure TF_Menu.Men_ModulesClick(Sender: TObject);
begin
MModulNr := Module.Fields.FieldByName('NR').Value;
Module.close;
F_Menu.Visible := false; // Aufrufende Form auf unsichtbar
F_Modules := TF_Modules.Create(Nil); // Neue Form wird erstellt
F_Modules.ShowModal; // Neue Form wird angezeigt
FreeAndNil(F_Modules); // Neue Form wieder freigeben
F_Menu.Visible := true;
// usw. …
end;
Neues Formular TF_Modules mit dem Fehler bei Module.Open:
procedure TF_Modules.FormCreate(Sender: TObject);
begin
Module.FilePathFull := Modules_Lw;
Module.ReadOnly := false;
Module.Open; // Hier entsteht der Fehler
Module.IndexName := 'NR';
end;
Manfred
|