E/A Fehler 32

[dstein]

Evtl. so?
Feedback ob das funktioniert wäre schön.

Quelle
https://docwiki.embarcadero.com/Code...teFile_(Delphi)

if dlgOpenTxtFile_1.Execute() then
begin
try
edt_File.Text := dlgOpenTxtFile_1.FileName;

Mmo1.Lines[0] := TFile.ReadAllText(edt_File.Text); // uses System.IOUtils

except
{ Catch the possible exceptions }
MessageDlg('Incorrect path', mtError, [mbOK], 0);
Exit;
end;
end;