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

[kr3v3tkus]

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

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

[volvo]

до строчки с символом ";"

имеется в виду, что строка содержит ТОЛЬКО ";" или все, что угодно, включая этот символ?

По первому варианту:

  i := 0;
  while (i < memo1.Lines.Count) and (Memo1.Lines[i] <> ';') do inc(i);

по второму:

  i := 0;
  while (i < memo1.Lines.Count) and (pos(';', Memo1.Lines[i]) = 0) do inc(i);