-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathlzw.lpr
executable file
·30 lines (25 loc) · 1.35 KB
/
lzw.lpr
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
(******************************************************************************)
(* *)
(* Author : Uwe Schächterle (Corpsman) *)
(* *)
(* This file is part of Lempel-Zip-Welch Demo *)
(* *)
(* See the file license.md, located under: *)
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
(* for details about the license. *)
(* *)
(* It is not allowed to change or remove this text from any *)
(* source file of the project. *)
(* *)
(******************************************************************************)
Program LZW;
{$MODE ObjFPC}{$H+}
Uses
Forms, Interfaces,
Unit1 In 'Unit1.pas' {Form1};
Begin
Application.Title := '';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
End.