StackOverflow beim kompilieren

[Snikch]

Hallo

ich versuche gerade eine kleine Datenbank für meine gesammelten Dreamcast Spiele zu programmieren.
Jedoch scheitert es an einem StackOverflow bei der ersten Testkompilierung...

Eigentlich habe ich bisher nichts besonderes gemacht.
Ich habe drei Datenbankmodule erstellt:

1. connection

Mein Verbindungstsring:

Code:

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\database\DcGC.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Der Quellcode:

Code:

unit connect;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tconnection = class(TDataModule)
    ADOConnection: TADOConnection;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  connection: Tconnection;

implementation

{$R *.dfm}

end.

Der Fehler kommt beim verbinden der ADO Tabellen:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt DcGC.exe ist eine Exception der Klasse EStackOverflow aufgetreten. Meldung: 'Stack-Überlauf'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

2. ADOTabellen

Alle Tabellen verbinden sich mit connection.ADOConnection und da hapert es auch schon.
Ich habe bisher keinen weiteren Code hinzugefügt....

Hat wer eine Idee?
Es wäre mir sehr hilfreich.

Ich versuche das ersten mal mit Datenbankmodulen klar zu kommen....

Dann meine zweite Frage:
Ich habe eine Checkbox, die Farbe der Schrift soll sich je nach Status ändern (checked rot, sonst grün).
Weiss aber nicht wie ich das machen soll ;)


Gruß
Snikch

[DeddyH]

Hallo,

bitte eine Frage pro Thread. Trotzdem mal zur 2. Frage:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
const Colors: array[Boolean] of TColor = (clGreen,clRed);
begin
  CheckBox1.Font.Color := Colors[CheckBox1.Checked];
end;

[edit] Willkommen in der DP :dp: [/edit]

[Snikch]

Aaah (haut sich an den Kopf) :wall:
Danke ;)

Ich werde das demnächst beachten (mit der einen Frage pro Thread), kommt nicht wieder vor.

Hat wer eine Antwort auf mein primäres Problem?

Danke

Gruß
Snikch

[shmia]

Kannst du nicht mit dem integrierten Debugger in der IDE im Einzelschritt (F8) durch den Sourcecode gehen, und so den Fehler auf eine bestimmte Funktion eingrenzen ?

[Snikch]

Tja, ich habe zwar den Einzelschritt ausgeführt, glaube aber kaum, dass es weiter hilft....

Code:

program DcGC;

uses
  Forms,
  main in 'main.pas' {FRM_Main},
  connect in 'connect.pas' {connection: TDataModule},
  table in 'table.pas' {ADOtable: TDataModule},
  sources in 'sources.pas' {DataSource: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFRM_Main, FRM_Main);
  Application.CreateForm(Tconnection, connection);
  Application.CreateForm(TADOtable, ADOtable);      <--
  Application.CreateForm(TDataSource, DataSource);
  Application.Run;
end.

wenn der Compiler die mit dem Pfeil markierte Zeile ausführt, kommt die Fehlermeldung.

Gruß
Snikch

[Nuclear-Ping]

Dann zeig doch auch mal den Code von table.pas

[thkerkmann]

BTW:
die Namensgebung ADOtable : tADOtable ist ganz unglücklich.

Es gibt unter ADO eine Komponente tADOtable. Vielleicht ist das schon die Ursache.
Benenn das Datenmodul mal lieber um.

Gruss

[Snikch]

Hallo Thomas,

Du hast Recht :bouncing4:

Ich bin aber auch zu blöde.... :wall: