Замена знака пробела на любой символ

← →
DIS (2004-10-04 19:04) [0]

Мастера подскажите пожалуйста, как можно в поле Edit, при вводе заменить знак пробела к примеру скажем на значение "&". Т.е текст должен выглядеть примерно так:
Заранее&благодарен&за&ответ&."

← →
begin...end © (2004-10-04 19:04) [1]

TEdit.OnChange; StringReplace()

← →
TUser © (2004-10-04 19:05) [2]

OnKeyPress
if key = " " then
key:="&";

← →
TUser © (2004-10-04 19:05) [3]

Лучше, конечно, [1] - бороться с Ctrl+V

← →
Defunct © (2004-10-04 19:08) [4]

зы, может лучше потом преобразовывать, а то как-то подурацки будет выглядеть - типа одесской ОС, где буква "ч" автоматически заменяется буквой "ш", а буква "г" автоматически заменяется буквой "х".

← →
DIS (2004-10-04 19:54) [5]

попробуем

← →
DIS (2004-10-04 20:49) [6]

Делаю таким образом
var S: string; Flags: TReplaceFlags; begin Flags:= [ rfReplaceAll, rfIgnoreCase ]; S:= ""+Edit1.Text+""; S:= StringReplace( S, "пробел", "#", Flags); Edit1.Text := S; end;
а как вместо слова "пробел" написать код клавиши пробела?

← →
begin...end © (2004-10-04 20:59) [7]

> [6] DIS (04.10.04 20:49)

А нафига код? Можно просто в апострофах пробел написать.
Ну если именно код нужен, то пожалуйста: 32.

> [6] DIS (04.10.04 20:49)

И ещё: вот это вот зачем:

> S:= ""+Edit1.Text+"";

?

← →
DIS (2004-10-04 21:25) [9]

пробел в апострофах не работает
а код пишем так chr(32) ???

> S:= ""+Edit1.Text+"";

присваеваем значение edit1.text, а затем работаем с текстом которое мы получили из edit. я так думаю.

> [9] DIS (04.10.04 21:25)

> пробел в апострофах не работает

Ну не знаю, не знаю... Delphi у меня нету сейчас...

> а код пишем так chr(32) ???

Ну да, или #32.

> S:= ""+Edit1.Text+"";

Я просто не понял, зачем тут эти кавычки.

Замена знака пробела на любой символ Найти похожие ветки