Текущий архив: 2006.11.26;
Скачать: CL | DM;
Вниз
Пробелы в 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]У тебя уже в какой по счету ветки весьма странные термины, откуда ты из берешь?
А он их придумывает по ходу дела.
Всяко проще, нежели книгу почитать.
← →
Anatoly Podgoretsky © (2006-11-09 00:19) [9]> Percent (08.11.2006 23:57:08) [8]
И все вопросы задает в основной, а сам пока на Начинающие еще не тянет.
← →
Ketmar © (2006-11-09 01:05) [10]экая бредятина вместо кода...
← →
Германн © (2006-11-09 02:19) [11]
> 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", имхо.
← →
Desdechado © (2006-11-09 11:37) [12]> Ну зачем же так подкладывать свиней "новичкам"?
Стимулирует к прочтению справки и самостоятельному поиску ошибок.
А не ожиданию кормежки с ложки.
ЗЫ вообще случайно получилось. В разных языках функция поиска подстроки имеет вид то (что_искать,где_искать), то (где_искать,что_искать). А я пишу последнее время не менее, чем на 4 языках, вот и запутался :)
Страницы: 1 вся ветка
Текущий архив: 2006.11.26;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.05 c
