-
Notifications
You must be signed in to change notification settings - Fork 2
/
unit4.pas
88 lines (74 loc) · 3.56 KB
/
unit4.pas
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
77
78
79
80
81
82
83
84
85
86
87
88
(******************************************************************************)
(* *)
(* Author : Uwe Schächterle (Corpsman) *)
(* *)
(* This file is part of Einstein *)
(* *)
(* 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. *)
(* *)
(******************************************************************************)
Unit Unit4;
{$MODE objfpc}{$H+}
Interface
Uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
Type
{ TForm4 }
TForm4 = Class(TForm)
Button1: TButton;
Memo1: TMemo;
Procedure Button1Click(Sender: TObject);
Procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
End;
Var
Form4: TForm4;
Implementation
{$R *.lfm}
{ TForm4 }
Procedure TForm4.FormCreate(Sender: TObject);
Begin
caption := 'Onlinehelp, examples.';
memo1.text :=
'Depends on:' + LineEnding +
' The Briton lifes in the red house' + LineEnding +
' -> (red,Briton,-,-,-)' + LineEnding +
'Distance depends on:' + LineEnding +
' The man living next to the man that smokes Rothmanns is Dane' + LineEnding +
' -> (-,-,-,Rothmanns,-) neighbour of (-,Dane,-,-,-), Distance = 1' + LineEnding +
'Left of:' + LineEnding +
' The briton lifes anywhere left from the man with the cat' + LineEnding +
' -> (-,Briton,-,-,-) left of (-,-,-,-,cat), Distance = 1' + LineEnding +
'Distance left of:' + LineEnding +
' The direct left neighbour of the red house drinks milk' + LineEnding +
' -> (red,-,-,-,-) direct left of (-,-,milk,-,-), Distance = 1' + LineEnding +
'Right of:' + LineEnding +
' The briton lifes anywhere right from the man with the cat' + LineEnding +
' -> (-,Briton,-,-,-) right of (-,-,-,-,cat), Distance = 1' + LineEnding +
'Distance right of:' + LineEnding +
' The direct right neighbour of the green house smokes Pallmall' + LineEnding +
' -> (green,-,-,-,-) direct right of (-,-,-,Pallmall,-), Distance = 1' + LineEnding +
'Eliminate:' + LineEnding +
' The man living in the red house does not have a cat.' + LineEnding +
' -> (red,-,-,-,-) eliminate (-,-,-,-,cat)' + LineEnding +
'Distance eliminate:' + LineEnding +
' The Briton does not live next to the man that smokes Rothmanns' + LineEnding +
' -> (-,Briton,-,-,-) neighbour of (-,-,-,Rothmanns,-), Distance = 1' + LineEnding +
'IntegerDepends: (attention this is only allowed if the cathegory elements are numbers or like "number text"' + LineEnding +
' The Man in the Red house drinks 2 more beer than the man with the cat' + LineEnding +
' -> (Red,beer,-2,Cat)'
;
End;
Procedure TForm4.Button1Click(Sender: TObject);
Begin
close;
End;
End.