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.