Exceptions beim Kunden loggen

[NormanNG]

Hi,

nicht sehr elegant, liefert aber die gewünschte Info:

Delphi-Quellcode:

var lStep:Integer;
begin
  try
    lStep := 1;
    ...
    lStep := 2;
    ...
    lStep := 3;
    ... 
  except
    on e:exception do log('Fehler bei Schritt #'+inttostr(lStep)':'+E.Message);
  end;
end;