Streams verbinden

[Die Muhkuh]

Hi,

ich hab grad nen riesen Brett vorm Kopf und auf nem Schlauch steh ich uach noch.

Delphi-Quellcode:

procedure Tfdoc.Save(FileName: string);
var
  aStream: TFileStream;
  aMemStream: TMemoryStream;
begin
  aStream := TFileStream.Create(FileName, fmCreate);
  aMemStream := TMemoryStream.Create;
  try
    WriteStringToStream(aStream, SecText);
    WriteStringToStream(aStream, FAuthor);
    WriteStringToStream(aStream, FDate);
    WriteStringToStream(aStream, FComment);
    case FEditor of
      etRichText:
        begin
          RichEdit.Lines.SaveToStream(aMemStream);
       end;
    end;
  finally
    aStream.Free;
    aMemStream.Free;
    FModified := false;
  end;
  { TODO -cTfDoc -oManuel Rauber: Speichern }
end;

Wie man sieht speichere ich in aMemStream den Inhalt eines RichEdits. Wie schreibe ich nun den aMemStream in den aStream?

Ich möchte die formatierung des RichEdits beibehalten. Aber da noch andere Sachen in die Datei kommen, muss ich das (glaub ich) über nen MemoryStream machen.

[jfheins]

http://www.swissdelphicenter.ch/de/showcode.php?id=843

[Nightshade]

Delphi-Quellcode:

aMemStream.position := 0;
aStream.CopyFrom(aMemStream,aMemStream.size);

So sollte es gehen ...

[Die Muhkuh]

Hi Christian,

mit Julius Tipp gings auch .

Jetzt muss bloß noch das laden gehen. Aber neue Frage neuer Thread.

[mytar]

Zitat von Nightshade:

Delphi-Quellcode:

aMemStream.position := 0;
aStream.CopyFrom(aMemStream,aMemStream.size);

So sollte es gehen ...

Die Frage ist was du möchtest, zuerst den Inhalt von aMemStream am Anfang
oder am Ende des aStreams möchtest.

Delphi-Quellcode:

//aStream Daten

aStream.CopyFrom(aMemStream,0);

oder

Delphi-Quellcode:

aStream.CopyFrom(aMemStream,0);

//astream Daten