оцените программу-тест

[Алексей_2012]

спасибо, будем знать, но у меня особо больших библиотек и не наблюдается, а что там с процедурой можно сделать, просто я сам уже много способов перепробовал

[Алексей_2012]

похоже никто не поможет...

[s-andriano]

А в чем конкретно должна состоять помощь?
Поиск блох в программе - самое неблагодарное и муторное занятие, поэтому бетатестеров обычно привлекают различными бонусами.

Что же касается оптимизации, то ее нужно начинать с формулировки критериев оптимизации, за тем на основании этих критериев выявляют фрагменты, нуждающиеся в оптимизации, и только потом ее, оптимизацию, и проводят.
Вы своей работы в этом процессе не выполнили, так чего же Вы хотите от других?
Кому больше всех нужно?

[Алексей_2012]

может я не понятно выразился выше, но мне нужно исправить процедуру плей, при запуске программы вылетает ошибка, которую я позже выложу во вложения, а проблема вот в чем: при запуске программы почему-то ругается на заполнение плейлиста и sl стринглиста.

Вот процедура которая не работает

[Serge_Bliznykov]

вот это кошмар и ужас!

SL.Strings[0]:=MediaPlayer1.FileName;

так писать нельзя!

[Алексей_2012]

а почему так нельзя писать? вить mediaplayer1.filename-строковый и sl.strings[0] тоже строковый, я адресуюсь к нулевой строке стринглиста и присваиваю ей значение того, что находится в медиаплеер1.файлнэймс, почему так нельзя писать? А как надо?

[Аватар]

я адресуюсь к нулевой строке стринглиста и присваиваю ей значение

Обязательное условие - элемент с заданным индексом должен быть создан на момент присваивания. А создается, например, методом sl.Add

[Serge_Bliznykov]

а почему так нельзя писать? вить mediaplayer1.filename-строковый и sl.strings[0] тоже строковый, я адресуюсь к нулевой строке стринглиста и присваиваю ей значение того, что находится в медиаплеер1.файлнэймс, почему так нельзя писать? А как надо?

ну, в принципе, Аватар уже ответил.

но я добавлю.

во-первых, избавляйтесь от глобальных переменных. от них больше вреда, чем пользы! у Вас же не описана sl - вообще не понятно, что это за объект, создан он уже к этом моменту или нет...

во-вторых, для того, чтобы добавить строку в коллекцию нужно использовать метод стринглиста .Add() или метод .Append()

в-третьих, не совсем понятно, что Вы хотите добиться этой строчкой!
Вот, если Вы хотите вставить строку в первую строчку (сдвинув все остальные вниз), используйте метод .Insert():

SL.Insert(0, MediaPlayer1.FileName);

[Алексей_2012]

Третья версия теста, изменения (в основном для встроенного плеера):
1) добавил сортировку по не убыванию
2) добавил сортировку по не возрастанию
3) добавил возможность добавлять всю папку целиком ( с фильтрацией содержимого, добавятся только mp3 и wav файлы)
4) улучшил вид
5) возможность перемотки и паузы,добавил временную шкалу
6) в окне тестирования выровнял выводимые ответы
7) оптимизировал программу использовал free, убрал try и финалити
8) сделал вывод вопроса в статик текст
9) ну и много других мелочей

[vinc2000]

Тестер: Почитал тему, поглядел предложенную программку...и тут же поломал себе глаза. Нафига там вообще музыка??? Только отвлекает! Еще одна и та же. И настроек нет и ничего не сохраняется? Кто-то там будет добавлять свою и сохранять плейлист. Не смешите мои тапочки Для новичка неплохо, но со стандартными компонентами можно было бы сделать и покрасивше. Кнопка "Отчет" заблокирована пожизненно я так понял, а то вообще не работает. И еще: ресурсы - кидайте в папку. Так принято.
Код: это месиво. Если книжки читать нет времени, то хотя бы для себя старайтесь сделать лучше. Комментов нет вообще Слишком много мусора. 1165 строк кода - в половину можно было бы уменьшить. Через неделю вы вряд ли вспомните что такое iops или killed. Если нужно будет что-то изменить - ничего поменять не сможете, т.к. если вынуть кирпичик снизу - разрушится весь дом.

Итог: 30% - что то есть. Засучивайте рукава и ныряйте в код с головой пока есть время.