🚀 go-pugleaf

Hi,

I have built a procedure that log SqlException to windows EventLog.
Unfortunately Borlands Delphi8 compiler complains about my code...

I get the error: Identifier expected but 'PROCEDURE' found.

Is this a bug? I must be allowed to use the property 'Procedure' in the
class SqlError even thou procedure is a reserved word in Delphi, right?

Here�s my procedure code:
----------------------------------------------------------------------------
----------------
procedure TPatientOverview.LogSqlException(sqlex: SqlException);
var
  el: EventLog;
  enum: IEnumerator;
  sqle: SqlError;
  strMessage: &string;
begin
  el := EventLog.Create();
  el.Source := 'HCO Kohtao';

  strMessage := 'Exception Number: ' + Convert.ToString(sqlex.Number) +
                '(' + sqlex.Message + ') has occured';
  el.WriteEntry(strMessage);

  enum := sqlex.Errors.GetEnumerator;
  while enum.MoveNext do
  begin
    sqle := SqlError(enum.Current);

    strMessage := sqle.Procedure;

    strMessage := 'Message: ' + sqle.Message + Environment.NewLine +
                  'Number: ' + Convert.ToString(sqle.Number) +
Environment.NewLine +
                  'Procedure: ' + sqle.Procedure + Environment.NewLine +
                  'Server: ' + sqle.Server + Environment.NewLine +
                  'Source: ' + sqle.Source + Environment.NewLine +
                  'Severity: ' + sqle.Class + Environment.NewLine +
                  'LineNumber: ' + Convert.ToString(sqle.LineNumber) +
Environment.NewLine;

    el.WriteEntry(strMessage);
  end;
end;
----------------------------------------------------------------------------
----------------

Thankful for all input to this problem...

/Jon