Add Pascal learning files

This commit is contained in:
2025-11-20 21:18:32 +02:00
parent 1ce193cc0d
commit 258f24570a
37 changed files with 587 additions and 0 deletions

View File

@@ -0,0 +1,31 @@
program counter;
uses FormsABC;
var
p := new Button('+');
f2 := new FlowBreak;
x := new IntegerField('kills:');
f1 := new FlowBreak(20);
m := new Button('-');
y:integer;
procedure plus;
begin
inc(y);
x.value := y;
end;
procedure minus;
begin
dec(y);
x.Value := y;
end;
begin
MainForm.Title := 'Счетчик';
MainForm.SetSize(250,200);
MainForm.CenterOnScreen;
mainPanel.Dock :=DockStyle.right;
mainPanel.Width := 170;
p.Click += plus;
m.Click += minus;
end.