validate

[Manfred]

Hi,

mir fällt keine bessere Überschrift ein, wenn doch, dann ändere ich sie nachträglich um

Code: Alles auswählen

oBez := SlePic():new(oRahmen,,{120,oRahmen:currentSize()[2]-80},{320,20})
         oBez:bufferLength    := 50
         oBez:tabStop         := .T.
         oBez:keyboard        := {|nKey, uNil, objekt| IF(nKey == xbeK_RETURN, pruefoBez(objekt),NIL)} // hier wird nur die RETURN Taste abgefangen
         oBez:setInputFocus   := {|| oSleHilfe:setcaption("Bezeichnung von max. 50 Zeichen Länge eingeben")}
         oBez:validate        := {|objekt| ValidateSLE(objekt)}
         oBez:dataLink        := {|x| IIf( x==NIL, Trim(oBuchKto:bez), oBuchKto:bez := x)}
         oBez:create():disable()

FUNCTION ValidateSLE(objekt)  <-- warum steht da SLEPic als Objekt drin?
         LOCAL lErfolg := .T.
         MEMVAR oMessage

         IF Empty(objekt:editBuffer)
            oMessage:pflichteingabe()
            lErfolg := .F.
         ENDIF
         RETURN lErfolg

[Manfred]

Ich habe es jetzt mal geändert:

Code: Alles auswählen

oBez := SlePic():new(oRahmen,,{120,oRahmen:currentSize()[2]-80},{320,20})
         oBez:bufferLength    := 50
         oBez:tabStop         := .T.
         oBez:keyboard        := {|nKey, uNil, objekt| IF(nKey == xbeK_RETURN, pruefoBez(objekt),NIL)} // hier wird nur die RETURN Taste abgefangen
         oBez:setInputFocus   := {|| oSleHilfe:setcaption("Bezeichnung von max. 50 Zeichen Länge eingeben")}
         oBez:validate        := {|objekt| ValidateSLE(oBez:editBuffer())}
         oBez:dataLink        := {|x| IIf( x==NIL, Trim(oBuchKto:bez), oBuchKto:bez := x)}
         oBez:create():disable()

FUNCTION ValidateSLE(feld) 
         LOCAL lErfolg := .T.
         MEMVAR oMessage

         IF Empty(feld)
            oMessage:pflichteingabe()
            lErfolg := .F.
         ENDIF
         RETURN lErfolg

so klappt es jetzt, aber warum anders nicht?

[Muecke]

Hallo Manfred,
bin mir nicht sicher, aber im ersten Beispiel

Code: Alles auswählen

 oBez:validate        := {|objekt| ValidateSLE(objekt)} 

gibst du da überhaupt was mit ( objekt).Mach dies mal mit dem Debugger und schau was da mitkommt bei

Code: Alles auswählen

FUNCTION ValidateSLE(objekt)

Kommt da nicht der Dialog mit, aber du willst ja nur ein Sle.

Gruss Thomas

[Martin Altmann]

Hallo Thomas,
tut er.
Schau mal in den Codeblock, dort steht als erster (und einziger) Parameter die Variable objekt. Die wir bei validate mit self belegt. Und da self ein Objekt der Klasse SLEPic ist, taucht dann halt in der Methode, die er aufruft, ein Objekt SLEPic auf.

Viele Grüße,
Martin

[Muecke]

Hallo Martin,

Sorry, ich wollte sagen das die Class mitkommt.
Ich hab Dialog geschrieben was natürlich nicht stimmt.

Gruss Thomas

[Manfred]

Hi Martin,

ich hatte aber der Funktion auch oBez mitgegeben, das half auch nichts.

[Martin Altmann]

Hallo Manfred,
was heißt, das hilft nichts? Ist doch das gleiche!
Wenn Du das Objekt mitgibst, dann musst Du in der Funktion auf den :EditBuffer() des übergebenen Objektes zugreifen, sofern Du an die Eingabe ran willst.

Viele Grüße,
Martin

[Manfred]

Hm,

ich hoffe ich drücke mich jetzt nicht falsch aus. Also ich habe oBez übergeben und dann auf den editbuffer zugegriffen. Der war aber nicht vorhanden, weil irgendwie slepic übergeben wurde.

[Martin Altmann]

Hallo Manfred,
so hätte es eigentlich funktionieren müssen:

Code: Alles auswählen

oBez := SlePic():new(oRahmen,,{120,oRahmen:currentSize()[2]-80},{320,20}) 
         oBez:bufferLength    := 50 
         oBez:tabStop         := .T. 
         oBez:keyboard        := {|nKey, uNil, objekt| IF(nKey == xbeK_RETURN, pruefoBez(objekt),NIL)} // hier wird nur die RETURN Taste abgefangen 
         oBez:setInputFocus   := {|| oSleHilfe:setcaption("Bezeichnung von max. 50 Zeichen Länge eingeben")} 
         oBez:validate        := {|| ValidateSLE([color=red]oBez[/color])} 
         oBez:dataLink        := {|x| IIf( x==NIL, Trim(oBuchKto:bez), oBuchKto:bez := x)} 
         oBez:create():disable() 

FUNCTION ValidateSLE(objekt)
         LOCAL lErfolg := .T. 
         MEMVAR oMessage 

         IF Empty(objekt:editBuffer) 
            oMessage:pflichteingabe() 
            lErfolg := .F. 
         ENDIF 
         RETURN lErfolg

Viele Grüße,
Martin

[Manfred]

Hi Martin,,
ich sage mal pauschal: Strafe muß sein. Ich habe das Beispiel von Günter Beyes, welches er mir vor einiger Zeit in einem Thread gezeigt hat, genommen. Du erinnerst Dich noch? Nun, dass habe ich übernommen um es zu testen und bin natürlich prompt auf die Fresse gefallen, weil ich wohl nicht richtig geschnallt habe, was ich da tat. Ich hatte mir zwar schon überlegt, wozu die Parameterangabe zwischen den || war, aber keine Erklärung dafür gefunden. Dafür aber blind übernommen, was da stand. Tja, kleine Sünden bestraft der liebe Gott sofort.....
Ich habe eben noch nicht so richtig raus, wann es erforderlich ist und wann nicht.

[Martin Altmann]

Hallo Manfred,
eigentlich hätte es auch mit der von Dir zuerst genutzten Variante funktionieren sollen...

Viele Grüße,
Martin