Programm mit SQLite bricht mit SIGABRT ab

[cuchulainn]

Hallo alle zusammen,

ich stehe vor folgendem Problem: Mein Programm bricht mit der folgenden Meldung ab: "Project raised expection class: External SIGABRT", wenn ich das Fenster schließen und das Programm somit beenden möchte.

Der Quelltext ist noch nicht besonders groß und besteht nur aus folgender Prozedur:

Code: Alles auswählen

procedure TMainForm.Button1Click(Sender: TObject);
var dbCardbox : TSqlite3DataSet;
begin
     dbTest := TSqlite3Dataset.Create(nil);
 
     with dbTest do
     begin
          FileName := testdb.db';
          TableName := 'testtabelle';
 
          if not FileExists(FileName) then
          begin
               with FieldDefs do
               begin
                    Clear;
                    add('testfeld', ftInteger, 0, false);
               end;
          end;
 
     end;
end;

Der Fehler tritt erst auf, seit ich diese Prozedur geschrieben habe. Interessanterweise kann ich das Problem nicht beheben, indem ich den Inhalt dieser Prozedur auskommentiere. Hat jemand eine Idee, woran das liegen könnte?

[theo]

Also so wird's wohl kaum kompilieren mit
FileName := testdb.db';
Da fehlt ein Stringzeichen.

Und dann würde ich dir raten mit diesen "with" aufzuräumen.
Das ist die dümmste Erfindung in Object Pascal und führt oft zu rätselhaften Ergebnissen.