Blöde Frage zum Speichern von Strings in Streams

[Mavarik]

Also gut... Wenn es den unbedingt Ansi/Unicode Strings seien müssen, dann muss man eben den Aufwand machen.
Mit ShortStrings könnte man einfach einen ganzen Record in einem Rutsch schreib was natürlich viel schneller ist...

Aber wenn Stream dann doch einfach so was nehmen...:

Delphi-Quellcode:

TMyStreamIO = class
  private
    MS   : TMemoryStream;
  public
    constructor Create;
    destructor Destroy;Override;
    Procedure AddHeader(Version:integer);
    Function GetHeader:Integer;
    Procedure Schreibe(V:Integer);overload;
    Procedure Schreibe(V:Boolean);overload;
    Procedure Schreibe(V:Byte);overload;
    Procedure Schreibe(V:AnsiChar);overload;
    Procedure Schreibe(V:Char);overload;
    Procedure Schreibe(V:Word);overload;
    Procedure Schreibe(V:Int64);overload;
    Procedure Schreibe(V:Shortstring);overload;
    Procedure Schreibe(V:AnsiString);overload;
    Procedure Schreibe(V:String);overload;
    Procedure Schreibe(V:TDateTime);overload;
    Procedure Schreibe(V:TStream);overload;
    Procedure Schreibe(Var ALL;Size:Integer);overload;

    Function Lese(Var V:Integer):boolean;overload;
    Function Lese(Var V:Boolean):boolean;overload;
    Function Lese(Var V:Byte):boolean;overload;
    Function Lese(Var V:AnsiChar):boolean;overload;
    Function Lese(Var V:Char):boolean;overload;
    Function Lese(Var V:Word):boolean;overload;
    Function Lese(Var V:Int64):boolean;overload;
    Function Lese(Var V:Shortstring):boolean;overload;
    Function Lese(Var V:AnsiString):boolean;overload;
    Function Lese(Var V:String):boolean;overload;
    Function Lese(Var V:TDateTime):boolean;overload;
    Function Lese(Var V:TStream):boolean;overload;
    Function Lese(Var ALL;Size:Integer):boolean;overload;

    Function PackenDaten:TByteDynArray;
    Procedure EndPackeDaten(Var Data:TByteDynArray);
    Procedure Skipp(I:Int64);
    Function EOF:boolean;
  end;

Das mache ich 1x richtig und brauch mich nie wieder darum zu kümmern.

Und ganz wichtig der Sourcecode bleib lesbar.