Seite 1 von 1

XbpFileDialog Fehler beim Abbrechen

Verfasst: Fr, 06. Okt 2017 15:53
von vorti
Hallo,
wenn ich das oFileDlg Abbrechen will (egal ob über den Button oder ESC etc.), meckert er, dass SubStr nicht den richtigen Parametertyp hat.
Kann mir jemand erkären warum.

Code: Alles auswählen

oFileDlg := XbpFileDialog():new()
oFileDlg:title := "Auswahl Textbaustein"
oFileDlg:FileFilters := { {"Textdateien (.txt)", "*.TXT"} }
oFileDlg:create()
oFileDlg:center := .T.
cTextdatei := oFileDlg:open()
oFileDlg:show()


if SubStr(cTextdatei, -4) = ".txt"
   Mtext = strtran( hardcr( MemoRead( cTextdatei ) ), chr( 10 ) )
else
   cTextdatei := cTextdatei + ".txt"
   Mtext = strtran( hardcr( MemoRead( cTextdatei ) ), chr( 10 ) )
endif

if empty(Mtext)
   Ffehler_textbaustein()
   Pome_tein()
endif

Re: XbpFileDialog Fehler beim Abbrechen

Verfasst: Fr, 06. Okt 2017 17:16
von Jan
Mach mal vor der Fehlerzeile ein

Code: Alles auswählen

IF cTextdatei <> NIL
NIL wird automatisch zugewiesen, wenn "Abbrechen" geklickt wurde. Und auf NIL kann man halt kein SubStr() machen.

Jan