Eins noch: Wie muss der EFileSplitter Constructur aussehen, damit ich ein Parameter Array übergeben kann wie der normalen CraeteFm Methode von der Klasse
Exception?
Habs:
Delphi-Quellcode:
type
TOnError =
procedure(Sender: TObject; ECode: Integer; EMessage:
string)
of
object;
EFileSplitterError =
class(
Exception)
protected
FErrorCode : Integer;
public
constructor CreateError(
const AErrCode: Integer;
const AMessage:
string;
const Arg:
array of const);
reintroduce;
virtual;
property ErrorCode: Integer
read FErrorCode;
end;
Delphi-Quellcode:
constructor EFileSplitterError.CreateError(const AErrCode: Integer;
const AMessage: string; const Arg: array of const);
begin
inherited CreateFmt(AMessage, Arg);
FErrorCode := AErrCode;
end;