一个本地的MP3播放器

.如果真 (播放列表框.取项目数 () ＝ 0)
信息框 (“播放列表中无曲目。”, 0 ＋ #信息图标, “程序提示”)
返回 ()
.如果真结束
通用对话框1.类型 ＝ 1
.如果真 (通用对话框1.打开 () ＝ 真)
字段信息表 [1].名称 ＝ “mp3文件名”
字段信息表 [1].类型 ＝ #文本型
字段信息表 [1].最大文本长度 ＝ 500
创建 (通用对话框1.文件名, 字段信息表)
打开 (通用对话框1.文件名, “保存列表”, , , , , )
置当前库 (“保存列表”)
到首记录 ()
.计次循环首 (取数组成员数 (播放列表), i)
加记录 (播放列表 [i])
.计次循环尾 ()
关闭 (“保存列表”)