Miscellany

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Mask;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    ListBox1: TListBox;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo2: TMemo;
    Button5: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i : integer;

implementation

uses Unit2;

{$R *.dfm}

procedure lyginimas;
begin
form1.edit2.Text := form1.memo2.Text;
end;

procedure didinimas;
begin
inc(i);
form1.memo2.Text := inttostr(i);
form1.edit2.Text := form1.memo2.Text;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Memo2.Lines.SaveToFile(ExtractFilePath(Application.Exename)+'numeris.andriuxa');
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
didinimas;
form1.Edit1.Text := '...Zodzio idejimas...';
form2.show;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
didinimas;
 form1.Edit1.Text := '...Skaitoma apie...';
MessageDlg('Sukure AndriuX`a` :)',mtInformation,[mbOk],0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if listbox1.ItemIndex = -1 then begin
MessageDlg('Nepasirinkote zodzio! ;]',mtInformation,[mbOk],0);  exit; end;
didinimas;
DeleteFile('duomenubaze\' + listbox1.Items[listbox1.itemindex] +'.profuks');
form1.listbox1.Items.Delete(listbox1.ItemIndex);
form1.listbox1.Items.SaveToFile(ExtractFilePath(Application.Exename)+'zodziai.profas');
listbox1.ItemIndex := 0;
if listbox1.ItemIndex = -1 then memo1.Text := 'Zodziu sarase nera...';
form1.Edit1.Text := '...Zodis istrintas...';
end;

procedure TForm1.FormActivate(Sender: TObject);

begin
memo1.Text := 'Pasirinkite zodi... (Arba zodziu nera sarase)';
if FileExists(ExtractFilePath(Application.Exename)+'zodziai.profas') then listbox1.Items.LoadFromFile(ExtractFilePath(Application.Exename)+'zodziai.profas');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin

form1.memo1.Lines.LoadFromFile('duomenubaze\'+listbox1.items[listbox1.itemindex]+'.profuks');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Memo2.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'numeris.andriuxa');
Form1.Edit2.Text := Form1.Memo2.Text;
i := strtoint(form1.Edit2.text);
end;

end.

---


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure lyginimas;
begin
form1.edit2.Text := form1.memo2.Text;
end;

procedure didinimas;
begin
inc(i);
form1.Edit2.Text := inttostr(i);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
 if edit1.Text = '' then begin
 MessageDlg('Iveskite zodi!',mtInformation,[mbOk],0);
 exit; end;
 didinimas;
 form1.ListBox1.items.Add(Edit1.Text);
 form1.listbox1.Items.SaveToFile(ExtractFilePath(Application.Exename)+'zodziai.profas');
 form2.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'/duomenubaze/'+form2.Edit1.Text +'.profuks');
 form1.Edit1.Text := '...Zodis idetas...';
 form1.Memo1.Text := 'Pasirinkite zodi...';
 form2.Hide;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
didinimas;
form1.Edit1.Text := '...Zodzio idejimas uzdarytas...';
form2.Hide;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
edit1.Text := '';
memo1.Text := '';
end;

end.