Interner Fehler URW6736

[dataspider]

Hi,

ich bekomme beim Compilieren den Fehler siehe Titel und Anhang.
Ich habe die relevanten Routinen in ein kleines Testprojekt gepackt.

Hier meine Bitte:

Könnte jemand mit XE6 testen, ob der Fehler dort evtl. nicht mehr auftritt?

Ich habe momentan XE4 mit Update 1.

Erzeugen geht, Compilieren nur 1 Mal, dann bleibt der Fehler.

Erzeugt wird der Fehler in der Zeile:
  Connection.Notifyer.AddListener(Self, ObserverNotify, []); im MainForm.

Vielen Dank

Frank

[Uwe Raabe]

Du solltest vielleicht erwähnen, daß man dazu IBObjects installiert haben muss.

[dataspider]

Zitat von Uwe Raabe:

Du solltest vielleicht erwähnen, daß man dazu IBObjects installiert haben muss.

Sorry, ich dachte, ich hätte alles erwischt.
Es reicht aber, 1 x IB_Components aus der Uses - Liste zu entfernen.
Aber ich bereinige das und lad noch mal hoch.


Frank

[dataspider]

neue Observer.zip ohne IBO im ersten Post...

Sorry und vielen Dank

Frank

[Uwe Raabe]

Ich kann unter XE6 problemlos mehrmals compilieren. Da du aber keine dproj-Datei beigelegt hast, kann es sein, daß ich mit anderen Einstellungen arbeite.

[dataspider]

Zitat von Uwe Raabe:

Ich kann unter XE6 problemlos mehrmals compilieren. Da du aber keine dproj-Datei beigelegt hast, kann es sein, daß ich mit anderen Einstellungen arbeite.

Vielen Dank. Ich habe das ZIP noch mal hochgeladen mit ObserverTest.dproj.

Kann evtl. jemand mit XE4 das Verhalten mit der Fehlermeldung bestätigen?

Danke, Frank

[himitsu]

Interne Fehler sind meistens Sachen, wo sich der Compiler verschluckt.
Da können wir nicht viel machen.

Du müsstest das eher ans QC übergeben und hoffen die beheben den Fehler bald.

Ansonsten bleiben nur zwei Wege:
- den fehlerverursachenden Teil weglassen
- oder wahllos irgendwas umbauen, Leerzeilen einfügen, die Reihenfolge von Codezeilen, Prodeduren oder Deklarationen verschieben .... bis es zufällig funktioniert

[Uwe Raabe]

Zitat von himitsu:

Du müsstest das eher ans QC übergeben und hoffen die beheben den Fehler bald.

Der Fehler scheint ja in XE6 bereits nicht mehr aufzutreten.

[dataspider]

Zitat von himitsu:

Ansonsten bleiben nur zwei Wege:
- den fehlerverursachenden Teil weglassen
- oder wahllos irgendwas umbauen, Leerzeilen einfügen, die Reihenfolge von Codezeilen, Prodeduren oder Deklarationen verschieben .... bis es zufällig funktioniert

Ist wohl beides keine echte Option.
Und ob bei XE4 noch ein Update erscheint...wohl eher nicht.

Deshalb überlege ich ernsthaft, XE6 zu kaufen.

Interessant wäre wirklich, zu wissen, ob der Fehler auch bei anderen mit XE4 auftritt.

[EDIT]
Ich könnte mir wirklich denken, dass es noch ein Fehler in XE4 ist.
Es betrifft nämlich gerade anonyme Methoden und Generics, was ja sozusagen in der XE - Kette reifte...
[/EDIT]

Frank

[dataspider]

Ich habe bei der anonymen Methode den letzten Default - Parameter geändert.

also anstatt:
  TOnNotifyListener = reference to procedure(Sender: TObject; EventType: TEventType; Identifier: Byte = 0); nur
  TOnNotifyListener = reference to procedure(Sender: TObject; EventType: TEventType; Identifier: Byte); ohne dem " = 0" kommt kein Fehler mehr.

Kann also erst mal weitermachen, damit kann ich leben...

Herzlichen Dank noch einmal für die Unterstützung!

Frank