XProfan

Deutsch

Bestimmt sehe ich mal wieder den Wald vor lauter Bäumen nicht
Also da ist eine Gridbox, in welcher eine Auflistung von Daten steht. Mit Klick auf eine Zeile wird der zugehörende Eintrag gezeigt. Klappt perfekt.
Wenn ich aber auf einen (noch) freien Platz in der Gridbox klicke, bekomme ich eine Fehlermeldung und das Programm beendet sich. Wie kann ich den Klick in den leeren Raum auffangen ?
Ich habe:
anzahl&=GETCOUNT(inhalt&)
nr&=GETCURSEL(inhalt&)
titel$=GETSTRING$(inhalt&,nr&)

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Es wäre noch interessant zu Wissen, welcher Art die Fehlermeldung ist.
Beendet es sich dann sofort, oder erst, wenn Du was ausweten willst. Du könntest checken, ob GetCurSel() > -1 ist. Ich vermute, das ist das Problem.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hier ist die Fehlermeldung (die Variablen sind etwas anders)

error01.jpg	36 kB

Hochgeladen:	01.07.2008

Ladeanzahl:
		Herunterladen

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Check mal vorher auf GetCurSel > -1

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Kompilieren Markieren Separieren

IF Getfocus(mn_inhalt&)  mn_inhalt& ist die Gridbox

    CHDIR pfad$
    nr%=GETCURSEL(mn_Inhalt&)
    titel$=GETSTRING$(mn_inhalt&,nr%)
    DATEN_ANZEIGEN titel$ hier werden die Daten gezeigt...
    SETFOCUS(mn_Inhalt&)

ENDIF

Das ist die Abfrage - wie soll ich da checken ???

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Kompilieren Markieren Separieren

IF Getfocus(mn_inhalt&)mn_inhalt& ist die Gridbox

    CHDIR pfad$
    nr%=GETCURSEL(mn_Inhalt&)

    if n%>-1

        titel$=GETSTRING$(mn_inhalt&,nr%)
        DATEN_ANZEIGEN titel$hier werden die Daten gezeigt...
        SETFOCUS(mn_Inhalt&)

    endif

ENDIF

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hab doch gewusst ...sehe den Wald vor lauter Bäumen nicht ! - Das liegt bestimmt an der Krankheit, die mit A anfängt (wie hieß die doch wieder ? ) -
Danke Jac - es klappt

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ebenso eine böse Falle ich die ich selbst schon tappte - Roland hatte das von einer XProfanversion zur anderen geändert das getString$ eine Fehlermeldung ausgibt wenn der 2. Parameter kleiner Null ist.

Nimm:
Kompilieren Markieren Separieren

proc lb.myGetCurSelString

    parameters hLB&
    var curSel&=getCurSel(hLB&)
    case curSel&<0 : return
    return getString$(hLB&,curSel&)

endProc

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Das getcursel -1 ist eine böse Falle in Xprofan, ich hatte das vor längerer Zeit schon bemängelt. Ich denke, beim Aufruf von Getstring() sollte profanintern überprüft werden ob der Wert -1 und dann kein Aufruf stattfinden. Obwohl ich es weiß vergesse ich das oftmals und das Programm schmiert ab, eine sehr unschöne Sache in Profan. ich habe gerade eben wegen der Anfrage ein kürzlich erstelltes Programm getestet und habe natürlich vergessen erts auf -1 abzufragen.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Na das baut mich doch wieder auf, wenn ich lese, dass auch Experten in diese Falle getappt sind. Ich werde es bestimmt nicht mehr vergessen.

01.07.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Das dürfte bis dahin helfen:
Kompilieren Markieren Separieren

Proc MyGetString

    Parameters lb&

    Select GetCurSel(lb&)

        CaseOf -1

        Return
        OtherWise
        Return GetString(lb&)

    EndProc