Forum: Object-Pascal / Delphi-Language
Delphi
by sniper_w,
13. Mai 2006
Die Abfrage ist überflussig:if len > 0 then, denn falls len = 0 wird in Stream sowieso nichts geschrieben/gelesen.
Forum: Object-Pascal / Delphi-Language
Delphi
by sniper_w,
13. Mai 2006
IMO, ist das, das Beste lösung:
type
TmyFileStream = class(TFileStream)
procedure WriteString( myString:string );
procedure WriteInteger( myInteger:Integer );
procedure WriteSingle( mySingle:Single );
procedure WriteDouble( myDouble:Double);
function ReadSingle():Single;
function ReadDouble():Double;
function ReadString():string;