/packages/ptc/src/core/errord.inc
https://github.com/slibre/freepascal · Pascal · 47 lines · 15 code · 1 blank · 31 comment · 0 complexity · 46ad1b3d7c7f29cf332fda35740330a4 MD5 · raw file
- {
- Free Pascal port of the OpenPTC C++ library.
- Copyright (C) 2001-2007, 2009, 2010, 2012 Nikolay Nikolov (nickysn@users.sourceforge.net)
- Original C++ version by Glenn Fiedler (ptc@gaffer.org)
- This library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version
- with the following modification:
- As a special exception, the copyright holders of this library give you
- permission to link this library with independent modules to produce an
- executable, regardless of the license terms of these independent modules,and
- to copy and distribute the resulting executable under terms of your choice,
- provided that you also meet, for each linked independent module, the terms
- and conditions of the license of that module. An independent module is a
- module which is not derived from or based on this library. If you modify
- this library, you may extend this exception to your version of the library,
- but you are not obligated to do so. If you do not wish to do so, delete this
- exception statement from your version.
- This library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
- You should have received a copy of the GNU Lesser General Public
- License along with this library; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- }
- type
- TPTCError = class
- private
- FMessage: string;
- public
- constructor Create;
- constructor Create(const AMessage: String);
- constructor Create(const AMessage: string; const AError: TPTCError);
- constructor Create(const AError: TPTCError);
- destructor Destroy; override;
- procedure Assign(const AError: TPTCError);
- function Equals(Obj: TObject): Boolean; override;
- procedure Report;
- property Message: string read FMessage;
- end;