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

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

Похожие темы	Дата
[Benjamin Anderson] 1-битный курс Godot от Heartbeast (2020)	19.10.2024, 18:10
[Роман Давыдов] Фреймворк Laravel быстрый старт для PHP-разработчика (2018)	19.10.2024, 18:10
А закончился ли кризис в IT?	19.10.2024, 18:10
TEvAppProtect TCF библиотека для защиты программу	19.10.2024, 18:10
Is using System.Assigned () a trap? What is your opinion?	19.10.2024, 18:10
GM Update for March 2020 by Atanas Popov	19.10.2024, 18:10
Cool Apps Get Even Cooler! by Jim McKeeth	19.10.2024, 18:10
Getting (possibly) 500% speed gain on divisions by David Landman	19.10.2024, 18:10
Подсказки по пользовательским цветам ckEditor	19.10.2024, 18:10
Простое в управлении и обновлении решение для статического HTML-сайта	19.10.2024, 18:10

Delphi function

streamdown

Ognev

N3tM4n

Hans_Cristian

streamdown

ploki

streamdown

ploki

Ognev

N3tM4n

Ognev

Lord Phoenix

VVThanatos

agent smith

goga2

I AM

Интересно