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

Вопрос:
1. есть ли в ДЕЛФИ (РАД2010) тип переменой(какой? именно), соотвествующей по выше перечисленным возможностям, или надо лепить какой то свой модуль
2. если нужен отдельный модуль, есть ли примеры? где их искать(УРЛ)
Всем спасибо

[Bargest]

Код:

asm
 push s;
end;

asm
 pop s;
end;

Не смог стерпеть такой жути, как push в процедуре...

А если серьёзно, то я бы использовал массив. Ведь строка в делфи есть указатель на строку, тобишь 4 байта. Можно использовать обычный динамический массив как основу (хранить в нём указатели на строки) и дописать к нему нужные функции. Можно оформить это как класс. Можно вместо массива сделать списком (двойной расход памяти, зато очень динамично и работе как со стеком никакие минусы списка не мешают). Дело недолгое.

[nixel]

Сообщение от 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.

[NumLock]

класс TStack

TStack maintains a last-in first-out array of pointers.
Unit
Contnrs
Description
Use a TStack object to store and maintain a last-in first-out list.