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