XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit: Textdatei zeilenweise einlesen
declare MEdit&,datei$,zeile&,tmp$
cls
datei$ = C:VEREINDHOPROFANTOOLSEXTCUR.INC
MEdit& = CREATE(MultiEdit,%HWnd,,5,5,600,400)
assign #1,datei$
reset #1
ClearList

whilenot eof(#1)

    input #1,tmp$
    AddString tmp$     fügt die Zeile der internen Listbox hinzu

wend

close #1
movelisttoedit(Medit&)	verschiebt den Inhalt der internen Liste in das MultiEdit
Waitinput
end