Text zu einer Fehlermeldung auslesen.

[marabu]

Moin,

ich könnte mir vorstellen, dass so das gewünschte Ergebnis zustande kommt:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  try
    with TFileStream.Create('Y:\test.txt', fmCreate) do
      Free;
    ShowMessage('ok');
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

Grüße vom marabu