1:
2:
3:
4:
5:
6:
7:
8:

var
  Stream: TFileStream;
  str : ? //<- Muss über 255 Zeichen aufnehmen können (funktioniert also mit string nichtmehr) hilft
          // mir das AnsiString - kann ich den in eine Datei schreiben?
begin
  Stream := TFileStream.(filename, fmCreate);
  Stream.Write(str, sizeof(str));
end;					

1:

e.Frage.LoadFromStream(Stream);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var s : String;
    Stream : TFileStream;
    Laenge : Integer;
begin
  Stream:=TFileStream.Create('string.dat',fmCreate);
  s:='Das ist mein String';
  Laenge:=Length(s);
  Stream.Write(Laenge,SizeOf(Laenge));  // Länge des Strings
  Stream.Write(s[1],Laenge);            // Das [1] ist wichtig! Bei s steht nämlich nur der Zeiger auf den String.
  Stream.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var s : String[20];
    Laenge : Integer;
    Stream : TFileStream;
begin
  Stream:=TFileStream.Create('string.dat',fmOpenRead);
  Stream.Read(Laenge,SizeOf(Laenge));   // Länge lesen
  SetLength(s,Laenge);                  // String auf diese Länge vorbereiten
  Stream.Read(s[1],Laenge);
  ShowMessage(s);
  Stream.Free;
end;					

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:

function TAppConfigManager.LoadStringFromStream(AStream: TStream): String;
var
  ResultString: AnsiString;
  StringSize: Integer;
begin
  Result := '';
  if AStream.Size - AStream.Position < SizeOf(StringSize) then
    Exit;
  AStream.ReadBuffer(StringSize, SizeOf(StringSize));
  SetLength(ResultString, StringSize);
  if AStream.Size - AStream.Position < StringSize then
    Exit;
  AStream.ReadBuffer(Pointer(ResultString)^, StringSize);
  {$ifdef UNICODE} // ab Delphi 2009
  Result := Utf8ToString(ResultString);
  {$else}
  Result := Utf8Decode(ResultString);
  {$endif}
end;

procedure TAppConfigManager.SaveStringToStream(AStream: TStream; AString: String);
var
  StringSize: Integer;
  StringToSave: AnsiString;
begin
  StringToSave := Utf8Encode(AString);
  StringSize := Length(StringToSave);
  AStream.WriteBuffer(StringSize, SizeOf(StringSize));
  AStream.WriteBuffer(Pointer(StringToSave)^, StringSize);
end;					

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

var
  s: String;
  Stream: TFileStream;
  Laenge: Integer;
begin
  Stream := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'string.dat', fmCreate);
  try
    s := 'Das ist mein String';
    Laenge := Length(s);
    Stream.Write(Laenge, SizeOf(Laenge));  // Länge des Strings
    Stream.Write(s[1], Laenge);            // Das [1] ist wichtig! Bei s steht nämlich nur der Zeiger auf den String.
  finally
    Stream.Free;
  end;
end;