RTF-Text verschlüsseln

[Christian Seehase]

Moin Micha,

ein RTF ist ja eigentlich nur ein Text.
Wenn Du TRichEdit verwendest muss PlainText aber auf false stehen.

Beispiel:

Delphi-Quellcode:

var
  ms : TMemoryStream;
  sl : TStringList;

begin
  ms := TMemoryStream.Create;
  try
    sl := TStringList.Create;
    try
      redtWork.Lines.SaveToStream(ms);
      ms.Position := 0;
      sl.LoadFromStream(ms);
      ShowMessage(sl.Text);
    finally
      sl.Free;
    end;
  finally
    ms.Free;
  end;
end;