Code: Alles auswählen
While NextElement(icondelete())
WriteString(0,icondelete())
Wend
Code: Alles auswählen
While NextElement(icondelete())
debug icondelete()
Wend
Code: Alles auswählen
While NextElement(icondelete())
WriteString(0,icondelete())
Wend
Code: Alles auswählen
While NextElement(icondelete())
debug icondelete()
Wend
Code: Alles auswählen
NewList icondelete.s()
ElseIf EventMenu()=13
ClearList(icondelete())
zahl=0
If OpenFile(0,GetHomeDirectory()+"icons.desk")
While Eof(0) = 0
AddElement(icondelete())
icondelete()=ReadString(0)
zahl=zahl+1
Wend
CloseFile(0)
Dim list.s(100)
a=0
Debug "str-"+Str(CountList(icondelete()))
erg= OpenFile(1,"test.txt")
If erg
ResetList(icondelete())
While NextElement(icondelete())
WriteString(1,list.s)
Wend
CloseFile(1)
EndIf
;--
EndIf
Code: Alles auswählen
NewList icondelete.s()
ElseIf EventMenu()=13
Code: Alles auswählen
Dim list.s(100)
...
WriteString(1,list.s)