Замена слов

[Son Of Pain]

Это не текстовый файл, это рудименты от втыкания кода в делфи

[Лесная Эльфийка]

Сообщение от goto ∞

Присвоение в переменную 's' из текстового поля Edit1 свойство Text..

Мягко говоря не мой уровень

и откуда дельфи тут? х)

[Son Of Pain]

Ну видимо он вбросил в делфи этот код, чтобы протестировать работу )

[Лесная Эльфийка]

Сооооооон, впихни ты эту Str уже.. у мя зачет завтра Т_Т

[Son Of Pain]

Жаль портить такой красивый код, надо ченить попросить взамен :-D. О, напиши просьбу в стихах, эльфы же должны уметь их писать )))

[Лесная Эльфийка]

мм... сейчас попытаюсь

Играет музыка без нот.
И всех убьет огромный кот!
Пускай, я знаю, есть же тот,
Кто даст мне свой программный код!

И после, тот огромный кот,
Быть может, не тебя убьет.
И рассечет же этот лед
Скопированный мною код!

эм.. если там уж так муторно, то может не стоит? х_х

[Son Of Pain]

Нет, должно быть как-то трагичнее!
Вот например
"близится утро, ужасный зачёт,
мне не до сна, я не знаю, что будет,
времени начат печальный отсчёт
и издеваются злобные люди.
кинули стрёмного кода кусок,
в нём есть брутальные, тёмные строки,
глядя на них ощущаю я шок -
сердце дрожит, как листок одинокий.
нет чтобы молча его изменить
и отпустить меня спать безвозмездно
просят они меня стих сочинить
будто бы это мне щас интересно "
:-)

[Лесная Эльфийка]

Лан, пойду повешусь, сладких снов

Завтра напиши ^_^

только ту замену )

[Son Of Pain]

Только после трагического стиха! ))

[Serge_Bliznykov]

Son Of Pain,не надоело флудить и издеваться?!


Лесная Эльфийка, а Вы тоже хороши. Нет чтобы в IDE TP просто написать Str выделить и нажать Ctrl-F1
(или просто в поиске в интернете забить str Pascal) прочитать и самостоятельно сделать, надеятесь на милость автора кода... Неужели такой сложный код?! Выше вашего понимания?

ладно. вот примерно так:

program tt2;
const words: array[1..9] of string = (
    'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять');
var s: string;
  i, j: integer;
  sOneDigit : string;
begin
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to 9 do begin
    j := pos(words[i], s);
    while j > 0 do begin
      delete(s, j, length(words[i]));
      str(i,sOneDigit);
      insert(sOneDigit, s, j);
      j := pos(words[i], s);
    end;
  end;
  writeln('Результат: ', s);
  readln;
end.

кстати, будьте готовы ещё к таким мелким фичам/багам данного кода:
1) регистр слов проверяемых только маленький (Два Три ЧЕТЫРЕ - это, с точки зрения вышеприведённого кода - не цифры
Решение - надо перед проверкой переводить строку и проверяемое слово в один регистр.

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

удачи на экзамене.