Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: EditBox erstellen declare ebox&,datei$,zeile$ cls ClearList datei$ = LoadFile$(Textdatei wählen,Programme|*.EXE;*.PRF;*.INC;*.PH;*.PROFAN;*.TXT) if datei$ = end endif ClearList assign #1,datei$ reset #1 whilenot eof(#1) input #1,zeile$ Addstring zeile$ endwhile close #1 ebox& = EditBox(Demo-Code,1) if %Button = 1 Messagebox(Die Datei + lower$(datei$) + könnte jetzt gespeichert werden!,I N F O,4160) endif end
Session-Cookies