1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TMyFileStream.WriteString(const S: String; const WriteSize: Boolean);
var
  Len: Word;
begin
  Len := Length(S);
  if WriteSize then
    WriteBuffer(Len, SizeOf(Len));
  if Len > 0 then
    WriteBuffer(Pointer(S)^, Len);
end;

function TMyFileStream.ReadString(const Len: Word): String;
begin
  SetLength(Result, Len);
  if Len > 0 then begin
    if Read(Pointer(Result)^, Len) <> Len then
      Result := '';
  end;
end;

function TMyFileStream.ReadString: String;
var
  Len: Word;
begin
  if Read(Len, SizeOf(Len)) <> SizeOf(Len) then
    Result := ''
  else
    Result := ReadString(Len);
end;

function TMyFileStream.ReadNTString: String;
var
  C: Char;
begin
  Result := '';
  Read(C, SizeOf(C));
  while C <> #0 do begin
    Result := Result + C;
    Read(C, SizeOf(C));
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function TMyFileStream.ReadNTString: String;
var
  C: Char;
begin
  Result := '';
  Read(C, SizeOf(C));
  while C <> #0 do begin
    Result := Result + C;
    Read(C, SizeOf(C));
  end;
end;

//Gegenstück:

procedure TMyFileStream.WriteNTString(const S: String);
begin
  WriteBuffer(PChar(S)^, Length(S) + 1);
end;