Try..catch / roll-back el.lign.

Tror ikke det kan blive meget bedre, måske lige

if not (object1.locked or object2.locked or ...) then

Du skal under alle omstændigheder teste inden du begynder på '...set' ellers skal du igang med noget roll-back som du selv skriver og rekursive procedurer som gør det langt sværere at læse når du engang kommer tilbage koden.


mvh
Anders

Hvis dine objekter fejler med en exception:
begin
  fDone := false;
  if Fejl then
    raise Exception.Create('Objekt x fejlede');

  try
    // arbejde...
    fDone := true;
  finally
  end;
end;

... så kan du lave den sædvanlige try-except tingest med en krølle:

begin
  try
    Object1.Set;
    Object2.Set;
    Object3.Set;   
  except
    on e: exception do
    begin
      if Object1.Done then
        Object1.Rollback;
      if Object2.Done then
        Object2.Rollback;
      if Object3.Done then
        Object3.Rollback;

      MessageDlg('Proceduren fejlede: '#13#10 + e.Message, mtError, [mbOK], 0);
    end;
  end;
end;

Hvis det er database-opdateringer der skal lægges tilbage, så er det letteste at lave en transaktion:

begin
  Database.StartTransaction;
  try
    Object1.Set;
    Object2.Set;
    Object3.Set;

    Database.Commit;
  except
    Database.Rollback;
    raise;
  end;
end;

I dine ObjektX-objekter kan du spørge om der er transaktioner i gang eller om der skal laves nye

var
  LocalTransaction : boolean;
begin
  LocalTransaction := not Database.InTransaction;
  if LocalTransaction then
    Database.StartTransaction;
  try
    // arbejde
    if LocalTransaction then
      Database.Commit;
  except
    if LocalTransaction then
      Database.Rollback;
    raise;
  end;
end;

Du kunne også definere dine egne exceptions:

type
  Object1Exception = class(Exception);
  Object2Exception = class(Exception);
  Object3Exception = class(Exception);

...

  try
  except
    on e: Object2Exception do
      Object1.Rollback;
    on e: Object1Exception do
    begin
      Object2.Rollback;
      Object1.Rollback;
    end;
    on e: Object3Exception do
    begin
      Object3.Rollback;
      Object2.Rollback;
      Object1.Rollback;
    end;
  end;
end;

... men det er ikke meget kønnere end det første oplæg.

Lukket

Var der virkelig ikke noget du kunne bruge her???

Jeg fik en automatisk mail om, at jeg skulle lukke spørgsmålet, da der ikke havde været aktivitet i lang tid. Der var ikke nogen, der havde lagt et svar, jeg kunne acceptere, og jeg ville ikke til at åbne sagen igen efter 3½ år. Derfor lukkede jeg den bare. Beklager hvis det er brud med god skik. Det var ikke min hensigt.