Отключение опции 'Win32 gui application' в Delphi для отображения графического и консольного окна

Delphi , Синтаксис , Ошибки и Исключения

Почему writeln не выводит текст в консоль Delphi и как это исправить

При изучении программирования на Pascal/Delphi многие новички сталкиваются с ситуацией, когда простейшая программа с writeln не выводит ожидаемый текст в консоль. В этой статье мы разберём причины этой проблемы и несколько способов её решения.

Проблема: отсутствие вывода в консоль

Рассмотрим типичный пример кода начинающего программиста:

begin
  writeln('Hello');
  readln;
end.

После компиляции и запуска программы в IDE Delphi мы видим сообщение об успешной компиляции, но окно с текстом "Hello" не появляется. Почему так происходит?

Причина: тип приложения

Основная причина кроется в настройках проекта по умолчанию. В Delphi при создании нового проекта часто выбирается тип "Windows GUI application" (графическое приложение Windows), а не консольное приложение.

Функции writeln и readln предназначены для работы с консолью, но в GUI-приложении консольное окно по умолчанию не создаётся.

Решение 1: Создание консольного приложения

Самый правильный способ для работы с консольным вводом/выводом - создать консольное приложение:

1. В меню Delphi выберите "File" → "New" → "Other..."
2. В открывшемся окне выберите "Console Application"
3. В появившемся шаблоне программы введите свой код:

program Project1;

{$APPTYPE CONSOLE}

begin
  writeln('Hello World');
  Readln;
end.

Обратите внимание на директиву {$APPTYPE CONSOLE}, которая явно указывает компилятору создать консольное приложение.

Решение 2: Изменение настроек существующего проекта

Если вы уже создали проект и не хотите создавать новый, можно изменить его тип:

1. В меню выберите "Project" → "Project Options"
2. Перейдите на вкладку "Application"
3. В разделе "Application type" выберите "Console application"
4. Нажмите "OK" и перекомпилируйте проект

Решение 3: Запуск из командной строки

Альтернативный способ - запустить скомпилированный exe-файл из командной строки:

1. Откройте командную строку (Win+R → cmd)
2. Перейдите в папку с вашей программой
3. Введите имя exe-файла и нажмите Enter

В этом случае консольное окно cmd будет использоваться для вывода.

Решение 4: Использование AllocConsole

Для GUI-приложений можно явно создать консольное окно с помощью Windows API:

program Project1;

uses
  Windows;

begin
  AllocConsole;
  writeln('Hello from GUI application!');
  readln;
  FreeConsole;
end.

Этот способ полезен, когда вам нужно временно выводить отладочную информацию в консоль из GUI-приложения.

Решение 5: Использование графических методов вывода

Если вы работаете с GUI-приложением и не хотите использовать консоль, можно выводить информацию другими способами:

uses
  Dialogs;

begin
  ShowMessage('Hello World!');
end;

Или выводить текст в компонент, например, TMemo:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Hello World');
end;

Советы для начинающих

1. Всегда определяйтесь с типом приложения перед началом работы
2. Для обучения основам языка лучше использовать консольные приложения
3. Используйте IDE для отладки - точки останова, просмотр переменных
4. Ознакомьтесь с книгой "Free Pascal From Square One" (ссылка в оригинальном обсуждении)

Заключение

Проблема с отсутствием вывода writeln в Delphi решается либо созданием консольного приложения, либо изменением настроек существующего проекта. Выбор метода зависит от ваших целей. Для обучения основам Pascal лучше использовать консольные приложения, а для разработки Windows-программ - GUI с альтернативными методами вывода информации.

Помните, что понимание различий между типами приложений - важный шаг в освоении Delphi и Object Pascal.

Создано по материалам из источника по ссылке.

Проблема с отсутствием вывода текста в консоль Delphi при использовании `writeln` и способы её решения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::