Delphi function

Streamdown

Всем привет! У меня такой вопрос: есть обработка ввода в Edit:

procedure TToch.xKeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
'0'..'9', #8:;
'.',',':
begin
Key := DecimalSeparator;
if pos (DecimalSeparator, x.Text) <> 0
then Key := Char(0);
end;
else Key := Char(0);
end;
end;

(Таких Edit-ов у меня штук 30) Можно ли вынести эту обработку как функцию, и потом просто везде ее вызывать? Или тогда как бороться с обращением (то что подчеркнуто) на конкретный Edit?

Ognev

Можно, только это надо сделать процедурой, а не функцией (хотя в коде стоит именно процедура

). А вместо конкретного Edit-а используй Sender (только его надо к Edit-у привести). Т.е. замени везде конкретный Edit на TEdit(Sender). Ну а потом вызывай свою процедуру, передавая ей в Sender нужный Edit.

Удачи.

N3tM4n

Если создаешь Edit'ы динамически, то можно так: <Имя_Edit'a>.OnKeyPress:=<Твоя_Собственная_Процедура-Обработчик>

Hans_Cristian

Так процедура-то уже есть. Надо ее этим 30 Edit-ам назначить и все... Хоть в design-time, хоть в run-time

Streamdown

Hans_Cristian:назначить и все

А как назначить? Если отдельно вынести - нужно как-то перечислить все Edit-ы.

Ploki

Если совсем все, то можно в RunTime так:

 
var 
 i, h: integer;
 q: TEdit;
...
 with TToch do begin 
 for i:=0 to ComponentCount-1 do begin
 if Components[i] is TEdit then begin
 q:=Components[i] as TEdit;
 q.OnKeyPress:=TToch.xKeyPress;
 end;
 end;
 end;
...

Не забудь X в обработчике заменить на (Sender as TEdit)!

Streamdown

так, еще раз...извините если че не так писал ранее:

Есть функция:

 function goblin(Sender: TObject; var Key: Char): Char;
var 
 vrPos, vrLength, vrSelStart: byte;
const
 I: byte = 1;
 begin

 with Sender as TEdit do
 begin
 vrLength := Length(Text);
 vrPos := Pos(',', Text); 
 vrSelStart := SelStart; 
 end;

 case Key of

 '0'..'9':
 begin
 if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
 Key := #0;
 end;
 ',', '.':
 begin
 if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
 Key := #0
 else
 Key := #44; 
 end;
 #8: ; 
 else
 Key := #0;
 end;
end;

Как и с какими параметрами мне ее надо вызывать для конкретного Edit-а?

 procedure TToch.TKeyPress(Sender: TObject; var Key: Char);
begin
goblin([B][SIZE="3"]???????????[/SIZE][/B]);
end;

Ploki

А зачем эту функцию в обработчике вызывать, если её можно сделать методом и тогда она сама и будет обработчиком? Она же ничего не возвращает?

То есть в классе TToch (насколько я понял, это форма) описать:

TTouch=class(TForm)

...

procedure goblin(Sender: TObject; var Key: Char);

...

end;

Затем можно хоть в инспекторе объектов, хоть в RunTime присваивать эту процедуру свойству OnKeyPress любого компонента.

Если же ты хочешь всё таки иметь отдельный обработчик для каждого TEdit'а, то вызывать её надо с параметрами goblin(Sender, Key). Но ведь получится куча лишнего кода?! И всё равно не понятно, почему она функция.

P.S. Замени типы byte на Integer.

И скорость повысишь (поможешь оптимизатору и избежишь кучи преобразований типов), и от возможных ошибок убережёшься.

Ognev

streamdown, тебе вроде как уже раза три тут все объяснили

То, что ты пытаешься сделать функцией, нужно сделать процедурой, конкретный Edit ей везде передавать через Sender.

Единственное замечание.

Подумай, стоит ли обрабатывать KeyPress! Вот помини мое слово, обязательно найдется умник, который тебе влепясит в Edit чего-нибудь через буфер обмена

Я бы сделал обработку уже окончательно введенного в Edit текста.

Хотя, все зависит от того, что нужно.

N3tM4n

Подумай, стоит ли обрабатывать KeyPress! Вот помини мое слово, обязательно найдется умник, который тебе влепясит в Edit чего-нибудь через буфер обмена

Так можно сделать удаление в Edit.Text ненужных символов в обработчике на событие OnChange.

Ognev

Можно, но зачем? По мне, правильнее было бы обрабатывать все введенное один раз, непосредственно перед использованием.

Разница - введен текст в 100 символов, при обработке на OnChange ты будешь проделывать обработку минимум сто раз (если он все правильно сразу ввел, а не правил много раз), а так - один.

Lord Phoenix

N3tM4n:Да можно как хочешь сделать =) Это дело вкуса.

Ognev прав - эконимия проц.времени .Код хорош токо когда он оптимизирован и полностью безглючно исполняет свою функцию

VVThanatos

streamdown, post: 534408:Всем привет! У меня такой вопрос:
есть обработка ввода в Edit:

(Таких Edit-ов у меня штук 30) Можно ли вынести эту обработку как функцию, и потом просто везде ее вызывать? Или тогда как бороться с обращением (то что подчеркнуто) на конкретный Edit?

обрабатывай senser

Agent smith

1. Создаешь свою процедуру обработки данных в TEdit, например:

procedure AnalyseDataInEdit(aTargetEdit: TEdit; aText: String);

2. Объявляешь в форме 2 глобальные переменные:

varDataStr: String;

varCurrentControl: TEdit;

3. Создаешь для одного из своих Edit-ов метод edtMainFieldOnChange(Sender: TEdit);

4. В этом методе присваиваешь некоторой своей глобальной переменной текст из Edit-a, например:

procedure TfrmToch.edtMainFieldOnChange(Sender: TObject);

begin

varDataStr := edtMainField.Text; // Запоминаем текст в глобальной переменной.

varCurrentControl := TEdit(Sender);// Запоминаем сработавший TEdit в пеерменной.

tmrCheckData.Enable := FALSE; // на форме располагаешь таймер с интервалом в

tmrCheckData.Enable := TRUE; // 500 и в его обработчике вызываешь метод...

end;

procedure TfrmToch.OnTimer(Sender: TObject);

begin

Timer.Enabled := FALSE; // отключаешь таймер на время его обработки.

if (varDataStr <> '') and (varCurrentControl <> nil)

then AnalyseDataInEdit(varCurrentControl: TEdit; varDataStr: String);

varCurrentControl := nil; // чистим переменную сработавшего контрола.

end;

Метод с таймера нужен для исключения обработок каждого введённого символа, если текст вводиться посимвольно.

Интервал сработки таймера можно регулировать на усмотрение.

4. Создаешь ещё одну процедуру, как упоминалось ранее, которая при активации формы пробегается по циклу (перебирает все компоненты на твоей форме и как только находит TEdit, то присваивает этому контролу на его метод OnChange тот, что ты создал уже в п.1.). При размещении на форме всех TEdit-ов, которые требуют обработки, хорошо бы в их Property "Tag" ставить значение, отличное от "0" и в цикле проверять ещё и это значение.

Тогда не для всех подряд Edit-ов можно назначать обработчик в цикле, а лишь для нужных тебе.
Кстати, если объявил глобальные переменные, то можно их тогда вообще в обработчике таймера не передавать в твой метод. Он и так будет иметь к этим переменым доступ.

Goga2

Глобальные переменные лучше не использовать. Запросто можно обойтись локальными.

Похожие темы	Дата
Нужна помощь с Angularjs	19.12.2024, 05:12
Codegolf — Генератор Двусторонних Палиндромных Замыканий	19.12.2024, 05:12
Codegolf - Следуй За Границей	19.12.2024, 05:12
Codegolf - Чебышева Ротация	19.12.2024, 05:12
Codegolf – Наиболее Распространенное Кратное	19.12.2024, 05:12
Codegolf - Codegolf - Орел Или Решка	19.12.2024, 05:12
Codegolf - Максимум Максима!	19.12.2024, 05:12
Codegolf - Умножь И Раздели	19.12.2024, 05:12
Codegolf - Вычислить Кубический Корень Числа	19.12.2024, 05:12
Полицейские И Грабители - Взломщики Кодов И Кодировщики	19.12.2024, 05:12

Delphi function

Streamdown

Ognev

N3tM4n

Hans_Cristian

Streamdown

Ploki

Streamdown

Ploki

Ognev

N3tM4n

Ognev

Lord Phoenix

VVThanatos

Agent smith

Goga2

I AM

Интересно