Compilieren: 0 Fehler / Run: Exception Fehler

[mkmk]

Guten Tag allerseits

Seit ca. einem halben Jahr versuche ich von Vfp auf Delphi umzusatteln. Wegen Zeitmangel geht es nur schleppend vor sich.
Zu Testzwecken hatte ich mir eine Form gebastelt, mit der ich mich via ComPort zu einem Geraet verbinde und es steuere. Hat auch ganz gut geklappt.
Um weiter in die Materie mich zu vertiefen, begann ich dann, einzelne Funktionen in externe Units auszulagern. Und da habe ich Probleme.
Ich habe mein Project bis auf das Allernotwendigste zusammengekürzt. Könnt Ihr bitte einen Blick darauf werfen und mir sagen, wo ich den Bock abgeschossen haben.

Herzlichen Dank im voraus.


Edit: Sorry, habe die Datei 2x abgeschickt. Kann der Administrator eines bitte löschen

[nahpets]

Hallo und herzlich willkommen,

setze Dir mal 'nen Breakpoint auf die erste im Programm ausgeführte Anweisung und führe das Programm im Debugger aus. Wenn der Debugger dann dort stehenbleibt: Im Menü "Suchen" solltest Du den Eintrag "Laufzeitfehler suchen..." finden. Rufe diesen auf und gib' dort die in der Fehlermeldung angegebene Adresse 3eaf ein. Dir sollte dann die Programmstelle angezeigt werden, an der der Fehler auftritt.
Da ich nur Delphi 7 habe und mir die von Dir genutzen Komponenten nicht alle vorliegen, kann ich Dir keine genaueren Angabe zur Fehlerstelle machen.

[mkmk]

@nahpets

Habe Deine Anweisungen befolgt, aber soweit komme ich (glaube ich) erst gar nicht. Ich habe in FormCreate einen Breakpoint gesetzt. Aber ich glaube, das Fehler-Fenster erscheint, bevor ich dort lande. Siehe bild_1.gif
Wenn ich dann Break drücke und Deinen Anweisungen entsprechen zur Adresse 3EAF gehe, krieg ich die Meldung "E2053 Syntax error in real number". Verwende aber nirgends irgendwelche Realzahlen.

Ich habe jetzt das Projekt noch weiter zusammengestrichen, so dass keine Extra-Komponenten mehr verwendet werden.

[sirius]

in der ComPorts_poo.pas musst du folgendes ändern:

Delphi-Quellcode:

initialization
begin
  MyComPort:=TMyComPort.Create();
end;

[nahpets]

Hallo,

setze mal 'ne Breakpoint in der comport_pool.pas unten auf MyComPort.Create();
Dann kannst Du die Fehleradresse suchen, ich lande im CPU-Fenster mitten im TObject.free.
Vermute den Fehler irgendwo in der comport_pool.pas.

Wo bitte ist denn das Create von TMyComPort definiert? Fehlt da irgendwas, habe es jedenfalls nicht gefunden.
Würde es mal mit MyComPort:=TMyComPort.Create(); versuchen.

Ok, Sirius hat den Fehler wohl schon entdeckt!

[mkmk]

Hmmm, richtig. Eine Klasse deklaration ist nicht gleich diese erschaffen. Danke.

Also ich habe jetzt den Breakpoint gleich bei

Delphi-Quellcode:

initialization
begin
  MyComPort:=TMyComPort.Create();
end;

eingetragen. Inder Tat konnte ich bis dorthin kommen. Step by step ging ich dann weiter, bis es dann bei prj_usbkamera.dproj krachte; und zwar hier ...

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;  <=== hier <====
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Die Fehlermeldung ist bild_2.gif

Danke für die Hilfe

[nahpets]

Hallo,

meine Delphiversion kennt diese Eigenschaft noch nicht, so dass ich sie vor dem Kompilieren rauswerfen muss.
Wenn Du nun mal die neue Fehleradresse suchst, bevor Du dort vorbeikommst, wo landest Du dann? Gibt's da irgendeinen Hinweis auf eine mögliche Ursache?
Ansonsten: Zeile auskommentieren und weiterprobieren.
Muss die Zeile eventuell hinter das Application.CreateForm(TForm1, Form1), schließlich gibt es das Formular zu dem Zeitpunkt noch nicht.

[sirius]

Jetzt weis ich nicht, wie dein Programm weiter aufgebaut ist. Aber in der einen Unit hast du nochmal Application deklariert. Da war mir vorhin schon nicht bewusst, was das ist.
Application darf nur einmal im Projekt (ich glaub in Unit Forms) existieren.

[mkmk]

@sirius

Danke, das war's!! Uff, herzlichen Dank. Und auch Dir nahpets.