работа с 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]

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

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

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

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

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