Fórum Criando botão quot;buscarquot; #348678

Olá.

Estou com dificuldade em criar um botão buscar.

Primeiramente, são 4 botões, ( gravar, leitura, buscar e alterar)

O meu programa, gerencia uma pousada.
É tipo um cadastro de cliente, onde o nome do cliente, telefone, número de pessoas e diarias são escritas no EDIT´s, e gravados com o botão gravar. Depois pede-se para ler os dados, apertando o botão leitura, mostrando assim no componente MEMO.
Com o botão buscar, pode-ser buscar os dados atraves do nome do cliente, ( edit 1).
Depois, pode-se alterar os dados, atraves do botão ´alterar´.

Pois bem, agora não sei como escrever o codigo fonte do botão buscar.

Olha o que eu fiz até agora:

Se alguem quiser me ajudar, e quiser ver se algo está errado, por favor fique a vontade para corrigir.



Muito obrigado.

------------------



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
RadioGroup1: TRadioGroup;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label5: TLabel;
Edit5: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
type
TPousada= record
nomedocliente: string[50];
Telefone: integer;
Diarias: integer;
Numerodepessoas: integer;
Tipos: integer;




end; //end sem begin

TArqPousada = file of TPousada;


var
Form1: TForm1;
Pousada: TPousada;
arq: file of TPousada;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(arq, ´pousada.dat´);
If FileExists(´Pousada.dat´) then

reset(arq)
else
rewrite(arq)

end;




procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closefile(arq);
end;


function PossuiRegistros(var arq: TarqPousada) :boolean;
begin
PossuiRegistros:=(FileSize(arq)<>0);



end;


procedure IrParaInicio(var arq: TArqPousada);
begin
seek(arq, 0);
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
Pousada.nomedocliente:= edit1.text;
Pousada.Telefone:= strtoint(edit2.Text);
Pousada.Diarias:= strtoint(edit3.text);
Pousada.Numerodepessoas:= strtoint(Edit4.Text);
Pousada.Tipos:=RadioGroup1.Itemindex;

seek (arq, FileSize(arq));
write(arq,Pousada);

end;


procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
seek(arq,0);
for i:=0 to filesize(arq)-1 do
begin
Read(arq, pousada);
Memo1.Lines.add(´Cliente:´ + Pousada.nomedocliente);
Memo1.Lines.add(´Telefone:´ + inttostr(Pousada.Telefone));
Memo1.Lines.add(´Diarias:´ + inttostr(Pousada.Diarias));
Memo1.Lines.add(´Numerodepessoas:´ + inttostr(pousada.numerodepessoas));
Memo1.Lines.add(´Tipos:´ + RadioGroup1.Items[pousada.tipos]);

end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var reg: integer;
begin

Pousada.nomedocliente:= Edit1.Text;
Pousada.Telefone:= StrToint(Edit2.Text);
Pousada.Diarias:= StrToInt(Edit3.text);
Pousada.Numerodepessoas:= StrToInt(Edit4.text);
Pousada.Tipos:= RadioGroup1.ItemIndex;

reg := StrToInt (edit5.text);
seek(arq, reg);

Write(arq, Pousada);

end;
end.