Показать сообщение отдельно
  #3  
Старый 21.03.2012, 23:28
nixel nixel вне форума
Начинающий
 
Регистрация: 12.12.2011
Адрес: Москва
Сообщения: 150
Версия Delphi: XE2-U4
Репутация: 131
По умолчанию

Цитата:
Сообщение от Pcrepair
Добрый день. Для обработки символьных данных необходим СТЕК со следующими возможностями:
- LIFA (Last In First Out) как базовая возможность
- возможность загрузить множество строк в СТЕК (с последующей выборкой верхней строки)
- возможность копирования всех строк из СТЕКа
- наличие флага, сигнализирующего о том что СТЕК обнулен (все строки выбраны)

Можно использовать класс от TList<string> с небольшой доработкой.

1. Функция TList.Add. При этом увеличивает счетчик Count на единицу. Обратится к последнему элементу можно через функцию Last.

2. Функция Add позволяет принимать range - диапазон чего угодно, включая строки.

3. Написать функцию с циклом for i:= 0 (to count - 1) с копированием строк из TList куда-то и последующим очищением TList через метод Clear.

4. Если Count=0, значит лист пустой.

в итоге надо дописать всего одну функцию, реализующую пункт 3.
Ответить с цитированием