Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Внизработа с 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c