Forum: Library: Sonstiges
Delphi
by Steve,
25. Jul 2005
Jo das wäre eigentlich geschickter...
Das sähe dann in etwa so aus:
THexProgressEvent = procedure (const aPercent : Byte; var Cancel : Boolean) of object;
THexLoader = class(TObject)
private
FOnProgress : THexProgressEvent;
Forum: Library: Sonstiges
Delphi
by Steve,
22. Jul 2005
Hi,
also eigentlich wollte ich nur mal wieder nen bisschen mit Callback-Routinen und so Zeugs was rumprobieren und da kam dann folgendes dabei raus..
Die Funktion GetFileAsHex öffnet eine Datei, übergibt ihren Inhalt im Hexadezimal-Format an einen TStrings-Parameter und liefert ein Boolsches Ergebnis, ob alles funktioniert hat.
Über eine Callback-Routine erfährt man den Fortschritt der...