[novashdima]

В этом никакого говнокода нет. Но многие начинающие злоупотребляют такими обработчиками, помещая их на одну форму по нескольку штук. Вот от чего нужно избавляться. Вместо этого достаточно присвоить один обработчик нескольким пунктам/кнопкам и.т.п. через тот же инспектор объектов »

В смысле создать одну поцедуру обработки и назначить ее обрабатывать событие нескольких компонентов? если да, то я так и делаю, и тогда давно интересовавший вопрос, как сделать так... хм... в общем есть множество компонентов Met1 Met2.... и вот допустим одна процедура обоработки, как ее переделать, чтобы можно было использовать для нескольких компонентов?

Код:

procedure TMainForm.Met11Change(Sender: TObject);
begin
 try
  if (IsNan(Met11.Value) = False) and (Met11.Value <> 0)
      and (Met11.Value < Met11.MaxValue)
  then UpdateMetProduction
  else if (IsNan(Met11.Value) = True) or (Met11.Value = 0)
        then begin
               MetLabel11.Caption := '';
               MetLabel.Caption := '';
             end
        else Met11.Value := Met11.MaxValue - 1;
 except
    on E:EConvertError do
    Met11.Clear;
 end;
end;

Честно, прочитывая эту тему поймал себя на мысли, что вы, не умеете пользоваться поиском. http://www.7-zip.org/links.html http://stackoverflow.com/questions/7...ip-from-delphi http://www.angusj.com/delphi/ Без обид. »

Конечно не обижаюсь)
Я пробовал много вариантов, с сайта 7zip скачивал порт для делфи, но что-то было не так, то ли функционал то ли что. Находил так же другие компоненты, пытался их использовать, один был очень даже неплох, сжимал нормально, а вто с расжатием одна проблема была, при сжатии если нужный файл находился мне допустим в C:\Windows\"много всяких папок"\notepad.exe, то архив будет такой:
папка Windows -> много всяких папок -> нужный файл
Насчет JclCompression - я вроде бы в нем разобраться не смог( Со стандартной библиотекой System.Zip тоже какие-то траблы были

[Любезный]

В смысле создать одну поцедуру обработки и назначить ее обрабатывать событие нескольких компонентов? если да, то я так и делаю, и тогда давно интересовавший вопрос, как сделать так... хм... в общем есть множество компонентов Met1 Met2.... и вот допустим одна процедура обоработки, как ее переделать, чтобы можно было использовать для нескольких компонентов? »

Здесь важно, какого типа этот Met11. Пусть для примера это будет TMyType.
Возьмём тот же код и слегка переделаем, используя Sender.

Код:

procedure TMainForm.Met11Change(Sender: TObject);
begin
 if not (Sender is TMyType) then exit;
 try
  if (IsNan((Sender as TMyType).Value) = False)
   and ((Sender as TMyType).Value <> 0)
      and ((Sender as TMyType).Value < (Sender as TMyType).MaxValue))
  then UpdateMetProduction
  else if (IsNan((Sender as TMyType).Value) = True) or ((Sender as TMyType).Value = 0)
        then begin
               MetLabel11.Caption := '';
               MetLabel.Caption := '';
             end
        else (Sender as TMyType).Value := (Sender as TMyType).MaxValue- 1;
 except
    on E:EConvertError do
    (Sender as TMyType).Clear;
 end;
end;

Переделка слегка грубовата - надо проверить на предмет скобок. Из движка форума это неудобно.

[novashdima]

Переделка слегка грубовата - надо проверить на предмет скобок. Из движка форума это неудобно. »

Я примерно так и думал, но вот еще в чем дело, эти самые Met1,Met2... это TSpinEdit, при изменении MetX изменяется также MetLabelX и так для каждого компонента, поэтому надо еще как-то привязаться к номеру этого самого MetX
Надеюсь понятно написал.

[Любезный]

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

У любого компонента есть свойство Name. Все компоненты формы можно обойти в цикле и найти нужные, с нужными именами. Пример:

Код:

var lab: TLabel;
with Self
 do for I:=0 to ComponentsCount-1
  do if Components [i] is Label
   then if (Components [i] as TLabel).Name='Label1'
    then begin
     lab:=Components [i] as TLabel;
     break;
   exit;
end;

Находишь нужный Label, присваиваешь ему Caption - и задача решена.

[novashdima]

Находишь нужный Label, присваиваешь ему Caption - и задача решена. »

Ну... получилось что-то такое:

Код:

procedure TMainForm.MetChange(Sender: TObject);
var lab: TsLabel;
    namestr: string;
begin
   if not (Sender is TsSpinEdit) then exit;
 try
  if (IsNan((Sender as TsSpinEdit).Value) = False)
   and ((Sender as TsSpinEdit).Value <> 0)
      and (((Sender as TsSpinEdit).Value) < ((Sender as TsSpinEdit).MaxValue))
  then UpdateMetProduction
  else if (IsNan((Sender as TsSpinEdit).Value) = True) or ((Sender as TsSpinEdit).Value = 0)
        then begin
               namestr := (Sender as TsSpinEdit).Name;
               Insert('Label', namestr, Length(namestr)-1);
               with Self
                do for I:=0 to MainForm.ComponentCount - 1
                  do if (Components[i] is TsLabel)
                  then if ((Components [i] as TsLabel).Name = namestr)
                       then begin
                              lab:=Components [i] as TsLabel;
                              break;
                              exit;
                       end;
                       lab.Caption := '';
                       MetLabel.Caption := '';
             end
        else (Sender as TsSpinEdit).Value := (Sender as TsSpinEdit).MaxValue- 1;
 except
    on E:EConvertError do
    (Sender as TsSpinEdit).Clear;
 end;
end;

Думаю стоит выделить поиск компонента в отдельную функцию, а то понадобится она еще не раз, так как у меня около 2к строк кода просто повторение почти одного и того же кода(

[Любезный]

Ну это уж решай сам - всё зависит от конкретной задачи.

И, кстати, чтобы код проще читался, можно объявить отдельную переменную типа TsSpinEdit, присвоить ей значение Sender as TsSpinEdit и указывать в коде её, а не столь длинную фразу.

[novashdima]

Нашел вот еще один способ:

Код:

S:='CheckBox'+IntToStr(I+1);
 with (FindComponent(S) as TCheckBox) do Checked:=True

[Любезный]

Согласен, тоже вариант.

[novashdima]

Согласен, тоже вариант. »

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

[Любезный]

Мне кажется он получше, так как зачем перебирать все компоненты, если можно использовать уже готовую функцию для этого. »

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