Delphi-PRAXiS - Delphi Fehler: zu wenig Arbeitsspeicher für Datenbank

Seite 1 von 4

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Datenbanken (https://www.delphipraxis.net/15-datenbanken/)

- - Delphi Fehler: zu wenig Arbeitsspeicher für Datenbank (https://www.delphipraxis.net/134244-fehler-zu-wenig-arbeitsspeicher-fuer-datenbank.html)

Fehler: zu wenig Arbeitsspeicher für Datenbank

Hallo nochmal an alle DP´ler,

Wusste jetzt nicht, in welche Sparte ich das Posten sollte, da ich eigentlich eine Komponente derzeit vorbereite, die eine Datenbank-Anbindung beinhaltet aber da ich derzeit nur bei der Implementierung der Datenbank stecke, habe ich für diese Sparte entschieden.

Also ich habe folgenden Code für meine Datenbank erstellt:

Delphi-Quellcode:

			unit TischDatenbank;

interface

uses Classes, Controls, DBTables, DB, DBCtrls, Dialogs, Graphics;

const DatenbankFile = 'Sensordatenbank.db';

Type TTischDatenbank = class(TWinControl)

  private

    FTable: TTable;

    FTBTableSensorname: TStringfield;

    FTBVersuchstabelleSpleisspositionrechts: TFloatField;

    FTBVersuchstabelleSpleisspositionlinks: TFloatField;

    FTBVersuchstabelleMantellaenge: TFloatField;

    FTBVersuchstabelleGap: TFloatField;

    FTBVersuchstabelleManteldurchmesser: TFloatField;

    FDataSource: TDataSource;

    FDBNavigator: TDBNavigator;

    FDBEdit: TDBEdit;

    function CreateTable: TTable;

    function CreateDataSource: TDataSource;

    function createDBNavigator: TDBNavigator;

    function createTDBEdit: TDBEdit;

  protected

    //procedure CreateWnd; override;

  published

  public

    constructor create(AOwner: TComponent);

end;

implementation

constructor TTischDatenbank.create(AOwner: TComponent);

begin

  inherited create(AOwner);

  Controlstyle := Controlstyle - [csAcceptsControls];

  Visible := true;

  Color := clBlack;

  Width := 300;

  Height := 300;

  FTable := CreateTable;

  //FDataSource := CreateDataSource;

  //FDBNavigator := CreateDBNavigator;

end;

function TTischDatenbank.CreateTable: TTable;

begin

  result := TTable.Create(nil);

  result.TableName := DatenbankFile;

  result.TableType := ttParadox;

  if not result.Exists then // <--- hier kommt der Fehler

    begin

      Showmessage('Die Datenbankdatei "Sensorendaten.db" konnte nicht gefunden werden');

      Enabled := false;

    end

  else result.Open; 

  {FTBTableSensorname := TStringField.create(nil);

  result.Fields.Add(FTBTableSensorname);

  {result.Fields.Add(FTBVersuchstabelleSpleisspositionrechts);

  result.Fields.Add(FTBVersuchstabelleSpleisspositionlinks);

  result.Fields.Add(FTBVersuchstabelleMantellaenge);

  result.Fields.Add(FTBVersuchstabelleGap);

  result.Fields.Add(FTBVersuchstabelleManteldurchmesser); }

  //result.CreateTable;

end;

function TTischDatenbank.CreateDataSource: TDataSource;

begin

  result := TDataSource.Create(nil);

  result.DataSet := FTable;

end;

function TTischDatenbank.createDBNavigator: TDBNavigator;

begin

  result := TDBNavigator.Create(nil);

  result.Parent := Self;

  result.DataSource := FDatasource;

  result.Left := 10;

  result.Top := 10;

  result.Width := 200;

  result.Height := 20;

end;

function TTischDatenbank.createTDBEdit: TDBEdit;

begin

  result := TDBEdit.Create(nil);

  result.Parent := Self;

  result.Enabled := true;

  result.DataSource := FDataSource;

  //result.DataSource.DataSet := FTable;

  result.DataField := FTBTableSensorname.FieldName;

  result.Left := 10;

  result.Top := 50;

  result.Width := 100;

  result.Height := 20;

end;

{procedure TTischDatenBank.CreateWnd;

begin

  //FDBEdit := CreateTDBEdit;

end;}

end.

Die db-Datei existiert und es hat auch bis ebend sehr gut funktioniert, bis auf einmal die Meldung in der gekennzeichneten Zeile kommt, dass zu wenig Arbeitsspeicher vorhanden ist. Habe alle Änderungen, welche ich seit der funktionierenden Version, rückgängig gemacht (glaube ich :-D ) trotzdem bleibt der Fehler.