сокращение кода

[desytov]

добрый вечер. помогите сократить количество строк в коде.
идея такая есть n-ное количество сцепок из 3х Edit'ов
типа:
Edit1 / Edit2 = Edit3
при большом количестве таких сцепок код получается очень большой.

спасибо заранее

[phomm]

Во-первых - убрать все Form1. , без них лучше даже.
Во-вторых - Вы уже поставили всем эдитам одно событие - поставьте теперь всем эдитам в одной "сцепке" одно событие, а в коде различайте какой именно эдит вызвал событие (у вас для 2 эдитов из "сцепки" оно почти одинаково, кроме "вызывавшего " эдита, правда в 1й "сцепке" почему-то нарушено это, там в обработчике первого - эдит2 а в обработчике второго - эдит1) вот так:

procedure TForm1.Edit4Change(Sender: TObject);
var
  Edit: TEdit absolute Sender;
begin  
  if Edit.Text <> '' then
  Edit6.Text := FloatToStr(StrToFloat(Edit4.Text)/StrToFloat(Edit5.Text));
end;

Я ведь так понимаю, код отвечает за то, чтобы сразу при вводе в эдиты вычислялось значение частного.
В-третьих - учесть деление на 0 (плюс, наверное, учесть возможность/невозможность вставки минуса).

При должном понимании процесса, который требуется реализовать - можно сделать унификацию ещё больше. Альтернативно - можно покопать в сторону динамического создания компонент. Также можно попробовать задействовать TStringGrid, вместо кучи эдитов, будет удобнее, хотя код, наверное, не станет меньше.

Ну и самое эдакое - назвать такой код большим просто язык не поворачивается )) даже если будет 100 сцепок (а 300 эдитов на форме расположить - надо огромное терпение) то кода будет всего на 600-700 строк

[desytov]

Во-первых - убрать все Form1. , без них лучше даже

уберу.

назвать такой код большим просто язык не поворачивается

под большим я подразумевал слишком много повторяющихся элементов.

спасибо за подсказку.

всё отлично работает. спасибо

[Serge_Bliznykov]

ну есть идеи, как можно сократить код...
например, использовать (получать и анализировать) порядковые номера в именах Edit'ов. пример, если надо, напишу.
Недостаток: если случайно/специально переименовать любой edit в "сцепке" - всё "посыплется"...

можно в тех же целях воспользоваться полем tag (у первой "сцепки" проставить tag соответственно: 1 2 3
у второй "сцепки" - 4 5 6 и т.д.
пример, если надо, напишу.


А почему бы Вам не воспользоваться StringGrid ?

[desytov]

А почему бы Вам не воспользоваться StringGrid ?

StringGrid вроде не позволяет ручной ввод данных в таблицу

сделал в таком варианте. осталось избавиться от деления на 0.

procedure TForm1.Edit1Change(Sender: TObject);
var
  Edit: TEdit absolute Sender;
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') then
  Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
end;

хотел заменить это всё таблицей, но не знаю нужного компонента (((

[Serge_Bliznykov]

StringGrid вроде не позволяет ручной ввод данных в таблицу

с чего это вдруг?! Позволяет!
Тольок в его опциях включите разрешение редактировать данные!

[artemavd]

Serge_Bliznykov, только я один вижу, как пользователь устраивает чат в теме??