Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

DIS © (2004-10-04 19:04:00)
Мастера подскажите пожалуйста, как можно в поле Edit, при вводе заменить знак пробела к примеру скажем на значение '&'. Т.е текст должен выглядеть примерно так:
Заранее&благодарен&за&ответ&."

begin...end (2004-10-04 21:28:00) [1]

> [9] DIS (04.10.04 21:25)

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

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

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

Ну да, или #32.

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

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

DIS (2004-10-04 21:25:00) [2]
пробел в апострофах не работает
а код пишем так chr(32) ???

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

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

begin...end (2004-10-04 21:02:00) [3]

> [6] DIS (04.10.04 20:49)

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

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

?

begin...end (2004-10-04 20:59:00) [4]

> [6] DIS (04.10.04 20:49)

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

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

DIS (2004-10-04 19:54:00) [6]
попробуем

Defunct (2004-10-04 19:08:00) [7]
зы, может лучше потом преобразовывать, а то как-то подурацки будет выглядеть - типа одесской ОС, где буква "ч" автоматически заменяется буквой "ш", а буква "г" автоматически заменяется буквой "х".

TUser (2004-10-04 19:05:00) [8]
OnKeyPress
if key = ' ' then
key:='&';

TUser (2004-10-04 19:05:00) [9]
Лучше, конечно, [1] - бороться с Ctrl+V

begin...end (2004-10-04 19:04:00) [10]
TEdit.OnChange; StringReplace()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »