关于delphi的设置，在代码状态栏直接显示错误的怎么设置？

Question

看了个视频看到，人家写程序有句错了，直接在代码编辑框中显示出来第几行错了。

Answer 1

Assert / AssertErrorProcprocedure MyAssertMsgProc(const Message, Filename: string;
  LineNumber: Integer; ErrorAddr: Pointer);
begin
  Form1.Memo1.Lines.Add(Format('[Error] %s: %s (line: %d; addr: %p)',
    [Message, Filename, LineNumber, ErrorAddr]));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Assert(False);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  AssertErrorProc := MyAssertMsgProc;
end;