Sollte auch bei einem TMemo klappen:
Delphi-Quellcode:
procedure TMainForm.actEditInsertFileExecute(Sender: TObject);
var
InsertFile: TStringList;
begin
InsertFile := TStringList.Create;
if OpenDialog4.Execute then
begin
InsertFile.LoadFromFile(OpenDialog4.FileName);
RichEdit1.SelText := InsertFile.Text;
end;
InsertFile.Free;
end;
Edit: Delphi-Tags (nachträglich hoffentlich richtig) gesetzt.