Einzelnen Beitrag anzeigen

Brüggendiek

Registriert seit: 13. Dez 2002
Ort: Dortmund
275 Beiträge
 
Delphi 5 Standard
 
#25

Re: Richedittext nach Richedit ?

  Alt 12. Mär 2006, 06:36
Hallo Vader!

Wenn Du einen RichEdit-Text in ein anderes RichEdit einfügen willst, gehe doch über TStringStream!

Delphi-Quellcode:
var
  stream: TStringStream;

begin
  stream := TStringStream.Create ('');
  try
    reQuelle.Lines.SaveToStream (stream);
    reZiel.SelText := stream.DataString;
  finally
    stream.Free;
  end;
end;
und der Inhalt des reQuelle ist an der aktuellen Position in reZiel. Vorher natürlich SelStart auf die Einfügeposition und SelLength auf 0 setzen - oder den passenden Wert, wenn der eingefügte Text etwas ersetzen soll.

Befindet sich der einzufügende Text in einer Datei, muß diese in einen FileStream eingelesen und in den StringStream kopiert werden.

(der Source ist direkt ins Forum getippelt, also keine Haftung für TappsFauler!)

Gruß

Dietmar Brüggendiek
Dietmar Brüggendiek
Die 6 Probleme des Programmierers: 1. dauert das länger, als man 2. glaubt, 3. geht das nicht so, wie man sich das 4. schlau überlegt hat, und 5. sitzt der Fehler da, wo man ihn 6. zuletzt sucht
  Mit Zitat antworten Zitat