Markierter Text eines Memofeldes speichern

[fsc]

Hallo!

Meine Frage steht eigentlich im Titel. Wie speichere ich markierten Text aus einem Memofeld?

Danke, fsc!

[ste_ett]

ShowMessage(MemoName.SelText); Setzen kannst du die Markierung mit .SelStart und .SelLength, wobei .SelLength nicht die Länge des markierten Textes ist, sondern der Index des Chars im String.

[fsc]

Ja, Memo.SelText kenne ich auch. Habe es auch schon in der Zwischenablage.
Aber gespeichert wird so doch nichts. Außerdem hast du mich nicht richtig verstanden: das Memofeld füllt sich mit Text... Jetzt gucke ich mir den Text an und markiere beliebig viele Zeilen, die ich gerne speichern bzw. drucken möchte.

[3_of_8]

Delphi-Quellcode:

procedure SaveSelectedText(FileName: String);
var f: TextFile;
    str: String;
begin
assignfile(f,FileName);
rewrite(f);
str:=Memo1.SelText;
write(f, str);
closefile(f);
end;