Замена слов

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

Сообщение от Son Of Pain

У тебя в переменной i сейчас номер слова. Если его перевести в строку, это всегда будет один символ (ибо цифры от 1 до 9). Коды цифр в таблице ascii начинаются с 48, следовательно, прибавляя 48 к одноцифровому числу ты получаешь его символьное представление. Короче говоря, это чтобы лишний раз не вызывать str :D

Я боюсь это преподу пересказывать х_Х. Может покажешь вариант с лишним Str? Оо

[Son Of Pain]

Нужно быть смелее!

[goto ∞]

>insert(chr(i+48), s, j); - эт кстати что значит? ОО
Это он возвращает символ, указанный его кодом..
например insert(chr(1+48), s, j); в строку s символ "1" начиная с позиции j..

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

Сообщение от Son Of Pain

Нужно быть смелее!

Препода не видел >_>

[Son Of Pain]

Вот он спросит, что делает эта строчка? А ты делай глаза О_О и гневно восклицай "как, вы не знаете?! да как вам вообще у нас преподавать разрешили!!!" :-D

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

И все-таки хотелось бы увидеть вариант без этого чуда

Сообщение от Son Of Pain

Вот он спросит, что делает эта строчка? А ты делай глаза О_О и гневно восклицай "как, вы не знаете?! да как вам вообще у нас преподавать разрешили!!!" :-D

Это я лучше до экзамена приберегу xD

[goto ∞]

Сообщение от Лесная Эльфийка

текстовый файл то зачем? Смысле усложнение только

Где ты там увидела текстовой файл..

[Son Of Pain]

Да он офигеет от такой предъявы и поставит экзамен автоматом сразу, вместе с лабой ) Just do it!

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

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

Где ты там увидела текстовой файл..

s := edit1.Text;
ААААА! три часа ночи.. мозг офф

Напишите мне без (chr(i+48) xDDD

[goto ∞]

Сообщение от Лесная Эльфийка

s := edit1.Text;

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