VPF::Активные Edit.Text как параметр - Форум программистов

Анальгин

Дата 7.10.2005, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 14.11.2003

Репутация: нет
Всего: нет

Суть. На форме есть 30 Edit которые нужно суммировать в переменную (sum) и отображать ее в SummA.Caption.

Есть процедура :

Код


procedure summA (str:string);
var
   s:integer;
begin
   s:=StrToInt(str)+StrToInt(MyForm.SummA.Caption);
   MyForm.SummA.Caption:=IntToStr(s);
end;

Можно обработать onExit всех Edit'ов так : summA (Editx.Text); (где x=1-30), но думаю, что можно сделать красиво если написать один обработчик который бы передавал в процедуру .Text Edit'a который покинули. Как это можно сделать? Спасибо

_hunter

Дата 7.10.2005, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

можно поприсваивать всем edit-ам один OnExit и в нем написать summA ((Sender as TEdit).Text)

--------------------

Tempora mutantur, et nos mutamur in illis...

Rennigth

Дата 7.10.2005, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Анальгин
OnExit в таких случаях помоему плохо подходит, OnChange полутше будет.

Укажи всем edit-ам на onChange процедуру типа:

Код


procedure EditsChange(ASender: TObject);
const
  C_COUNT_EDITS: Inteпer = 30;
var
  i: Integer;
  lRes: Integer;
begin
  for i := 0 to C_COUNT_EDITS - 1  do
    lRes := lRes + StrToStrDef(FindComponent(Format('Edit%d', [i + 1])) as TEdit).Text, 0);
  summA.Caption := IntToStr(lRes);
end;

перебор конечно долше, но как ты будешь определять считался каждый оддельный едит или нет.
Ненравиться этот способ перебора, можешь использовать другой, недавно был топик по этому поводу.

--------------------

(* Honesta mors turpi vita potior *)

<Spawn>

Дата 7.10.2005, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Минус OnChange будет в том, что вычисления будут происходить при каждом изменении в экземпляре TEdit. В таком случае целесообразнее было бы использовать не FindComponent, который перебирает контролы каждый раз с начала, а, допустим, делать цикл по FormInstance.Controls или, что еще эффективнее, хранить указатели на них в списке smile

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »