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
|
unit Message;
{***********************************************************
Project: C-evo External Map Generator
Copyright: 2024 P Blackman
License: GPLv3+
General message routine.
(Writeln does not work in Windows, and
Dialogs.ShowMessage does not work in command lime programs)
***********************************************************}
interface
procedure ShowMessage (Msg : string);
implementation {$ifdef lcl} uses Dialogs; {$endif}
procedure ShowMessage (Msg : string);
begin
{$ifdef lcl}
Dialogs.ShowMessage(Msg);
{$else}
Writeln(Msg);
{$endif}
end;
end.
|
