So, jetzt wird es etwas komplizierter. In diesem Topic:
OOP FileSplitter ging es darum einen FileSplitter schön in einer Klasse zu packen. Zur Übung habe ich mich mal dran gesetzt und habe da eine Klasse entworfen. Ging wunder bar, mit Event und allem.
So jetzt wollte ich die Klasse TFileSplitter mit einem eigenem
Exception Handling, oder wie man es auch immer nennen will ausstatten. Dabei bin ich auf ein paar Probleme gestossen.
Erst mal die EFileSplitterError Klasse:
Delphi-Quellcode:
type
TOnError =
procedure(Sender: TObject; ECode: Integer; EMessage:
string)
of
object;
EFileSplitterError =
class(
Exception)
private
FOnError: TOnError;
public
property OnError: TOnError
read FOnError
write FOnError;
end;
Jetzt die Einbindung in die TFileSplitter Klasse:
Delphi-Quellcode:
type
TOnProgress =
procedure(Sender: TObject; PartFilename:
string; Total, Done:
Int64)
of object;
TFileSplitter =
class
private
FSError: EFileSplitterError;
...;
public
...;
procedure Execute;
public
...;
property OnError: EFileSplitterError
read FSError
write FSError;
end;
[..]
procedure TFileSplitter.Execute;
var
...;
resourcestring
EEmptyFile = '
Keine Datei angegeben.';
...;
begin
if FFilename = '
'
then
begin
if Assigned(OnError)
then
begin
FSError.OnError(self, 1, EEmptyFile);
exit;
end
else
raise Exception.Create(EEmptyFile);
end;
[..]
end;
Idee: Ist kein Eventhandler zu gewiesen, soll eine ganz normale
Exception geworfen werden. Das klappt aber nicht. Assigned(OnError) liefert immer True wie es aussieht.
Und im Programm:
Delphi-Quellcode:
type
TForm1 =
class(TForm)
...;
private
{ Private-Deklarationen }
...;
procedure SplitError(Sender: TObject; ECode: Integer; EMessage:
String);
public
{ Public-Deklarationen }
end;
[..]
procedure TForm1.SplitError;
var
s:
String;
begin
s := '
Fehlercode: '+IntToStr(ECode)+#13#10;
s := s + EMessage;
Messagebox(
Handle, PChar(s), '
Fehler', MB_ICONSTOP);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileSplitter;
begin
fs := TFileSplitter.Create;
try
...;
fs.OnError := SplitError;
fs.Execute;
finally
FreeAndNil(fs);
end;
end;
Er sagt mir immer bei der Zuweisung des Events:
Zitat:
[Fehler] Unit1.pas(67): Nicht genügend wirkliche Parameter
Wo steckt der Fehler?