Здравствуйте, almazmr!

Смотрте приложение.[code lang=pascal h=200]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMode=(add,dat,shw);
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
ListBox1: TListBox;
Memo1: TMemo;
Memo2: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBox1Click(Sender: TObject);
private{ Private declarations }
public{ Public declarations }
end;
const
szAddList=7;
szFileList=2;
szShowList=3;
AddList:array[0..szAddList]of string=('','kubiky','konstructor','kukly','mashinky','lego','piramidy','velosiped');
FileList:array[0..szFileList]of string=('','save to file','load from file');
ShowList:array[0..szShowList]of string=('','Full toys list in all preschool','Present in all preschool','No present in any preschool');
var
Form1:TForm1;
isMode:TMode;
FileName:string;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Visible:=false;
ListBox1.Visible:=false;
Memo1.Visible:=false;
Memo2.Visible:=false;
Label1.Caption:='Select mode';
Button1.Caption:='Add';
Button2.Caption:='File';
Button3.Caption:='Show';
Edit1.Clear;
ListBox1.Clear;
Memo1.Clear;
memo2.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
isMode:=add;
Label1.Caption:='Enter preschool numbers';
Button1.Visible:=false;
Button2.Visible:=false;
Button3.Visible:=false;
Edit1.Clear;
Edit1.Visible:=true;
Memo1.Lines.Add('');
ListBox1.Items.Clear;
for i:=0 to szAddList do
ListBox1.Items.Add(AddList[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
isMode:=dat;
Label1.Caption:='Enter file name';
Button1.Visible:=false;
Button2.Visible:=false;
Button3.Visible:=false;
Edit1.Clear;
Edit1.Visible:=true;
ListBox1.Items.Clear;
for i:=0 to szFileList do
ListBox1.Items.Add(FileList[i]);
Memo1.Visible:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
isMode:=shw;
Label1.Caption:='Select function';
Button1.Visible:=false;
Button2.Visible:=false;
Button3.Visible:=false;
ListBox1.Items.Clear;
for i:=0 to szShowList do
ListBox1.Items.Add(ShowList[i]);
ListBox1.Visible:=true;
Memo1.Visible:=false;
Memo2.Visible:=true;
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
a:string;
i:integer;
begin
if Key=13 then
case isMode of
add:begin
Label1.Caption:='Select toys';
i:=Memo1.Lines.Count;
a:=Edit1.Text;
while(pos(a,Memo1.Lines[i])=0)and(0<=i)do dec(i);
a:='Preschool-'+Edit1.Text+':';
if 0<=i then
begin
a:=Memo1.Lines[i];
Memo1.Lines.Delete(i);
end;
Memo1.Lines[Memo1.Lines.Count-1]:=a;{'Preschool-'+Edit1.Text+':';}
Edit1.Visible:=false;
ListBox1.Visible:=true;
Memo1.Visible:=true;
end;
dat:begin
FileName:=Edit1.Text;
Label1.Caption:='Select operation';
Edit1.Visible:=false;
ListBox1.Visible:=true;
end;
shw:{only for syntax}
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
a:string;
i,j:integer;
begin
case isMode of
add:begin
if pos(ListBox1.Items[ListBox1.ItemIndex],Memo1.Lines[Memo1.Lines.Count-1])=0then
Memo1.Lines[Memo1.Lines.Count-1]:= Memo1.Lines[Memo1.Lines.Count-1]+' '+ListBox1.Items[ListBox1.ItemIndex];
end;
dat:begin
if ListBox1.ItemIndex=0
then MessageBox(Self.Handle,pchar('Select any operation'),pchar('Preschool'),mb_ok)
else
begin
case ListBox1.ItemIndex of
1:Memo1.Lines.SaveToFile(FileName);
2:Memo1.Lines.LoadFromFile(FileName);
end;
end;
end;
shw:begin
if ListBox1.ItemIndex>0 then
begin
Memo2.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]+' ');
case ListBox1.ItemIndex of
1:begin
a:='';
for i:=0 to Memo1.Lines.Count-1 do
for j:=1 to szAddList do
if(pos(AddList[j],a)=0)and(pos(AddList[j],Memo1.Lines[i])>0)then
a:=a+' '+AddList[j];
end;
2:begin
a:='';
for i:=1 to szAddlist do a:=a+' '+AddList[i];
for i:=0 to Memo1.Lines.Count-1 do
for j:=1 to szAddList do
if(pos(AddList[j],a)>0)and(pos(AddList[j],Memo1.Lines[i])=0)then
delete(a,pos(AddList[j],a),length(AddList[j]));
end;
3:begin
a:='';
for i:=1 to szAddlist do a:=a+' '+AddList[i];
for i:=0 to Memo1.Lines.Count-1 do
for j:=1 to szAddList do
if(pos(AddList[j],a)>0)and(pos(AddList[j],Memo1.Lines[i])>0)then
delete(a,pos(AddList[j],a),length(AddList[j]));
end;
end;
while pos(' ',a)>0 do delete(a,pos(' ',a),1);
if length(a)<2 then a:='no any toys';
Memo2.Lines.Add(a+' ');
end;
end;
end;
if(ListBox1.ItemIndex=0)xor(isMode=dat) then
begin
ListBox1.Visible:=false;
Memo1.Visible:=false;
Memo2.Visible:=false;
Button1.Visible:=true;
Button2.Visible:=true;
Button3.Visible:=true;
end;
end;
end.[/code]
дополнительно прикрепил сам проэкт.
Удачи!