type kayit = record
adi,soyadi:string[30];
telefon:string[25];
mail:string[40];
end;
bu şekilde oluşturduğum kayıtı
procedure giris;
begin
clrscr;
assign(dosya,'veri.txt');
append(dosya);
write('ADI :');
readln(adres.adi);
write('Soyadı :');
readln(adres.soyadi);
write('Telefon :');
readln(adres.telefon);
write('E-posta :');
readln(adres.mail);
textcolor(red);
write('Onay E/H');
readln(onay);
if onay='e' then
begin
writeln(dosya,adres.adi:02,adres.soyadi:02,adres.telefon:02,adres.mail:02);
writeln('Eklendi...');
close(dosya);
end
else
begin
writeln('Eklenmedi...');
close(dosya);
end;
readkey;
end;
bu şekilde kayderiyorum
ama okumak için ne yapmam lazım bilmiyorum kaynak bulamadım bilen varsa lütfen yardımcı olsun oturup ağlayacam :(
Ben hiç anlamam ama uzantısını doğru kaydettiysen, özelliklerine girip izinler kısmından program olarak çalışmasına izin ver gibi bir seçenek var. Onu deneyebilirsin
Alıntı yapılan: sessizce - 19 Ağustos 2009 - 21:28:11
Ben hiç anlamam ama uzantısını doğru kaydettiysen, özelliklerine girip izinler kısmından program olarak çalışmasına izin ver gibi bir seçenek var. Onu deneyebilirsin
tam anlatamadım derdimi sanırsam bu pascal kodyla bir text dosyası oluşturdum ve içine kayıtları girdim ve şimdi aynı programa başka bir procedure ekleyip girdiğim kayıtları okutmam lazım ?