Adres Kayıt Proğramı

USES ....

type
Kayittipi=record
Adsoy : string[20];
Adres : string[20];
Telefon: string[20];
Sehir : string[20];
end;
.
.
.
var
Form1 : TForm1;
Dosya : FILE OF KAYITTIPI;
KAYIT : KAYITTIPI;

implementation
{$R *.DFM}


Procedure TForm1.FormCreate(sender:Tobject);
begin
ASSIGNFILE(DOSYA,'C:\MKTV\ADRES.DAT');
{$I-}
RESET(DOSYA);
{$I+}
IF IORESULT <>0 THEN REWRITE(DOSYA);
END;

Procedure TForm1.CIKISCLICK(sender:Tobject);
begin
CLOSEFILE(DOSYA);
FORM1.CLOSE;
END;

Procedure TForm1.KAYDETCLICK(sender:Tobject);
begin
KAYIT.ADSOY:=EDIT1.TEXT;
KAYIT.ADRES:=EDIT2.TEXT;
KAYIT.TELEFON:=EDIT3.TEXT;
KAYIT SEHIR:=EDIT4.TEXT;
IF MESSAGEDLG('KAYIT DOSYSYA YAZILSINMI..?',MTINFORMATION,[BMYES,MBNO],0)=MRYES THEN
BEGIN
SEEK(DOSYA,FILESIZE(DOSYA));
WRITE(DOSYA,KAYIT);
END;
EDIT1.TEXT:='';
EDIT2.TEXT:='';
EDIT3.TEXT:='';
EDIT4.TEXT:='';
END;

Procedure TForm1.ARACLICK(sender:Tobject);
VAR I:INTEGER;
begin
FOR I:=0 TO FILESIZE(DOSYA)-1 DO
SEEK(DOSYA,I);
READ(DOSYA,KAYIT);
IF KAYIT.ADSOY=EDIT1.TEXT THEN
BEGIN
EDIT2.TEXT:=KAYIT.ADRES;
EDIT3.TEXT:=KAYIT.TELEFON;
EDIT4.TEXT:=KAYIT.SEHIR;
END;END;END;

Procedure TForm1.DEGISTIRCLICK(sender:Tobject);
BEGIN
KAYIT.ADSOY:=EDIT1.TEXT;
KAYIT.ADRES:=EDIT2.TEXT;
KAYIT.TELEFON:=EDIT3.TEXT;
KAYIT.SEHIR:=EDIT4.TEXT;
WRITE(DOSYA,KAYIT);
EDIT1.TEXT:=' ';
EDIT2.TEXT:=' ';
EDIT3.TEXT:=' ';
EDIT4.TEXT:=' ';
EDIT1.SETFOCUS;
END;