Zitat:
Delphi-Quellcode:
//Get a reference to the parent TStream class of the TStream object
base_class := AStream.ClassType;
while (base_class <> nil) and (base_class <> TStream) do
base_class := base_class.ClassParent;
if base_class <> nil then
begin
//Get the new implementation of the seek method
base_seek_proc := TStream(base_class).Seek;
Das kannst du ganz einfach kürzen, da base_class immer bei TStream herauskommt (außer jemand macht einen ungültigen Typecast nach TStream, dann ist er aber selbst schuld).
base_seek_proc := TStream.Seek;