ReUniteFile - trennen

[jfheins]

Nichts leichter als das

Delphi-Quellcode:

TStreamExt = class helper for TStream
function Etirw(var Buffer; Count: Longint): Longint;
end;

implementation

function Etirw(var Buffer; Count: Longint): Longint;
begin
  Result := Read(Buffer,Count);
end;