Das Forentreffen 2018 findet am 20./21. April in Dresden statt. Weitere Infos hier
Zur Homepage des Deutschsprachige Xbase-Entwickler e. V.
Xbase++-Wiki des Deutschsprachige Xbase-Entwickler e. V.

XbpFileDialog Fehler beim Abbrechen

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
vorti
Rookie
Rookie
Beiträge: 15
Registriert: Mo, 25. Sep 2017 12:21

XbpFileDialog Fehler beim Abbrechen

Beitrag von vorti » 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.

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
Foren-Administrator
Foren-Administrator
Beiträge: 12307
Registriert: Fr, 23. Sep 2005 18:23
Wohnort: 49328 Melle
Kontaktdaten:

Re: XbpFileDialog Fehler beim Abbrechen

Beitrag von Jan » Fr, 06. Okt 2017 17:16

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
Vorsitzender des Deutschsprachige Xbase-Entwickler e. V.

Antworten