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

[kr3v3tkus]

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

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

[kr3v3tkus]

По первому
Правда всё равно ничё не могу никак сделать с этим стэком ((( Ужасть как фигово иметь препода из другого города, который считает что нас на родине чемуто учат
если ещё совсем не надоел , то глобальный вопрос ) - нужно стеком поменять первую половину строк с символами со второй местами, тоесть
a c
b d
c a
d b
;
На форме 2 мемо и кнопка
я ваще какуюто черноту накатал( ето для второй половины)

Код

  i:=0;
  while (i<memo1.Lines.Count)and(Memo1.Lines[i]<>';') do inc(i);
  q:=(i div 2);
  if (i mod 2)<>0 then inc(q);

  while (q<>0) do
    begin
    l.Pop(q);
    p.Push(q);
    Memo2.Lines.Add(IntToStr(q));
    dec(q);
    end;

Вот когда мы уже запустили программу и вводим вручную символы, как засунуть их в стэк?
мож там на евент Onchange ставить пуш? кароче ваще плыву

Сообщение отредактировано: kr3v3tkus - 26.10.2006 1:31