dosyalama orneği dosyalama örneği haydar akin a.ş.
uses crt;
var
dosya:text;
ad,soyad,no:string;
i,a:integer;
sec:char;
x:string;
procedure menuyaz;
begin
clrscr;
gotoxy(20,10);writeln('M-E-N-U');writeln;
gotoxy(20,11); writeln('1-GiriŸ-');
gotoxy(20,12); writeln('2-Liste-');
gotoxy(20,13); writeln('3-Arama-');
gotoxy(20,14); writeln('4-€kŸ-');
gotoxy(20,15); write('Birini se‡iniz:');
end;
procedure kayitgir;
begin
{$i-} append(dosya); {$i+}
if ioresult<>0 then rewrite(dosya);
repeat
clrscr;
write('Ad:');readln(ad);
write('Soyad:');readln(soyad);
write('Numara:');readln(no);
writeln(dosya,ad);
writeln(dosya,soyad);
writeln(dosya,no);
writeln;writeln('Bilgiler dosyaya yazld.');
write('Kayt yapacak msn? < E / H > :');
repeat
sec:=readkey;
until sec in ['E','H','e','h'];
until (sec='h') or (sec='H');
close(dosya);
end;
procedure listele;
begin
clrscr;
{$i-} reset(dosya); {$i+}
if ioresult=0 then begin
while not eof(dosya) do begin
readln(dosya,ad);
readln(dosya,soyad);
readln(dosya,no);
writeln('Ad:',ad,' Soyad:',soyad,' No:',no);
end;
writeln;
writeln('Listeleme bitti
');
readln;
close(dosya);
end
else begin
write('Bilgi dosyas bulunamad
');
readln;
end;
end;
procedure arama;
begin
clrscr;
{$i-} reset(dosya); {$i+}
if ioresult=0 then begin
writeln('Aranmas gereken isim>>>');
readln(x);
while not eof(dosya) do begin
readln(dosya,ad);
readln(dosya,soyad);
readln(dosya,no);
if ad=x then begin
writeln('Aranan kiŸinin>>>');
writeln('Ad: ',ad,' Soyad: ',soyad,' No: ',no);
end;
if ad<>x then begin
gotoxy(1,5); write('Bulamadm zgnm');
end;
end;
readln;
close(dosya);
end;
end;
begin
assign(dosya,'kim.dat');
repeat
menuyaz;
sec:=readkey;
case sec of
'1':kayitgir;
'2':listele;
'3':arama;
end;
until sec='4';
end.
uses crt;
var
dosya:text;
ad,soyad,no:string;
i,a:integer;
sec:char;
x:string;
procedure menuyaz;
begin
clrscr;
gotoxy(20,10);writeln('M-E-N-U');writeln;
gotoxy(20,11); writeln('1-GiriŸ-');
gotoxy(20,12); writeln('2-Liste-');
gotoxy(20,13); writeln('3-Arama-');
gotoxy(20,14); writeln('4-€kŸ-');
gotoxy(20,15); write('Birini se‡iniz:');
end;
procedure kayitgir;
begin
{$i-} append(dosya); {$i+}
if ioresult<>0 then rewrite(dosya);
repeat
clrscr;
write('Ad:');readln(ad);
write('Soyad:');readln(soyad);
write('Numara:');readln(no);
writeln(dosya,ad);
writeln(dosya,soyad);
writeln(dosya,no);
writeln;writeln('Bilgiler dosyaya yazld.');
write('Kayt yapacak msn? < E / H > :');
repeat
sec:=readkey;
until sec in ['E','H','e','h'];
until (sec='h') or (sec='H');
close(dosya);
end;
procedure listele;
begin
clrscr;
{$i-} reset(dosya); {$i+}
if ioresult=0 then begin
while not eof(dosya) do begin
readln(dosya,ad);
readln(dosya,soyad);
readln(dosya,no);
writeln('Ad:',ad,' Soyad:',soyad,' No:',no);
end;
writeln;
writeln('Listeleme bitti
');readln;
close(dosya);
end
else begin
write('Bilgi dosyas bulunamad
');readln;
end;
end;
procedure arama;
begin
clrscr;
{$i-} reset(dosya); {$i+}
if ioresult=0 then begin
writeln('Aranmas gereken isim>>>');
readln(x);
while not eof(dosya) do begin
readln(dosya,ad);
readln(dosya,soyad);
readln(dosya,no);
if ad=x then begin
writeln('Aranan kiŸinin>>>');
writeln('Ad: ',ad,' Soyad: ',soyad,' No: ',no);
end;
if ad<>x then begin
gotoxy(1,5); write('Bulamadm zgnm
');end;
end;
readln;
close(dosya);
end;
end;
begin
assign(dosya,'kim.dat');
repeat
menuyaz;
sec:=readkey;
case sec of
'1':kayitgir;
'2':listele;
'3':arama;
end;
until sec='4';
end.
