[Vavilon11]

Сообщение от M.A.D.M.A.N.

Код:

procedure Nvl_(const AEdList: array of TEdit);
var
  i: integer;
begin
  for i := 0 to Length(AEdList) - 1 do
    with AEdList[i] do
      if Text = '' then
        AEdList[i].Text := '0';
end;
...
Nvl_([edit1, edit2, edit3...edit100]);

Спасибо, применю. А по поводу ошибки, ради которой и создавалась тема нет идей?

Сообщение от Veider

Вообще все проблемы этого кода растут из того факта, что автор не умеет в ООП.

Да, учусь только.