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

работа с edit   Найти похожие ветки 

← →
Vit___   (2006-02-19 22:34) [0]

Может есть у кого код обработки значения введенного в edit, чтобы введенное значение состояло только из символов от А  до  Z ?

---

← →
Desdechado ©   (2006-02-19 22:42) [1]

Edit1KeyDown(... Key:Char)
begin
if( not Key in[ "A".."Z" ] ) then
Key:=#0;
end;

---

← →
Чародей ©   (2006-02-19 22:46) [2]

> Desdechado ©   (19.02.06 22:42) [1]
> Edit1KeyDown(... Key:Char)

Вмдимо имелось в виду Edit1KeyPress.
Но это не убирает возможность вставки из буфера

---

← →
Desdechado ©   (2006-02-19 22:50) [3]

> не убирает возможность вставки из буфера
безусловно, но в ТЗ "чтобы введенное значение" это не указано

---

← →
Чародей ©   (2006-02-19 23:12) [4]

> но в ТЗ "чтобы введенное значение" это не указано

Такое ощущение, что здесь одни юристы сидят. И кстати иногда ошибаются: в ТЗ сказано, "введенного в edit", а это подразумевает, что текст надо обрадотать после ввода. Так?

---

← →
Vit___   (2006-02-20 00:00) [5]

да, после после ввода. надо обработать введенное значение в edit1, после нажатия кнопки button1.

---

← →
Чародей ©   (2006-02-20 00:11) [6]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
   s,s2:string;
begin
s:=Edit1.Text;
s2:="";
for i:=1 to length(Edit1.Text) do
 begin
 if s[i] in[ "A".."Z" ] then
   s2:=s2+s[i];
 end;
Edit2.Text:=s2;
end;

---

← →
Чародей ©   (2006-02-20 00:13) [7]

> for i:=1 to length(Edit1.Text) do

Упс, for i:=1 to length(s) do

---

← →
Vit___   (2006-02-20 00:27) [8]

Работает, спасибо Чародей

---

← →
Desdechado ©   (2006-02-20 10:13) [9]

> Такое ощущение, что здесь одни юристы сидят
я тоже иногда для развлечения телепатор включаю, но чаще лениво
почему я должен додумывать за кого-то то, что тот не может выразить словами?

---

← →
Чародей ©   (2006-02-20 10:31) [10]

А что не так сказано: "введенного в edit", помоему всё конкретно. Если у тебя проблемы с временами в русском языке (введенного - это прошедшее, вводимиого - это настоящее), то "телепатор" тут не причем

---

← →
Desdechado ©   (2006-02-20 10:42) [11]

> проблемы с временами в русском языке
судя по стилистике вопроса, автору все равно

---

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

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



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