Стек в Delphi.

[King Kong]

Всем привет) в делфи нужно сделать программу.
Одну из двух : 1)Удалить все элементы, равные первому в стеке. Или
2)Поменять местами первый и последний элементы стека.
С использованием Memo, то есть нужно ввести с клавиатуры массив в Memo1 а во втором Memo2 должен быть результат задачи, путём нажатия кнопки Button.
Помогите если не сложно а то я в делфи очень плохо разбираюсь(

[XE5]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := Memo1.Text;
Memo2.Lines[0] := Memo1.Lines[Memo1.Lines.count - 1];
Memo2.Lines[Memo2.Lines.Count - 1] := Memo1.Lines[0];
end;

[King Kong]

Спасибо) но это всё ? со стеком ничего мудрить не надо? команды записи или чтения из стека?

[XE5]

King Kong Вопрос не по адресу.

[Stilet]

со стеком ничего мудрить не надо?

Надо. Данный пример просто демонстрация упрощения решения. А по факту тебе придется изучить работу с классом TStack, иначе препод в военкомат сдаст.
Хотя по факту ты ничего в задании не раскрыл. А может тебе еще придется писать свой класс стека. А может классы и нельзя юзать... Короче задания практически нет.

[King Kong]

Сообщение от Stilet

Хотя по факту ты ничего в задании не раскрыл. А может тебе еще придется писать свой класс стека. А может классы и нельзя юзать... Короче задания практически нет.

Не ребят тут не надо особо заморачиваться. Свой класс писать не надо. Как нам препод говорил нужно описать стек( integer) , потом занести в стек(из Memo1 где мы с клавы ввели массив), сделать преобразование и результат вывести на Memo2. Вот так))

[King Kong]

в нете очень мало инфы и примеров с классом TStack . Можете подсказать как его использовать или ссылку на источник пожалуйста.

[phomm]

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

[King Kong]

Сообщение от phomm

Тут есть практически всё, пролистайте, почитайте.

Я тут ничего не нашёл про стек.. как его описывать и как им пользоваться?

[Poma][a]

А можно я спрошу?

Рассмотрим самый простой стек..
Пусть это будет самый обычный record с stack : array of Integer; top : Integer;
Скажем, что у нас реализованы процедуры-функции : Top - возвращает последний, элемент Pop удаляет последний элемент, ну и IsEmpy - которая говорит, пуст ли стек.

Удалить все элементы, равные первому в стеке.

Хорошо.. достали первый элемент, сохранили.. а что дальше?
Выдергивать по 1-му элементу, если он нужный нам, то сохраняем его, иначе выкидываем.. сохраняем в другой стек (предположим).. а потом просто переписываем элементы в старый стек (сохраняя изначальный порядок)..
А можно ли это сделать : 1) быстрее, 2) не используя доп. память под элементы?