Здравствуйте. Пожалуйста, помогите решить задачу с поиском в базе данных. Дана задача: "На дискете храниться информация о животных в зоопарке со следующими данными: название животного, тип животного, возраст, условия жизни. Написать программу, позволяющую проводить поиск данных о животных по типу. Задача почти решена, но с поиском у меня ничего не получается...Пожалуйста напишите процедуру для поиска в этой базе данных.  

Если задача почти решена, то показывай код программы для этой базы данных.  

Это сообщение отредактировал(а) Данкинг - 16.5.2009, 00:05

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit5: TEdit;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;
 TYPE
 Animals=record
 Name:string[30];
 Tip: string[30];
 Age:string[30];
 Life:string[30];

  end;
var
Fz: file of Animals;
Ft: TextFile;
anim: array [1..100]of Animals;
nzap:integer;
FileNameZ,FileNameT: string;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Memo1.Clear;
Button1.Hide;
nzap:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
nzap:=nzap+1;
with anim [nzap] do begin

Name:=Edit1.Text;
Tip:=Edit2.Text;
Age:=Edit3.Text;
Life:=Edit4.Text;

Memo1.Lines.Add('Вид животного-'+ Name+'');
Memo1.Lines.Add('Пол животного-'+ Tip+'');
Memo1.Lines.Add('Возраст животного-'+ Age+'');
Memo1.Lines.Add('Условия жизни-'+Life+'');
end;
write (Fz,anim[nzap]);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Title:='New File';
if OpenDialog1.Execute then
begin
FilenameZ:= opendialog1.FileName;
assignFile(Fz,FilenameZ);
Rewrite(Fz);
end;
Button1.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if openDialog1.Execute then
begin
FilenameZ:=OpenDialog1.FileName;
assignFile(Fz,FilenameZ);
Reset (Fz);
While not eof (fz) do begin
nzap:=nzap+1;
Read (Fz,anim[nzap]);
end;
with anim [nzap] do begin
Memo1.Lines.Add('Вид животного-'+ Name+'');
Memo1.Lines.Add('Пол животного-'+ Tip+'');
Memo1.Lines.Add('Возраст животного-'+ Age+'');
Memo1.Lines.Add('Условия жизни-'+Life+'');
end;
Button1.Show;
end;
end;



 procedure TForm1.Button4Click(Sender: TObject);
 var i:word;
 begin
 if saveDialog1.Execute then
 begin
 FilenameT:=SaveDialog1.Filename;
 assignFile( Ft,FilenameT);
 Rewrite(Ft);

 for i:=1 to nzap do
 with anim[i] do  writeln(Ft,Name);
 closeFile(Ft);
 end;
 end;



procedure TForm1.Button5Click(Sender: TObject);
begin
CloseFile(Fz);
Memo1.Clear;
end;
 

%Процедура для поиска.
procedure TForm1.Button6Click(Sender: TObject);
begin

end;
 end;


end.

товарищи помогите на завтра нужно здать,всё почти готово,помогите с поиском......