XbpFileDialog Fehler beim Abbrechen

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
vorti
UDF-Programmierer
UDF-Programmierer
Beiträge: 61
Registriert: Mo, 25. Sep 2017 12:21

XbpFileDialog Fehler beim Abbrechen

Beitrag 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
Benutzeravatar
Jan
Marvin
Marvin
Beiträge: 14641
Registriert: Fr, 23. Sep 2005 18:23
Wohnort: 49328 Melle
Hat sich bedankt: 21 Mal
Danksagung erhalten: 87 Mal
Kontaktdaten:

Re: XbpFileDialog Fehler beim Abbrechen

Beitrag 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
Mitglied der XUG Osnabrück
Mitglied der XUG Berlin/Brandenburg
Mitglied des Deutschsprachige Xbase-Entwickler e. V.
Antworten