Richedit Quellcode lesen

[turboPASCAL]

zB so:

Delphi-Quellcode:

procedure ...
var
  ms: TMemoryStream;
begin
  richedit1.SelAttributes.Style := [fsbold];
  richedit1.Lines.Add('Bla');

  ms := TMemoryStream.Create;
  try
    richedit1.Lines.SaveToStream(ms);
    ms.Position :=0;
    memo1.Lines.LoadFromStream(ms);
  finally
    ms.Free;
  end;
end;