XProfan

Italia

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 Io l' 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 Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

Hier ist die Fehlermeldung (die Variablen sind etwas anders)

error01.jpg	36 kB

Hochgeladen:	01.07.2008

Downloadcounter:
		Download

01.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

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&)

/a>

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

01.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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
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 Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

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&)

end

01.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 naturalmente 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 Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Das potrebbe bis dahin helfen: Kompilieren Markieren Separieren Proc MyGetString Parameters lb& Select GetCurSel(lb&) CaseOf -1 Return OtherWise Return GetString(lb&)
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	01.07.2008 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione