Пробелы в TEdit

← →
Greenchel © (2006-11-08 22:36) [0]

Как можно отфильтровать пробелы в Edit?
Нужно, чтобы если в строке один или более пробелов строка просто очищалась.

← →
Desdechado © (2006-11-08 22:46) [1]

if( Pos( Edit1.Text, " " ) > 0 ) then Edit1.Text:="";

← →
Greenchel © (2006-11-08 22:51) [2]

Спс :)

← →
Greenchel © (2006-11-08 22:54) [3]

procedure TForm1.Button1Click(Sender: TObject); begin if( Pos( Edit1.Text, " " ) > 0 ) then Edit1.Clear else begin If RadioGroup1.ItemIndex=0 then begin RichEdit1.Lines.Add(Edit1.Text); Edit1.Clear; Form1.ActiveControl:= Edit1; end; If RadioGroup1.ItemIndex=1 then begin RichEdit1.Lines.Add("Privat: "+Edit1.Text); Edit1.Clear; Form1.ActiveControl:= Edit1; end; If RadioGroup1.ItemIndex=2 then begin RichEdit1.Lines.Add("Green4el "+Edit1.Text); Edit1.Clear; Form1.ActiveControl:= Edit1; end; end; end;
Не работает предложенный тобой код, всё равно пропускает пробелы :(

← →
Desdechado © (2006-11-08 22:58) [4]

да-а-а, а справку не читаешь...
Pos + F1

PS интересный эффект получился

← →
DVM © (2006-11-08 23:07) [5]

> Greenchel © (08.11.06 22:54) [3]

Ну кто так код форматирует а? Мне прямо читать такой не хочется.

← →
Greenchel © (2006-11-08 23:10) [6]

> DVM ©

Я только учусь, вскоре привыкну и к нормальному форматированию кода :)

← →
Anatoly Podgoretsky © (2006-11-08 23:55) [7]

Вообще то это не пробелы отфильтровать, а все остальное кроме пробелов. У тебя уже в какой по счету ветки весьма странные термины, откуда ты из берешь?

← →
Percent (2006-11-08 23:57) [8]

У тебя уже в какой по счету ветки весьма странные термины, откуда ты из берешь?

А он их придумывает по ходу дела.
Всяко проще, нежели книгу почитать.

> Percent (08.11.2006 23:57:08) [8]

И все вопросы задает в основной, а сам пока на Начинающие еще не тянет.

экая бредятина вместо кода...

> Desdechado © (08.11.06 22:46) [1]
>
> if( Pos( Edit1.Text, " " ) > 0 ) then
> Edit1.Text:="";
>

> Desdechado © (08.11.06 22:58) [4]
>
> да-а-а, а справку не читаешь...
> Pos + F1
>
> PS интересный эффект получился
>

Ну зачем же так подкладывать свиней "новичкам"?
Лучше уж сразу "Pos + F1", имхо.

> Ну зачем же так подкладывать свиней "новичкам"?
Стимулирует к прочтению справки и самостоятельному поиску ошибок.
А не ожиданию кормежки с ложки.

ЗЫ вообще случайно получилось. В разных языках функция поиска подстроки имеет вид то (что_искать,где_искать), то (где_искать,что_искать). А я пишу последнее время не менее, чем на 4 языках, вот и запутался :)

Пробелы в TEdit Найти похожие ветки