Question

所以我试图制作一个Pascal文本程序，允许用户输入相册的名称，流派，艺术家等，还可以通过4个菜单选项查看，播放，更新相册。但是当我尝试进入第一个菜单（添加新相册的菜单）时，我遇到了问题，它只是重新打印主菜单。我使用Sublime文本编辑器和Mingw作为终端。这是代码，我相信这个问题涉及GetAlbum和GetAlbums函数。

谢谢：）

cmd := exec.Command("realpath", "~/bin")
var out bytes.Buffer
cmd.Stdout = &out
err := cmd.Run()
if err != nil {
    panic(err)
}
fmt.Println("Realapth:", out.String())

Answer 1

为了使您的代码模块化，您实际上已经让其他人更难以理解实际上正在发生的事情。我相信一个更简单的方法就是只需要一个程序就可以从文本文件中读取相册。

此外，我认为获取菜单用户输入的更合适的方法就是这样

    repeat
     val := ReadInteger('Enter a number to enter a Menu: ');
        case val of
              1: playlist := GetAlbums();
              2: playlist := PrintAlbums(playlist);
              3: SelectAlbum(playlist);
              4: playlist := ChangeAlbums(playlist);
    until val = 5 
    end;

Pascal文本菜单问题

1 个答案: