XbpFileDialog Fehler beim Abbrechen
Verfasst: Fr, 06. Okt 2017 15:53
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.
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