Помогите упростить код

[tarakan1983]

У меня по нажатию одной кнопки в БД происходит несколько изменений. Все эти изменения я делаю отдельными функциями и хочу каждую проверять на ошибки. Но у меня получается через чур длинный код. Помогите упростить.

procedure TForm1.Button1Click(Sender: TObject);
  var
    s : string;
    tr : Boolean;
begin
  tr:=True;
  while tr do
    begin
      s:=Raz;
      if s<>'' then Break;
      s:=dva;
      if s<>'' then Break;
      s:=tri;
      if s<>'' then Break;
      s:=chetire;
      if s<>'' then Break;
      s:=pyat;
      if s<>'' then Break;
      Exit;
    end;
  if s<>'' then Application.MessageBox(PChar(s), 'Ошибка', MB_OK + MB_ICONSTOP
    + MB_TOPMOST);
end;

function TForm1.Raz: string;
begin
  Result:='';
end;

function TForm1.dva: string;
begin
  Result:='';
end;

function TForm1.tri: string;
begin
  Result:='ошибка'; // Здесь, допустим, есть ошибка при выполнении функции 
end;

function TForm1.chetire: string;
begin
  Result:='';
end;

function TForm1.pyat: string;
begin
  Result:='';
end;

[eval]

а где код?

[northener]

Но у меня получается через чур длинный код

Хотелось бы увидеть этот "через чур длинный код".

[tarakan1983]

procedure TForm1.Button1Click(Sender: TObject);
  var
    s : string;
    tr : Boolean;
begin
  tr:=True;
  while tr do
    begin
      s:=Raz;
      if s<>'' then Break;
      s:=dva;
      if s<>'' then Break;
      s:=tri;
      if s<>'' then Break;
      s:=chetire;
      if s<>'' then Break;
      s:=pyat;
      if s<>'' then Break;
      Exit;
    end;
  if s<>'' then Application.MessageBox(PChar(s), 'Ошибка', MB_OK + MB_ICONSTOP
    + MB_TOPMOST);
end;

Здесь бывает до 20 функций.
На каждую писать if s<>'' then Break ?
или можно как-то это сократить?

Может я неправильно выразился, просто куча if..then нарушает "красоту"

[northener]

Здесь бывает до 20 функций.
На каждую писать if s<>'' then Break ?

Если нельзя эти 20 функций свести в одну, то да. Каждый раз писать.

[tarakan1983]

Спасибо, а то я что-то засомневался и решил спросить у умных людей.
Прошу прощенья за то что отвлек от важных дел.
Я только учусь...

[BDA]

Посмотрите на "Исключения" - http://citforum.ru/programming/32less/les18.shtml.

[tarakan1983]

так в том-то и вопрос какое может возникнуть исключение при присвоении стринговой переменной стрнгового значения?

[BDA]

Так Вы сами выкидывайте исключение в функции. Еще можно попробовать сделать массив указателей на процедуры и вызывать их поочередно в цикле.

[tarakan1983]

Я в функции так и пишу

function TForm1.pyat: string;
begin
  Result:='';
  try
    // Что-нибудь делаем
  except
    Result:='Ошибка этой функции'
  end;
end;

Еще можно попробовать сделать массив указателей на процедуры и вызывать их поочередно в цикле.

Можно пример?