Free Pascal Exception Trace.pas

function ExceptionCallStackToStrings: TStringDynArray;
var
  i: Integer;
  frames: PPointer;
begin
  SetLength(result, 1 + ExceptFrameCount);
  frames := ExceptFrames;
  result[0] := BackTraceStrFunc(ExceptAddr);
  for i := 0 to ExceptFrameCount - 1 do
    result[i + 1] := BackTraceStrFunc(frames[i]);
end;

function JoinStringArray(aStringArray: TStringDynArray; aSeparator: string): string;
var
  i: Integer;
begin
  result := '';
  for i := 0 to Length(aStringArray) - 1 do
  begin
    result := result + aStringArray[i];
    if i < Length(aStringArray) - 1 then
      result := result + aSeparator;
  end;
end;

function ExceptionCallStackToText: string;
begin
  result := JoinStringArray(ExceptionCallStackToStrings, LineEnding);
end;

function ExceptionToText(e: Exception): string;
begin
  result := e.ClassName + ': "' + e.Message + '"' + LineEnding + ExceptionCallStackToText;
end;