DGL • Thema anzeigen - Problem mit Exception bei Beenden von Programm

Problem mit Exception bei Beenden von Programm

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

EnORItZ

Betreff des Beitrags: Problem mit Exception bei Beenden von Programm

Verfasst: Sa Dez 07, 2002 16:07

DGL Member

Registriert: So Jun 23, 2002 12:37
Beiträge: 144
Programmiersprache: C/C++, Delphi

Ich programmiere gerade ein Inventur Programm für meine Eltern....

Dafür hab ich einen WarengruppenEditor geschrieben wo man Warengruppen erstellen kann. So wenn ich die Warengruppe erstelle läuft noch alles ganz gut. Wenn ich dann aber das Programm beende kommt ne Exception. Ich hab die Objekte in eine Unit gepackt wo ich die Funktionen heraus aufrufen kann nur ich find da den Fehler nicht.

Hier nur der Code für die Objekte:

Code:

unit Objekteufunktionen;
 
interface
 
uses
 
 &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
 &nbsp;Dialogs, Menus, StdCtrls, ExtCtrls,IdTCPServer;
 
//////////{*Objekte*)//////////
 
 type TUnterwarengruppe = class
 
 &nbsp;Name: String;
 
 &nbsp;Tabellenname: String;
 
 end;
 
 type TWarengruppe = class
 
 &nbsp;Name: String;
 
 &nbsp;Listlink: Integer;
 
 &nbsp;Thread: Pointer;
 
 end;
 
//////////{*Objekte*}//////////
 
//////////{*Variablen*}//////////
 
var Warengruppenliste: TList;
 
 &nbsp; &nbsp; &nbsp;WarengruppenThread: TIdPeerthread;
 
//////////{*Variablen*}//////////
 
//////////{*Prozeduren und Funktionen*}//////////
 
 &nbsp; &nbsp;procedure ErstelleNeueWarengruppe(Name: String);
 
 &nbsp; &nbsp;procedure InitialisiereAlles;
 
 &nbsp; &nbsp;procedure DeinitialisiereAlles;
 
//////////{*Prozeduren und Funktionen*}//////////
 
implementation
 
uses Mainunit,WEdit;
 
procedure InitialisiereAlles;
 
begin
 
WarengruppenListe:=TList.Create;
 
Warengruppenthread:=TIdPeerThread.Create;
 
end;
 
procedure DeinitialisiereAlles;
 
begin
 
Warengruppenliste.Free;
 
WarengruppenThread.Free;
 
end;
 
procedure ErstelleNeueWarengruppe(Name: String);
 
var Warengruppe: TWarengruppe;
 
 &nbsp; &nbsp;i: Integer;
 
begin
 
 &nbsp;Warengruppe:=TWarengruppe.Create;
 
 &nbsp;Warengruppe.Name:=Name;
 
 &nbsp;Warengruppe.Thread:=WarengruppenThread;
 
 &nbsp;WEditor.Warengruppen.Items.Add(Warengruppe.Name);
 
 &nbsp;Warengruppenthread.Data:=Warengruppe;
 
 &nbsp;Warengruppenliste.Add(Warengruppe);
 
 &nbsp;Warengruppe.Free;
 
end;
 
end.

Ich hab da ein bisschen vom Beispiel für den Indy-Server genommen deswegen auch das TIdPeerthread damit ich meine Objekte wieder verändern kann.
Der rest is eigentlich egal ich hab nur noch in dem Editor im OnClose ereignis die Prozedur Deinitialisierealles und bei OnCreate InitialisiereAlles
reingepackt. und halt ein Button zum erstellen der Warengruppen.

_________________
--->ladida<---

Nach oben

EnORItZ

Betreff des Beitrags:

Verfasst: Sa Dez 07, 2002 18:27

DGL Member

Registriert: So Jun 23, 2002 12:37
Beiträge: 144
Programmiersprache: C/C++, Delphi

Ich hab nochwas rausgekriegt....

In der Prozedur "Erstelleneuewarengruppe()" ist ja die Zeile mit dem code hier:

Code:

Warengruppenthread.Data:=Warengruppe;

Wenn ich die Zeile auskommentiere kommt kein Fehler mehr beim Beenden. Kann man da was interessantes raus ziehen??

_________________
--->ladida<---

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.