Скачать: CL | DM;

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

← →
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.

---

← →
begin...end ©   (2004-10-04 21:02) [8]

> [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. я так думаю.

---

← →
begin...end ©   (2004-10-04 21:28) [10]

> [9] DIS   (04.10.04 21:25)


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

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

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

Ну да, или #32.

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c