Einzelnen Beitrag anzeigen

Vader

Registriert seit: 6. Mai 2003
804 Beiträge
 
Delphi 6 Enterprise
 
#38

Re: Richedittext nach Richedit ?

  Alt 13. Mär 2006, 18:03
hallo Brüggendiek ,

du schreibst
Zitat:
Den StringStream für jedes RichEdit neu erstellen und die Teile rückwärts (also den letzten zuerst) einfügen, dann kommst Du mit SelStart:=0 ohne langes Suchen auf die Einfügestelle.
ich habs so probiert aber ohne erfolg, erliest nur den ersten stream ein
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  stream: TStringStream;

begin
  stream := TStringStream.Create ('');
  try
    richedit1.Lines.SaveToStream (stream);
    richedit2.Lines.SaveToStream (stream);
    richedit3.SelText := stream.DataString;
  finally
    stream.Free;
  end;
end;
mfg vader
  Mit Zitat antworten Zitat