TStream: Seek ist implementiert?

[jbg]

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;