XProfan

Deutsch

Noch vorhanden:
Syntaxfarben werden beim erneutem Start des Editors nicht wiederhergestellt. Korrekte Speicherung erfolgt zwar (hab in der Registry nachgeschaut), aber beim Start schreibt er alle Defaultwerte zurück

Habs dann nochmal den Source geändert zum testen:

Kompilieren Markieren Separieren

!Set("ErrorLevel",0)
Cls
Print Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cNormal"))
Print %Error
WaitKey

Ergibt immer 1 !!!
WinXP Pro SP2

Syntaxfehler in LetzteDateien.inc
Zeile 117 lautet:

Kompilieren Markieren Separieren

!Case FileExists(Mid$(Datei$,2,Len(Datei$)-2) : .AddFileName(Datei$))

korrekt wäre:

Kompilieren Markieren Separieren

!Case FileExists(Mid$(Datei$,2,Len(Datei$)-2)) : .AddFileName(Datei$)

Wahrscheinlich neu:
Bei leeren unveränderten Tab(s) wird beim beenden nachgefragt, ob speichern.

Schriftdialog gibt Fehlermeldung
Syntaxfehler in XProfEd.prf
Zeile 2265 lautet:

Kompilieren Markieren Separieren

!WhileLoop 0%, MaxTab%  <-- Prozent hinter 0 verkehrt

LetzteDateien merkt sich nur Dateien, die über Datei Öffnen geöffnet wurden. Per Commandozeile übergebene werden ignoriert.

Strg-X schneidet aus und will dann speichern

Ich hoffe das erleichtert die Fehlerfindung ein wenig

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Dell

Für die Farbeinstellungen muß %Error zurückgesetzt werden!

Nicht so:
Kompilieren Markieren Separieren

!Set("ErrorLevel",0)  Warnungen beim ersten Programmstart ausblenden
XSciProf.cNormal&    = Val(ReadIni$(RegKlasse$,RegPfad$,"cNormal"))

If %Error = 1         Warnung (-> Schlüssel in Registry nicht gefunden: noch keine individuelle Farbeinstellung)

Sondern so:
Kompilieren Markieren Separieren

!Set("ErrorLevel",0)  Warnungen beim ersten Programmstart ausblenden

If %Error: EndIf    <-- Das einfügen !!!

    XSciProf.cNormal&    = Val(ReadIni$(RegKlasse$,RegPfad$,"cNormal"))

    If %Error = 1         Warnung (-> Schlüssel in Registry nicht gefunden: noch keine individuelle Farbeinstellung)

Dann funktioniert es!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

[quote:29b0c63fbf=Michael Dell]Für die Farbeinstellungen muß %Error zurückgesetzt werden![/quote:29b0c63fbf]
Das behebt zwar die Auswirkung, aber nicht die Ursache. Normalerweise sollte Error% zu diesem Zeitpunkt auf 0 stehen. Bei mir klappt es mit den Syntaxfarben auf allen Testrechnern problemlos. Man sollte untersuchen, an welcher Stelle %Error auf 1 gesetzt wurde.

Andererseits ist es an dieser Stelle sinnvoll %Error durch Auslesen zurückzusetzen. Die Zeile Int(%Error) (ohne Zuweisung) hätte es aber auch getan.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Dell

Hast recht, mal sehn vielleicht entdecken wir ja den Fehler noch.

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

[quote:33295d581d=TS-Soft]Syntaxfehler in LetzteDateien.inc[/quote:33295d581d]
Ist bei mir schon korrigiert. Ich habe gestern nacht versäumt, die aktuelle Version ins Paket zu packen.

[quote:33295d581d]Schriftdialog gibt Fehlermeldung
Syntaxfehler in XProfEd.prf Zeile 2265 ....[/quote:33295d581d]
Der Fehler ist richtig erkannt, allerdings liefern bei mir weder Interpreter noch Compiler einen Fehler und werten diesen Ausdruck als 0. Wird natürlich korrigiert!

[quote:33295d581d]Ich hoffe das erleichtert die Fehlerfindung ein wenig [/quote:33295d581d]
Ja, natürlich! VIELEN DANK!

(Vielleicht sollte ich auch den Quellcode zu XProfan veröffentlichen, wenn dann zu den Fehlermeldungen immer gleich die Fehlerursachen und Verbesserungen mitgeliefert werden. ;) Dann ließen sich für neue Versionen zahlreiche Tage und Nächte mühsamer Fehlersuche einsparen. )

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Dell

Ich den Fehler etwas eingekreist: (LetzteDateien.inc)
Kompilieren Markieren Separieren

!Proc LetzteDateien.LoadList
Declare ErrLevel%, Dateien$, Datei$, Nr%
ErrLevel% = Set("ErrorLevel", 0)
MessageBox(Str$(%Error),"Bugster01",48)
Dateien$ = ReadIni$(.RegKey$, .RegPath$, "LetzteDateien")   <-- Hier scheint mir der Fehler zu sein
MessageBox(Str$(%Error),"Bugster02",48)

If Dateien$ > ""

    Nr% = 1
    Datei$ = SubStr$(Dateien$, Nr%, ";")

    While Datei$ > ""

        If Left$(Datei$,1) = "["

            Case FileExists(Mid$(Datei$,2,Len(Datei$)-2)) : .AddFileName(Datei$)

        Else

            Case FileExists(Datei$) : .AddFileName(Datei$)

        EndIf

        Inc Nr%
        Datei$ = SubStr$(Dateien$, Nr%, ";")

    EndWhile

EndIf

Set("ErrorLevel", ErrLevel%)

EndProc

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Dell

Ok, hier isser!

Nicht:
Kompilieren Markieren Separieren

Dateien$ = ReadIni$(.RegKey$, .RegPath$, "LetzteDateien")

Sondern:
Kompilieren Markieren Separieren

Dateien$ = ReadIni$(.RegKey$, .RegPath$, "Dateien")

Aah, jetzt läufts!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

Wie schön, daß daran gewerkelt wird. Wollte gerade lospoltern.

Eine Frage hab ich trotzdem dazu. Beim Auslesen aus der Registry mit Cut & Paste in Editor ist mir aufgefallen, das die letzten Dateien fehlen.

Ok, ich hab 8 Dateien mit sehr langem Pfad drin, aber das kommt bei mir eher häufig vor. Kann XProfan das dann noch korrekt auslesen oder ist es schon so zerdergelt hineingespeichert worden in die Registry.
(dann wird das korrekte Anzeigen nie klappen).

Hier die Werte:
D

rofan$profanRGHxprofedXProfEd.prf;
D

rofan$profanRGHxprofedXPrfEditClass.prf;
D

rofan$profanRGHxprofedXPrfEdit.ph;
D

rofan$profanRGHxprofedRGHToolbar.inc;
D

rofan$profanRGHxprofedest_Registry3.prf;
c:profansourceswodh2view.p

...und wie gesagt - ich habe gerade acht Dateien offen.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Dell

Uuups, einige der geöffneten Dateien werden unter Dateien und andere dann plötzlich unter Letzte Dateien abgespeichert. Vielleicht ist das das Problem!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Vielen Dank. Ich glaube, das ist es: Solange noch keine zuletzt geladenen Dateien existieren, ergibt die Registry-Abfrage eine Warnung. Dann ist also alles OK. Ich hätte die folgende Zeile nur besser folgendermaßen schreiben sollen:
Kompilieren Markieren Separieren

!If (Dateien$ > "") or ($Error > 0)

Dann wäre die Abfrage sauber und funktioniert beim Auslesen einer Ini-Datei oder Registry gleichermaßen.

(Nicht umsonst ist das Lesen und Schreiben von Registry und Ini in XProfan mit denselben Befehlen möglich. Die Umstellung auf Nutzung einer INI-Datei läßt sich mit einer Änderung der Variablen, die an .RegKey$ und .RegPath$ übergeben werden, schnell ändern. Inzwischen neige ich nämlich dazu, für XPRofed einew INI im Programmverzeichnis zu nehmen. XProfed 1.0 wird zumindest nicht mehr die Profed32.ini benutzen. Aber dazu muß ich erst Compiler und Interpreter anpassen, die derzeit noch die Profed32.ini auslesen müssen, um den Includepfad zu finden.)

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

RegEdit sagt, es gibt nur Dateien.

Programmieren, das spannendste Detektivspiel der Welt.

29.09.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

New(LetzteDateien)

...und wo steckt das Dispose ???