AHHHH...Nur von der Hälfter der Units unter Uses...Ich depp
Aber jetzt kommt das:
Delphi-Quellcode:
TIdStreamVCLBase = class(TIdStreamRandomAccess)
protected
FFreeStream: Boolean;
FVCLStream: TStream;
//
function GetPosition: Integer; override;
function GetSize: Integer; override;
procedure SetPosition(const AValue: Integer); override;
public
constructor Create(
AStream: TStream;
AFreeStream: Boolean = False
); reintroduce; virtual;
destructor Destroy;
override;
// function ReadLn(AMaxLineLength: Integer = -1; AExceptionIfEOF: Boolean = FALSE): string; override;
procedure Skip(
ASize: Integer
); override;
//
property FreeStream: Boolean read FFreeStream write FFreeStream;
property VCLStream: TStream read FVCLStream;
end;
Beim ausgeklammertern kommt dieser Fehler:
Zitat:
[Fehler] IdStreamVCLBase.pas(173): Eine statische Methode kann nicht überschrieben werden