Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
17. Dez 2003
:oops: Das habe ich mal wieder übersehen. *grml*
Danke, so geht es bestens. :thumb:
Mal sehen, ob ich das noch irgendwie dokumentiere und der Allgemeinheit zur Verfügung stellen kann. :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
17. Dez 2003
Hm, so weit, so gut.
Jetzt haut das auslösen des Events aber nicht hin:
if Assigned(OnError) then
begin
OnError(self, 1, EEmptyFile); // Zeile 148
exit;
end
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
17. Dez 2003
Hat da niemand eine Idee? Ich hänge das Projekt mal an, dann wird es eventuell einfachher für euch.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
17. Dez 2003
Problem 1 hat sich gerade irgendwie von selbst gelöst. Muss noch mal kucken, was ich geändert habe. Das Problem mit den fehlenden Parametern beim Zuweisen des Eventhandlers besteht weiterhin.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
17. Dez 2003
Das war es nicht. Gleicher Fehler. Hätte mich auch gewundert, da ich den Event für den Fortschritt genauso konstruiert habe und da geht es.
type
TOnProgress = procedure(Sender: TObject; PartFilename: string; Total, Done:
Int64) of object;
TFileSplitter = class
private
...;
FOnProgress: TOnProgress;
...;