Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

работа с edit

Vit___ © (2006-02-19 22:34:00)
Может есть у кого код обработки значения введенного в edit, чтобы введенное значение состояло только из символов от А до Z ?

Desdechado (2006-02-20 10:42:00) [1]
> проблемы с временами в русском языке
судя по стилистике вопроса, автору все равно

Чародей (2006-02-20 10:31:00) [2]
А что не так сказано: "введенного в edit", помоему всё конкретно. Если у тебя проблемы с временами в русском языке (введенного - это прошедшее, вводимиого - это настоящее), то "телепатор" тут не причем

Desdechado (2006-02-20 10:13:00) [3]
> Такое ощущение, что здесь одни юристы сидят
я тоже иногда для развлечения телепатор включаю, но чаще лениво
почему я должен додумывать за кого-то то, что тот не может выразить словами?

Vit___ (2006-02-20 00:27:00) [4]
Работает, спасибо Чародей

Чародей (2006-02-20 00:13:00) [5]

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

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

Чародей (2006-02-20 00:11:00) [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;

Vit___ (2006-02-20 00:00:00) [7]
да, после после ввода. надо обработать введенное значение в edit1, после нажатия кнопки button1.

Чародей (2006-02-19 23:12:00) [8]

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

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

Desdechado (2006-02-19 22:50:00) [9]
> не убирает возможность вставки из буфера
безусловно, но в ТЗ "чтобы введенное значение" это не указано

Чародей (2006-02-19 22:46:00) [10]

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

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

Desdechado (2006-02-19 22:42:00) [11]
Edit1KeyDown(... Key:Char) begin if( not Key in[ 'A'..'Z' ] ) then Key:=#0; end;

Наверх

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