forum.boolean.name - Обновление списка

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Обновление списка (http://forum.boolean.name/showthread.php?t=8853)

Обновление списка

Добрый день

Делаю интерфейс для своей стратегии и остановился на функции сохранения игры. Ну в смысле как сохранять я понял, но немогу заставить его обновить список сохраненых игр. Т.е. в строку для имени ввожу имя новой игры и сохраняю, захожу снова в сохранение игры и вижу что в списке сохранений он не появился. Он появляется в списке только когда перезагружаю игру. Почему так?

код обновления списка:

Код:

        ;-----------

        Repeat

                SavFile$=NextFile(ReadSaveDir)

                If SavFile$="" Then 

                        Exit

                Else

                        If SavFile$<>"." And SavFile$<>".." Then

                                SavFile1$=Mid(SavFile$,1,Len(SavFile$)-4)

                                WG_AddBoxItem(SaveNameList,SavFile1$)

                        EndIf

                EndIf

        Forever

        ;----------

находиться в функции SaveMenuGame(), функция запускается при нажатии на кнопку Сохранить игру в главном меню.

Ответ: Обновление списка

Че никто ниче незнает!? Или просто помощь нехотите? :(

Ответ: Обновление списка

ReadSaveDir вначале поновой прочитай и будет тебе счастье.

Ответ: Обновление списка

ты имеешь в виду CloseDir() ? Если да, то пробовал и вызывает ошибку Directory does not exists.

Писал так:

Код:

        ;-----------

        Repeat

                SavFile$=NextFile(ReadSaveDir)

                If SavFile$="" Then

                        CloseDir(ReadSaveDir)

                        Exit

                Else

                        If SavFile$<>"." And SavFile$<>".." Then

                                SavFile1$=Mid(SavFile$,1,Len(SavFile$)-4)

                                WG_AddBoxItem(SaveNameList,SavFile1$)

                        EndIf

                EndIf

        Forever

        ;----------

ошибкавыходит на строчке

Код:

SavFile$=NextFile(ReadSaveDir)

а чтение директории у меня в самом начале в глобалке
Global ReadSaveDir=ReadDir(CurrentDir()+"\Saves")

Ответ: Обновление списка

Цитата:

пробовал и вызывает ошибку Directory does not exists.

Проверь дальнейший код на тему повторного "открытия" директории после выхода из вышеприведенного цикла.
ALSO: http://www.blitzmax.com/b3ddocs/comm...eft&ref=2d_cat

Ответ: Обновление списка

все всем спасибо уже сам решил эту проблему :)