Forum: Algorithmen, Datenstrukturen und Klassendesign
by jaenicke,
18. Okt 2013
Was meinst du? Das sieht für mich eigentlich gut aus:function TStream.GetPosition: Int64;
begin
Result := Seek(0, soCurrent);
end;
function TCustomMemoryStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
case Origin of
soBeginning: FPosition := Offset;
soCurrent: Inc(FPosition, Offset);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by jaenicke,
17. Okt 2013
Einen TByteBuffer mit der Methode AddBytes gibt es weder irgendwo im Internet zu finden noch im Delphi Quelltext, das muss etwas eigenes sein.
Zudem sollte eine Schnittstellenbeschreibung eigentlich auf unterer Ebene passieren. Wenn ich das richtig verstehe, ist das nur ein Beispiel, oder? Dann kannst du das auch ohne diese Klasse machen. Einfacher ist es sicherlich, wenn du diese bekommst.