Markierter Text eines Memofeldes speichern

[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;