| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Пробелы в TEdit [D7, WinXP]

Greenchel ©   (2006-11-08 22:36:00) 

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

---

Desdechado   (2006-11-09 11:37:00) [1]

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

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

---

Германн   (2006-11-09 02:19:00) [2]

> 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", имхо.

---

Ketmar   (2006-11-09 01:05:00) [3]

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

---

Anatoly Podgoretsky   (2006-11-09 00:19:00) [4]

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

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

---

Percent   (2006-11-08 23:57:00) [5]

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

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

---

Anatoly Podgoretsky   (2006-11-08 23:55:00) [6]

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

---

Greenchel   (2006-11-08 23:10:00) [7]

> DVM ©

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

---

DVM   (2006-11-08 23:07:00) [8]

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

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

---

Desdechado   (2006-11-08 22:58:00) [9]

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

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

---

Greenchel   (2006-11-08 22:54:00) [10]

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;
Не работает предложенный тобой код, всё равно пропускает пробелы :(

---

Greenchel   (2006-11-08 22:51:00) [11]

Спс :)

---

Desdechado   (2006-11-08 22:46:00) [12]

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

---

Наверх