стэк для символов, переделать Опции

[kr3v3tkus]

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

Сообщение отредактировано: kr3v3tkus - 25.10.2006 17:41

[мисс_граффити]

не совсем поняла, что ты от меня хочешь....
думаю, примерно этого:
первая переменная, которая нам понадобится - это сам стэк.

var Stack : TStack;

Под нее нужно выделить место, то есть сделать

Stack:=TStack.Create;

примерно такое я бы запихнула в обработчик события нажатие на кнопку "все готово":

var ch: char; //символ, с которым будем работать
i: integer; //текущая строка
begin
i:=1;
ch:=Memo1.Lines[0][1]; //считываем символ из нулевой строки
while ch<>';' do //пока не дошли до конца
  begin
  Stack.Push(ch);
  ch:=Memo1.Lines[i][1];
  inc(i);
  end;
end;

Если точки с запятой не будет - получится фигня. Если есть вероятность такого события - добавь проверку, не превышает ли i количество строк в Memo1.

После того, как ты сделал все, что хотел, обязательно очисти память при помощи destroy.