Форум программистов, компьютерный форум, киберфорум
Наши страницы

Lazarus

Войти
Регистрация
Восстановить пароль
 
Hretgir
202 / 77 / 2
Регистрация: 25.01.2012
Сообщений: 2,921
Записей в блоге: 21
#1

Закрывается консольное приложение - Lazarus

12.07.2015, 15:06. Просмотров 494. Ответов 1
Метки нет (Все метки)

Закрывается консольное приложение.
При создании имеет стандартный вид
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
 
type
 
  { TMyApplication }
 
  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;
 
{ TMyApplication }
 
procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;
 
  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;
 
  { add your program here }
 
  // stop program loop
  Terminate;
end;
 
constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;
 
destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;
 
procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;
 
var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.

И даже с диска с примерами программ, откомпилированные консольные приложения закрываются сами.

Добавлено через 34 минуты
нашёл
Pascal
1
 readln;
там пишется, в конце программы, чтобы не закрывалась сама.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.07.2015, 15:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Закрывается консольное приложение (Lazarus):

Передать сообщение в консольное приложение - Lazarus
К сожалению не получается ни как передать сообщения в консольное приложение на Питоне из программы сделанной в Лазарусе... Запуск...

Как сделать, чтобы консольное приложение в Lazarus читало символы псевдографики? - Lazarus
Вот эти символы: │,┤,╡,╢,╖,╕,╣,║,╗,╝,╜,╛,┐,└,┴,┬,├,─,┼,╞,╟,╚,╔,╩,╦,╠,═,╬,╧,╨,╤,╥,╙,╘,╒,╓,╫,╪,┘,┌,┌. Он их при выводе на экран показывает...

База данных "Касса" (консольное приложение) - Lazarus
создать консольное приложение – номер билета, – номер рейса, – цена, – дата продажи, – фамилия кассира. 2. Получить список...

Как Консольное-приложение в Lazarus сдружить c кодировкой Unicode или Unicode Big Endian или UTF-8 - Lazarus
Нужно чтобы Lazarus отображал символы псевдографики желательно все, но в основном вот эти......

консольное приложение - Delphi
Как из консольного приложения сделать неконсольное,а чтобы формы открывал???

Консольное приложение: файлы и записи - Delphi
Хранение данных обеспечить в виде файла, состоящего из записей (record) соответствующей структуры. Обеспечить в приложении возможность...

1
_Develop
257 / 166 / 26
Регистрация: 24.01.2013
Сообщений: 470
12.07.2015, 15:39 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
repeat
until keypressed();
http://www.freepascal.org/docs-html/rtl/crt/keypressed.html
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2015, 15:39
Привет! Вот еще темы с ответами:

Передача данных в консольное приложение. TPJPipe и TByteStream - Delphi
Общая постановка задачи - передать в стороннее консольное приложение некоторые данные через stdin. Удалось найти модули упрощающие...

консольное приложение, описывающее ф-цию нахождения ср.арифм. отр.чисел. Исправление ошибок - Delphi
type ssilka = ^ integer; vector = array of ssilka; Считая, что все элементы вектора Х отличны от nil, создать консольное приложение,...

Excel закрывается не сразу - Delphi
При работе с Excel, Excel закрывается не сразу, а только через 10 секунд после окончания работы программы. Код программы состоит из...

Не закрывается MDIChild форма :( - Delphi
Хай Олл! Возник вопрос следующего рода. Не закрывается вновь созданный MDIChild. Перепробовал уже все, что было можно, на мой взгляд. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru