XProfan

Español

Noch disponible:
Syntaxfarben voluntad beim erneutem Start des Editors no wiederhergestellt. Korrekte Speicherung es zwar (tener en el Registry nachgeschaut), aber beim Start schreibt él todos Defaultwerte zurück

Habs entonces otra vez el Source geändert para testen:

Kompilieren Marca Separación

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

Ergibt siempre 1 !!!
WinXP Pro SP2

Syntaxfehler en LetzteDateien.inc
Línea 117 lautet:

Kompilieren Marca Separación

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

korrekt wäre:

Kompilieren Marca Separación

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

Wahrscheinlich neu:
En leeren unveränderten Tab(s) se beim final nachgefragt, si speichern.

Schriftdialog son Fehlermeldung
Syntaxfehler en XProfEd.prf
Línea 2265 lautet:

Kompilieren Marca Separación

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

LetzteDateien merkt se sólo Archivos, el encima Expediente Öffnen geöffnet fueron. Per Commandozeile übergebene voluntad ignoriert.

Strg-X schneidet de y voluntad entonces speichern

Yo hoffe el erleichtert el Fehlerfindung una wenig

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

Für el Farbeinstellungen muß %Error zurückgesetzt voluntad!

No es así:
Kompilieren Marca Separación

!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)/pre>

Sondern así:
Kompilieren Marca Separación

!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 lo!

Salu Michael...

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

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

[quote:29b0c63fbf=Michael Dell]Für el Farbeinstellungen muß %Error zurückgesetzt voluntad![/quote:29b0c63fbf]
Das behebt zwar el Auswirkung, pero no el Ursache. Normalerweise debería Error% a diesem Zeitpunkt en 0 posición. En me klappt lo con el Syntaxfarben en allen Testrechnern problemlos. Man debería untersuchen, a welcher Punto %Error en 1 gesetzt wurde.

Andererseits es a dieser Punto sinnvoll %Error por Auslesen zurückzusetzen. El Línea Int(%Error) (sin Zuweisung) hätte lo aber auch getan.

Saludo
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 Cita Zeilenweise Cita

Michael
Dell

Hast bastante, veces sehn tal vez entdecken wir sí el Fehler todavía.

Salu Michael...

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

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

[quote:33295d581d=TS-Soft]Syntaxfehler en LetzteDateien.inc[/quote:33295d581d]
Ist en me ya korrigiert. Yo habe gestern nacht versäumt, el aktuelle Versión en el Paket a packen.

[quote:33295d581d]Schriftdialog son Fehlermeldung
Syntaxfehler en XProfEd.prf Línea 2265 ....[/quote:33295d581d]
Der Fehler es correcta erkannt, allerdings liefern en me weder Interpreter todavía Compiler una Fehler y werten esta Ausdruck como 0. Wird natürlich korrigiert!

[quote:33295d581d]Yo hoffe el erleichtert el Fehlerfindung una wenig [/quote:33295d581d]
Sí, natürlich! VIELEN DANK!

(Tal vez debería Yo auch el Quellcode a XProfan veröffentlichen, si entonces a Fehlermeldungen siempre igual el Fehlerursachen y Verbesserungen mitgeliefert voluntad. ;) Dann ließen se para neue Versionen zahlreiche Tage y Nächte mühsamer Fehlersuche einsparen. )

Saludo
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 Cita Zeilenweise Cita

Michael
Dell

Yo el Fehler algo eingekreist: (LetzteDateien.inc)
Kompilieren Marca Separación

!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 Cita Zeilenweise Cita

Michael
Dell

Ok, hier isser!

No:
Kompilieren Marca Separación

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

Sondern:
Kompilieren Marca Separación

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

Aah, ahora läufts!

Salu Michael...

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

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Como schön, daß daran gewerkelt se. Wollte gerade lospoltern.

Un Cuestión tener Yo trotzdem dazu. Beim Auslesen de el Registry con Cut & Paste en Editor me está aufgefallen, el el letzten Archivos fehlen.

Ok, Yo tener 8 Archivos con muy langem Pfad drin, aber el kommt en me más häufig antes. Kann XProfan el entonces korrekt auslesen oder es ya así zerdergelt hineingespeichert worden en el Registry.
(Luego se el korrekte Mostrar nie klappen).

Hier el 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

...y cómo dijo - Yo gerade acht Archivos offen.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

Uuups, algunos el geöffneten Archivos voluntad bajo Archivos y otro entonces plötzlich bajo Letzte Archivos abgespeichert. Tal vez el el problema!

Salu Michael...

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

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Vielen Dank. Yo glaube, el es: Solange todavía no zuletzt geladenen Archivos existieren, ergibt el Registry-Abfrage una Warnung. Dann es also alles OK. Yo hätte el folgende Línea sólo mejor folgendermaßen escribir debería:
Kompilieren Marca Separación

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

Dann wäre el Abfrage sauber y funktioniert beim Auslesen uno Ini-Expediente oder Registry gleichermaßen.

(No umsonst es el Lesen y Carta de Registry y Ini en XProfan con denselben Befehlen posible. El Interruptor en Nutzung uno INI-Expediente läßt se con uno Änderung el Variables, el a .RegKey$ y .RegPath$ transferencia voluntad, rápidamente ändern. Inzwischen neige Yo nämlich dazu, para XPRofed einew INI en el Programmverzeichnis a nehmen. XProfed 1.0 se zumindest no mehr el Profed32.ini benutzen. Aber dazu muß Yo sólo Compiler y Interpreter adaptar, el actualmente todavía el Profed32.ini auslesen necesario, en el Includepfad para encontrar.)

Saludo
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 Cita Zeilenweise Cita

Michael
Wodrich

RegEdit sagt, lo son sólo Archivos.

Programmieren, das spannendste Detektivspiel der Welt.

29.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

New(LetzteDateien)

...y wo steckt el Disponer ???