Delphi-PRAXiS - Einzelnen Beitrag anzeigen - 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...:

zusammenfalten · markieren

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.

Einzelnen Beitrag anzeigen

AW: Blöde Frage zum Speichern von Strings in Streams