Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Вниз
Замена знака пробела на любой символ Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.041 c
